Написание сценария, который запускает внешнюю программу и через некоторое время завершает ее, соответствующий раздел кода выглядит следующим образом:

Set objshell=createObject("Wscript.Shell")
objShell.run ""app.exe""
objShell.run ""app.exe""
WScript.Sleep(5000)

strWmiq = "select * from Win32_Process where name='app.exe'" 
Set objQResult = objWmi.Execquery(strWmiq)
    For Each objProcess In objQResult 
        intRet = objProcess.Terminate(1)
    Next 

Что я хочу сделать, это закрыть каждый из экземпляровapp.exe после разных времен сна, есть идеи, как это сделать?