Solved

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

Posted on 2009-07-13
2
751 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
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

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

Over the years I have built up my own little library of code snippets that I refer to when programming or writing a script.  Many of these have come from the web or adaptations from snippets I find on the Web.  Periodically I add to them when I come…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…

734 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