Solved

Batch file for status of service/s, then kill process and finally restart services

Posted on 2009-05-13
5
635 Views
Last Modified: 2013-11-10
Hello,

I'm implementing a Kaseya Server with Vmware snapshots. When snapshot take in place, service "kserver" didn't respond (it's not possible start, stop or restart service), workaround, seemed to kill process kaseya, then restart service.

Can anyone help me to make a batch file that, in first place check is service kaseya is running or not, and in case of not, kill the process and then restart the service?.  The idea is put this batch file in a scheduled task.

Would be interesting use command "sc", instead net start/stop...

Thank you
0
Comment
Question by:jpvhack
[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
5 Comments
 
LVL 5

Accepted Solution

by:
Tompa99 earned 250 total points
ID: 24379135
Hello

This script should work I think. You have to change the service to the correct one.

Regards Tompa
Dim strService
Dim strComputer
Dim objWMIService, objItem, objService
Dim colListOfServices
 
strComputer = "." ' Localhost
strService = "Alerter" ' Displayname of service
 
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set colListOfServicesStatus = objWMIService.ExecQuery ("Select * from Win32_Service Where DisplayName ='" & strService & "'")
	
	for each objServiceState in colListOfServicesStatus
		ServiceState = objServiceState.State
		if ServiceState <> "Running"  then
			if ServiceState = "Stopped" Then 
				StartService strService,strComputer
			else 
				StopService strService,strComputer
				StartService strService,strComputer
			end if
		end if 
	next
wscript.Quit(99)
 
'========================== StopService(strService,strComputer)========================================
private function StopService(strService,strComputer)
	Dim objWMIService, objItem, objService
	Dim colListOfServices
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
	Set colListOfServices = objWMIService.ExecQuery ("Select * from Win32_Service Where DisplayName ='" & strService & "'")
	For Each objService in colListOfServices
		objService.StopService()
		do while ServiceState <> "Stopped"
			set colListOfServicesStatus = objWMIService.ExecQuery ("Select * from Win32_Service Where DisplayName ='" & strService & "'")
				for each objServiceState in colListOfServicesStatus
					ServiceState = objServiceState.State
				next
		loop
	Next
end function
 
'========================== StartService(strService,strComputer)========================================
private function StartService(strService,strComputer)
	Dim objWMIService, objItem, objService
	Dim colListOfServices
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
	Set colListOfServices = objWMIService.ExecQuery ("Select * from Win32_Service Where DisplayName ='" & strService & "'")
	For Each objService in colListOfServices
		objService.StartService()
		do while ServiceState <> "Running"
			set colListOfServicesStatus = objWMIService.ExecQuery ("Select * from Win32_Service Where DisplayName ='" & strService & "'")
				for each objServiceState in colListOfServicesStatus
					ServiceState = objServiceState.State
				next
		loop
	Next
end function

Open in new window

0
 
LVL 21

Expert Comment

by:AmazingTech
ID: 24379220
Try this.
sc query "kserver" | find /i "state" | find /i "running"
if errorlevel 1 (
    taskkill /f /im kaseya.exe
    sc start "kserver"
)

Open in new window

0
 

Author Comment

by:jpvhack
ID: 24379721
AmazingTech:

How i could to avoid, that in case thar process kaseya.exe don't exist, this message: ERROR: The process "KServer.exe" not found.
0
 
LVL 21

Assisted Solution

by:AmazingTech
AmazingTech earned 250 total points
ID: 24379783
Sure no problem.

We'll use tasklist to find if it is a running process.
sc query "kserver" | find /i "state" | find /i "running"
if errorlevel 1 (
    tasklist /fi "imagename eq kaseya.exe" | find /i "kaseya.exe"
    if not errorlevel 1 taskkill /f /im kaseya.exe
    sc start "kserver"
)

Open in new window

0

Featured Post

Optimize your web performance

What's in the eBook?
- Full list of reasons for poor performance
- Ultimate measures to speed things up
- Primary web monitoring types
- KPIs you should be monitoring in order to increase your ROI

Question has a verified solution.

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

With User Account Control (UAC) enabled in Windows 7, one needs to open an elevated Command Prompt in order to run scripts under administrative privileges. Although the elevated Command Prompt accomplishes the task, the question How to run as script…
Q&A with Course Creator, Mark Lassoff, on the importance of HTML5 in the career of a modern-day developer.
Viewers will learn how to properly install Eclipse with the necessary JDK, and will take a look at an introductory Java program. Download Eclipse installation zip file: Extract files from zip file: Download and install JDK 8: Open Eclipse and …
Introduction to Processes

627 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