显示所有服务的状态

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
 & "\\" & strComputer & "\root\cimv2")
Set colServices = objWMIService.ExecQuery _
 ("Select * from Win32_Service")
For Each objService in colServices
 Wscript.Echo objService.DisplayName & _
 " | " & objService.State
Next