Code to check status of specified services on remote machine

[ShiftySid]

Hi guys, I am writing an application that will have a list of servers in one checklist box and a list of Windows services in another. I want to be able to check a server (or servers) and check some Windows services, then click a button to return the status of those serivces in a text box. I can get all of this to work, with the exception of the following: 1) I can only check services on the local machine, how can I check services on a remote machine? 2) How can I convert the checked items of a checklist box to individual string variables? Here's my code, thus far (help is mainly needed with point 1, as I have ways of overcoming point 2- thanks in advance): Function IsServiceRunning(ByVal sServiceName, ByVal sMachineName) Dim objMachine, objInst, objSet objSet = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_Service") For Each objInst In objSet If (UCase(sServiceName) = UCase(objInst.Name)) And (UCase(objInst.State) = UCase("Running")) Then txtResults.Text &= (sServiceName & " - running") & vbCrLf End If If (UCase(sServiceName) = UCase(objInst.Name)) And (UCase(objInst.State) = UCase("Stopped")) Then txtResults.Text &= (sServiceName & " - stopped") & vbCrLf End If Next End FunctionCOLOR=Blue