Estoy escribiendo un script que ejecuta un programa externo, y después de un tiempo lo termina, la sección del código relevante se ve así:

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 

Lo que quiero hacer es cerrar cada una de las instancias deapp.exe Después de diferentes horas de sueño, ¿alguna idea de cómo hacer eso?