WISDOMBAY

WINDOWS SCRIPTING CORNER @ WISDOMBAY

A periodic Section maintained by Pramod S Nair

13. A Windows Script For Listing info on all services running on a PC to a file

Posted on WisdomBay @ 11:11 PM 03/15/2006 | Post by Pramod S Nair

This WMI Script writes all the necessary information about all the services registered on a particular PC into a file.

'A Windows Script For Listing info on all services running on a PC to a file 'Compiled by Pramod S Nair 'http://www.wisdombay.com 'Written 11:11 PM 03/15/2006 '''''''''''''''''''''''''''''''''''''''' 'Outputfile name. 'Change it to suit your needs outFlNam = "C:\ServDet.txt" ''''''''''''''''''''''''''''''''''''''''''' 'Create a WMI Object Set ow = GetObject("winmgmts:\\.\root\cimv2") strOut = "" i = 1 'Query the Win32_ComputerSystem class for getting a machines' Information Set S = ow.ExecQuery ("Select * from Win32_Service") For Each obj In S strOut = strOut & "Service : " & i & vbnewline ' Can be Paused t1 = "" tmp = obj.AcceptPause if tmp= True Then t1 = "Yes" else t1 = "No" End if strOut = strOut & "Can be Paused : " & t1 & vbnewline t1 = "" ' Can be stopped t1 = "" tmp = obj.AcceptStop if tmp= True Then t1 = "Yes" else t1 = "No" End if strOut = strOut & "Can be Stopped : " & t1 & vbnewline t1 = "" 'Short description of the object—a one-line string. strOut = strOut & "Caption : " & obj.Caption & vbnewline 'Description of the object strOut = strOut & "Description : " & obj.Description & vbnewline ' Can the service interact with windows on the desktop t1 = "" tmp = obj.DesktopInteract if tmp= True Then t1 = "Yes" else t1 = "No" End if strOut = strOut & "Can the service interact with windows on the desktop : " & t1 & vbnewline t1 = "" 'display name of the service. strOut = strOut & "Service Display Name : " & obj.DisplayName & vbnewline 'How severe will be the error if the service fails during startup. strOut = strOut & "Severity of Error : " & obj.ErrorControl & vbnewline 'Unique name of the service. strOut = strOut & "Name : " & obj.Name & vbnewline 'Path of the binary that implements the service. strOut = strOut & "Path Name : " & obj.PathName & vbnewline 'Type of service provided to calling processes strOut = strOut & "Service Type : " & obj.ServiceType & vbnewline 'is the service running now t1 = "" tmp = obj.Started if tmp= True Then t1 = "Yes" else t1 = "No" End if strOut = strOut & "Is the service running now : " & t1 & vbnewline t1 = "" 'Start mode of the Windows base service. strOut = strOut & "Start Mode : " & obj.StartMode & vbnewline 'Account name under which the service runs. strOut = strOut & "Start Name : " & obj.StartName & vbnewline 'Current state of the base service. strOut = strOut & "State : " & obj.State & vbnewline 'Current status of the service. strOut = strOut & "Status : " & obj.Status & vbnewline & vbnewline i = i + 1 Next Set S = Nothing Set ow = Nothing 'Write the info to our out file Set fso = CreateObject("Scripting.FileSystemObject") Set g = fso.CreateTextFile(outFlNam, True) g.WriteLine strOut g.close Wscript.Echo "Output Redirected to " & outFlNam 'End of Script

How to use :
1. Copy the code given above to clipboard.
2. Create a new file and name it as you like with a '.vbs' extension.
3. Now you can use this script for creating a file with all the deatils about the services available on a PC.