Set WshShell = CreateObject ("WSCript.shell")
PID = WshShell.Exec("notepad.exe").ProcessID

Set WMI = GetObject("winmgmts:\\.\root\cimv2")
Set colProcesses = WMI.ExecNotificationQuery _
("Select * From __InstanceDeletionEvent Within 1 Where TargetInstance ISA 'Win32_Process'")
Do Until 1 = 2
    Set objProcess = colProcesses.NextEvent
    If objProcess.TargetInstance.ProcessID = PID Then
       Exit Do
    End If
Loop
MsgBox "Процесса notepad.exe (PID " & PID & ") больше нет."

Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
Set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum(objService, "Win32_Process").objectSet
While True
    objRefresher.Refresh
    For Each objItem in colItems
        If InStr(objItem.ExecutablePath, "notepad.exe") Then
            Wscript.Echo "notepad.exe PID " & objItem.ProcessId
        End If
    Next
    Wscript.Sleep 1000
Wend