|
|
|
|
Script Code
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2")
Set colServices = objWMIService.ExecQuery & _
("SELECT * FROM Win32_Service")
For Each objService in colServices
Wscript.Echo objService.DisplayName & " = " &_
objService.State
Next
|
|
|
|
|
|
