Remotedienst prüfen mit Visual Basic

Hallo Zusammen,

ich möchte mir gerade ein Programm bauen, mit dem ich diverse Server auf Verfügbarkeit prüfen kann.
Das ganze funktioniert bereits mit einem PingCheck. Ich möchte alles aber mit dem Prüfen eines bestimmten Dienstes erweitern.

Mir fehlt im Moment die Idee und das Wissen wie ich das bauen kann. Für den lokalen Rechner ist die Abfrage kein Problem aber für einen Remoteclient finde ich keine Lösung.

Kann mir evtl jemand weiterhelfen?

Vielen Dank und Grüße

Michael

strComputer = "COMPUTERXYZ"  
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  
Set colServices = objWMIService.ExecQuery("SELECT * FROM Win32_Service WHERE Name = 'DEINDIENSTNAME'")  

For Each objService In colServices
    msgbox objService.State
Next