Solved

Vbs Script to stop a process, the start and stop a service

Posted on 2009-07-13
2
748 Views
Last Modified: 2012-06-27
i need avbs script to stop     thisprocess.exe, the stop a service  "updates" and then start the updates service
0
Comment
Question by:underground712
2 Comments
 
LVL 67

Accepted Solution

by:
sirbounty earned 125 total points
ID: 24842123
Modified from http://www.computerperformance.co.uk/vbscript/wmi_services.htm
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill 
strProcess = "'thisprocess.exe'" 
strService = "'updates'"
intSleep = 10000 '10 second delay
 
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 
Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = " & strProcess )
 
For Each objProcess in colProcess
  objProcess.Terminate()
Next 
 
Set colListOfServices = objWMIService.ExecQuery ("Select * from Win32_Service Where Name = " & strService )
 
For Each objService in colListOfServices
  objService.StopService()
  WSCript.Sleep intSleep
  objService.StartService()
Next

Open in new window

0
 
LVL 3

Expert Comment

by:rmconard
ID: 24842154
Here's how to stop and start a service:

Note* You will need WSH to make this work. Download here:

http://www.microsoft.com/downloads/details.aspx?displaylang=en&FamilyID=47809025-d896-482e-a0d6-524e7e844d81

Option Explicit
Dim objWService, objItem, objService
Dim colList, strService, intSleep, strComp
 
'Leave as is for local machine.
strComp = "."
 
'Time to wait until restart
intSleep = 15000
 
WScript.Echo " Click OK, then wait " & intSleep & " milliseconds"
 
strService = " 'updates' "
 
Set objWService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComp & "\root\cimv2")
 
Set colList = objWService.ExecQuery _
("Select * from Win32_Service Where Name ="_
& strService & " ")
 
For Each objService in colList
    objService.StopService()
    WSCript.Sleep intSleep
    objService.StartService()
Next
 
WScript.Echo "Your "& strService & " service has Started"
WScript.Quit

Open in new window

0

Featured Post

Live: Real-Time Solutions, Start Here

Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Unlike scripting languages such as C# where a semi-colon is used to indicate the end of a command, Microsoft's VBScript language relies on line breaks to determine when a command begins and ends. As you can imagine, this quickly results in messy cod…
When it comes to writing scripts for a Client/Server computing environment it is essential to consider some way of enabling the authentication functionality within a script. This sort of consideration mainly comes into the picture when we are dealin…
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, just open a new email message. In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
This video shows how to use Hyena, from SystemTools Software, to bulk import 100 user accounts from an external text file. View in 1080p for best video quality.

816 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now