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