获取操作系统的服务状态

时　间:2013-04-24 09:46:52
作　者:叶海峰   ID：31  城市：广州
摘　要:获取操作系统的服务状态
正　文:

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