Determine if Service is Running

Determine if a Windows service is currently running.

Note:This software is available as a pre-release.

Download the Chilkat Service ActiveX here: ChilkatService.zip
Unzip and register with regsvr32.

Dim service As New ChilkatService

service.ServiceName = "MyService"

'  returns -1 for failure (inability to check)
'  returns 1 if running.
'  returns 0 if not running.
Dim retval As Long
retval = service.IsRunning()
If (retval < 0) Then
    MsgBox "Failed to query service control manager"
Else
    If (retval = 1) Then
        MsgBox "Service is running"
    Else
        MsgBox "Service is not running"
    End If

End If