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