Sub GetServiceState()
'XP测试通过,Win7无测试
Dim strComputer As String
Dim colServices As Object
Dim objWMIService As Object
Dim objService As Object

strComputer = "."

Set objWMIService = GetObject _
    ("winmgmts:\\" & strComputer & "\root\cimv2")

Set colServices = objWMIService.ExecQuery _
    ("Select * From Win32_Service")

For Each objService In colServices
    Debug.Print objService.Name, objService.State
Next
End Sub