'************************************************ '* 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()