Write a script to start WinXP service

[JRMS]

I am currently attempting to come up with a script to start a service in Windows XP remotely. I did not know how to even get started. I know there are tools I can purchase to do so, but would like to generate a script.

 

[dm4ever]

Search for WMI and Win32_Service...there are plenty of examples.

http://www.microsoft.com/technet/scriptcenter/scripts/os/services/default.mspx

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[markdmac]

Get yourself a copy of Scriptomatic. Free download from Microsoft.

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.

 

[GrimR]

Three options
Open services.msc - Action - connect to another computer and start the service.
Use GPO on W2k3 to start service automatically

or

Set objShell = Wscript.CreateObject("WScript.Shell")
On Error Resume Next
strComputer = InputBox("Start Service On Remote Computer") 
'Check if service is Running
  Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
   Set colRunningServices =  objWMIService.ExecQuery ("Select * from Win32_Service Where Name = 'DcomLaunch'")
   For Each objItem In colRunningServices
   If objItem.State="Stopped" Then 
       Call SetManStart
   Else
       wscript.quit  
    End If
   Next

Sub SetManStart
'Set service to Manual
Set objWMIService = GetObject("winmgmts:" _ 
  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colServicesState = objWMIService.ExecQuery _ 
  ("Select * from Win32_Service where Name='DcomLaunch'") 
For Each objService in colServicesState 
	objService.ChangeStartMode("AUTO")
	wscript.sleep 5000
'Start service
If objService.State="Stopped" then 
 objService.StartService()
	wscript.sleep 2000
End If
Next
End Sub