Отслеживание завершения процесса в VBScript

[Tathagata]

Господа,
подскажите, плз, как отследить завершение процесса запущенного через
CreateObject("WScript.Shell") и продолжить выполнение программы?

[RayShade]

Только если через WMI в цикле получать список процессов и его анализировать.

[Tathagata]

Ну вот, есть код, которыей отслеживает блокнот.
Подскажите, каким образом построить цикл, чтобы обработка следила за тем когда выгрузиться это приложение?

Код: Выделить всё

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colMonitoredProcesses = objWMIService. _       
    ExecNotificationQuery("select * from __instancecreationevent " _
        & " within 1 where TargetInstance isa 'Win32_Process'")
i = 0
Do While i = 0
    Set objLatestProcess = colMonitoredProcesses.NextEvent
    If objLatestProcess.TargetInstance.Name = "notepad.exe"Я идиот! Убейте меня, кто-нибудь!  Then
    Wscript.Echo "test!"
    End If
Loop


[Sebas]

Подключи библиотеку
Windows Script Host Object Model
там есть класс ProcessInfo или чтото подобное

[Tathagata]

Не нашел такого класса.

[Tathagata]

А ларчик просто открывался.

WshShell.Run ("Winrar",1, True)

С этим параменторм скрипт продолжает выполняться только после завершения запущенного через run процессом

[Sebas]

WshShell.Exec

возвращает нужный объект WshExec