The script for today is a wmi script.
The script creates a list of all services on a computer and also displays the status of the services.
Default computer is the local machine.
When the dot is replaced by another machine name the script works against that machine.
There are some conditions that must be met:

1. the script must be run with administrative credentials
2. the firewall of the remote machine needs the following ports opened for WMI: TCP 135, TCP 4168 and
   UDP 9256

Follow the next steps to make and run the script (admin rights needed):

• open your favorite text editor (mine is notepad++)
• copy and paste the script into the editor (delete the line numbers)
• save the script (for example c:\temp\listservices.vbs)
• open a command prompt
• go to “c:\temp”
• give “cscript listservices.vbs” (without quotes) and enter

The script:

' Name : listservices.vbs
' Description : script to enumerate all services and their status on a computer
' Author : dirk adamsky - deludi bv
' Version : 1.00
' Date : 03-02-2010
' Level : beginner

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objListOfServices = objWMIService.ExecQuery("Select * from Win32_Service ")
For Each objService in objListOfServices
	Wscript.Echo objService.name & " ;  " & objService.State
Next
Set colListOfServices = Nothing
Set objWMIService = Nothing

As said earlier: when you have questions/problems please give a reply.

Happy scripting.

Best regards,

Dirk Adamsky – Deludi BV