' Create a File in the Desktop with all the services

Set objWMISrv = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set fso  	  = CreateObject("Scripting.FileSystemObject")
set WshShell  = WScript.CreateObject("WScript.Shell") 
strDesktop    = WshShell.SpecialFolders("Desktop")
Set outFile   = fso.CreateTextFile(strDesktop & "\Services.csv", True)
Set colServ   = objWMISrv.ExecQuery  ("Select * from Win32_Service")

outFile.WriteLine("Windows Services" & VbCrLf)
outFile.WriteLine("DisplayName,RealName,Status,StartupType,Description")
For Each objServ in colServ
	outFile.WriteLine( 	objServ.DisplayName & "," & objServ.Name & "," & _
	objServ.State & "," & objServ.StartMode & ",""" & Left(objServ.Description,80) & """") 
Next
outFile.Close