Run a process. Kill & restart if it runs too long.

[Marcus Tettmar]

This script demonstrates how to schedule a process and then kill it if it is still running after a set amount of time. If the process is killed the script will restart it. You can set up the process, the timeout and the number of times it should try to restart it.

This example uses an FTP process as an example, but it could be any command line or program.

//Set next five lines appropriately
Let>path=c:\windows\system32
Let>proc=ftp.exe
Let>commandline=-s:d:\ftp.txt server
Let>timeout=60*15
Let>maxtries=5
//Note timeout is in seconds

//A couple of useful VBScript functions
//IsProcessRunning and KillProcess
VBSTART
'Kills a process given its process name
Sub killProcess(pgm)
set wmi = getobject("winmgmts:")
sQuery = "select * from win32_process " & "where name='" & pgm & "'"
set processes = wmi.execquery(sQuery)
for each process in processes
process.terminate
next
End Sub

'returns the number of copies of ProcessName that are running
'will return 0 if ProcessName is not running
Function IsProcessRunning(ProcessName)
Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList = oWMIService.ExecQuery ("Select Name from Win32_Process where Name='" & ProcessName & "'")
IsProcessRunning = colProcessList.count
End Function
VBEND

//The full script
Let>tries=1
Label>start

//Run the command line or proggy here
Run>%path%\%proc% %commandline%

//Wait timeout duration
Wait>timeout

VBEval>IsProcessRunning("%proc%"),numFTPs
If>numFTPs>0
//Process is still running, end it
VBRun>Killprocess,proc
If>triestries=tries+1
Goto>start
Endif
Endif