Piszę skrypt, który uruchamia zewnętrzny program i po chwili go kończy, odpowiednia sekcja kodu wygląda następująco:

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 

Chcę zamknąć każde wystąpienieapp.exe po różnych czasach snu wszelkie pomysły, jak to zrobić?