'************************************************
'* List possibly failed services *
'* *
'*
http://www.intelliadmin.com *
'************************************************
Sub ListFailedServices()
Dim objWMIService, colItems
Set objWMIService = GetObject("winmgmts:\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Service",,48)
For Each objItem in colItems
if (objItem.StartMode="Auto") then
if (objItem.Started=False) then
wscript.Echo "==================================="
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Name: " & objItem.Name
wscript.Echo "==================================="
end if
end if
Next
End Sub
ListFailedServices()