Требуется отследить запускаемый процесс и завершить другой

Dim oWMIService, Sink, prevPcs
Const sGame = "notepad.exe"
Const sMiner = "Taskmgr.exe"
 
Set oWMIService = GetObject("WinMgmts:\\.\root\CIMv2")
Set Sink = Wscript.CreateObject("WbemScripting.SWbemSink", "Sink_")
oWMIService.ExecNotificationQueryAsync Sink, _
    "SELECT * FROM __InstanceCreationEvent " &_
    "WITHIN 1 WHERE " &_
    "TargetInstance ISA 'Win32_Process' AND " &_
    "(TargetInstance.Name = '" & sGame & "' OR " &_
    "TargetInstance.Name = '" & sMiner & "')"
oWMIService.ExecNotificationQueryAsync Sink,_
    "SELECT * FROM __InstanceDeletionEvent " &_
    "WITHIN 1 WHERE " &_
    "TargetInstance ISA 'Win32_Process' AND " &_
    "TargetInstance.Name = '" & sGame & "'"
 
Do
    Wscript.Sleep 8^10
Loop
 
Sub Sink_OnObjectReady(objWbemObject, objWbemAsyncContext)    
    On Error Resume Next
    If objWbemObject.Path_.Class = "__InstanceDeletionEvent" Then
        With CreateObject("Wscript.Shell")
          .Run "taskmgr.exe"
        End With
    Else
        Set Pcs = objWbemObject.TargetInstance  
        If Pcs.Name = sGame Then            
            If prevPcs.Name = sMiner Then
                prevPcs.Terminate
            End If
        End If
        Set prevPcs = Pcs       
    End If  
End Sub