Start or stop windows processes if not running or running during time window.

ProcessManager.vbs

Option Explicit
'Process Manager
'Check a process, restart it and send email alert, or kill process depending on time window
'If process is NOT running between start/endHour then restart it and send an email if sendEmail = true
'If process is running outside of start/endHour then kill it.

'Original script created by NetRes
'Modified by mReschke 2008-04-28 (converted to functions, actions change by time, email enhancements, globals, generic process killer)

'Globals
On Error Resume Next
Dim objProcess, objWMIService, colProcesses, Process, ProcessorTime, pc
Dim strBody, iMsg, iConf, Flds, DataList, strComputer

Dim processName		'Name of process to check/kill/restart	(NOTE: Case Sensetive !!!)
Dim processPath		'Full path to process .exe (do not include name.exe, ex: d:\dynamailgenerator\bin\)
Dim sendEmail		'Bool to send alert email if service is not running
Dim curTime, startHour, endHour, curMin



' ---------------------------------------------------------------------------------
'Set Configs
processName = "VFIOpenImport.exe"
processPath = "D:\Production\bin\VFIOpenImport\bin\"
sendEmail = true


'Determine what to do based on the current time
curTime = CInt(mid(FormatDateTime(Time(), 4), 1, 2))	'24 hour time, just the hour (so 02 or 08 or 12 or 15 or 18)
curMin = CInt(mid(FormatDateTime(Time(), 4), 4, 2))

startHour = 5
endHour = 21

If curTime >= startHour AND curTime < endHour Then
	'Process should be running between these times (restart it if not)
	If IsRunning = False Then
		'Process is NOT running, restart it and send an alert email
		
		if curTime = startHour AND curMin < 20 Then sendEmail = false	' don't send alert email the first 20 minutes of the day (because it's just starting up, not really restarting)
		
		if sendEmail = true Then Call SendAlertEmail
		Call RestartProcess
	Else
		'Process is running fine, we are good!
	End If
Else
	'Kill the process if it is running
	Call KillProcess
End if



' ---------------------------------------------------------------------------------
Sub SendAlertEmail()
	Set pc = CreateObject("Wscript.Network")
	Set iMsg = CreateObject("CDO.Message")
	Set iConf = CreateObject("CDO.Configuration")
	Set Flds = iConf.Fields

	Const schema = "http://schemas.microsoft.com/cdo/configuration/"
	dim emailBody

	Flds.Item(schema & "sendusing") = 2
	Flds.Item(schema & "smtpserver") = "smtp.example.com" 
	Flds.Item(schema & "smtpserverport") = 465
	Flds.Item(schema & "smtpauthenticate") = 1
	Flds.Item(schema & "sendusername") = "user@example.dom"
	Flds.Item(schema & "sendpassword") = "password"
	Flds.Item(schema & "smtpusessl") = 1
	Flds.Update

	With iMsg
		.To = "mreschke@dynatronsoftware.com"
		.From = "Process Alert <administrator@example.com.com>"
		.Subject = processName & " has quit"

		emailBody = "<font color='red'><h2>'" & processName & "' has unexpectedly quit</h2></font>"
		emailBody = emailBody & "<b>Server: </b>" & pc.ComputerName & "<br />"
		emailBody = emailBody & "<b>Process: </b>" & processName & "<br />"
		emailBody = emailBody & "<b>Location: </b>" & processPath & processName & "<br />"
		emailBody = emailBody & "<b>Time: </b>" & Now & "<br /><br />"
		emailBody = emailBody & "<b>Attempting to restart '" & processName & "'</b><br /><br />"
		emailBody = emailBody & "<font color='#808080'>Please check that the process has restarted correctly.<br />" 
		'emailBody = emailBody & "

		.HTMLBody = emailBody
		.Sender = "Process Alert <administrator@example.com>"
		.Organization = "Example"
		.ReplyTo = "mail@example.com"

		Set .Configuration = iConf

		.Send 
	End With   
  
	' Release Interfaces
	Set iMsg = nothing
	Set iConf = nothing
	Set Flds = nothing
End Sub



' ---------------------------------------------------------------------------------
Function IsRunning()
	Dim processRunning
	processRunning = false
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer& "\root\cimv2")
	Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & processName & "'")
	For Each Process in colProcesses
		If Process.Name = processName Then 
			processRunning = True
		End If
	Next
	IsRunning = processRunning	'return processRunning (true or false)
End Function



' ---------------------------------------------------------------------------------
Sub RestartProcess()
	'Restart the Process
	Dim oShell
	Set oShell = WScript.CreateObject ("WSCript.shell")
	oShell.run "" & processPath & processName & ""
	Set oShell = Nothing
End Sub



' ---------------------------------------------------------------------------------
Sub KillProcess()
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer& "\root\cimv2")
	Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & processName & "'")
	For Each Process in colProcesses
		If Process.Name = processName Then 
			Process.Terminate()
		End If
	next
End Sub