Solved

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

Posted on 2009-07-13
2
747 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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

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…
Introduction During my participation as a VBScript contributor at Experts Exchange, one of the most common questions I come across is this: "I have a script that runs against only one computer. How can I make it run against a list of computers in …
Get a first impression of how PRTG looks and learn how it works.   This video is a short introduction to PRTG, as an initial overview or as a quick start for new PRTG users.
This demo shows you how to set up the containerized NetScaler CPX with NetScaler Management and Analytics System in a non-routable Mesos/Marathon environment for use with Micro-Services applications.

914 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

19 Experts available now in Live!

Get 1:1 Help Now