This is a useful script that we have used on more than one occassion on Windows servers:

 

Set ComputerObj = GetObject("WinNT://localhost")    
ComputerObj.Filter = Array("Service")    
For Each Service in ComputerObj    
    WScript.Echo "Service display name = " & Service.DisplayName    
    WScript.Echo "Service account name = " & Service.ServiceAccountName    
    WScript.Echo "Service executable   = " & Service.Path    
    WScript.Echo "Current status       = " & Service.Status    
Next 

 

Once saved, run the script from a command prompt using CSCRIPT <scriptname>.vbs

 

Cookies make it easier for us to provide you with our services. With the usage of our services you permit us to use cookies.
More information Ok