Подскажите как переделать скрипт

Option Explicit
 
Dim objSpeechFileStream
 
 
With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").ExecNotificationQuery( _
    "SELECT * FROM __InstanceCreationEvent WITHIN 1 " & _
    "WHERE TargetInstance ISA 'Win32_Process' AND TargetInstance.Name = 'ZaxarGameBrowser.exe'")
    
    Do
        .NextEvent
        
        With WScript.CreateObject("SAPI.SpVoice")
            Set objSpeechFileStream = WScript.CreateObject("SAPI.SpFileStream")
            
            objSpeechFileStream.Open "C:\Windows\Media\Windows Ringout.wav"
            .SpeakStream objSpeechFileStream
            objSpeechFileStream.Close
            .Speak "Web Page Maker started."
            
            Set objSpeechFileStream = Nothing
        End With
    Loop
End With
 
WScript.Quit 0

Set SINK = WSH.CreateObject("WbemScripting.SWbemSink", "SINK_")
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")
oWMI.ExecNotificationQueryAsync SINK, "SELECT ProcessId FROM" &_
" Win32_ProcessStartTrace Where ProcessName='ZaxarGameBrowser.exe'"
Do : WSH.Sleep 1000000 : Loop
 
Sub SINK_OnObjectReady(oEvent, oAsyncContext)
  oWMI.Get("Win32_Process.Handle=" & oEvent.ProcessId).Terminate
  With CreateObject("MediaPlayer.MediaPlayer")
    .Open CreateObject("Shell.Application").NameSpace(36).Self.Path & "\Media\Windows Ringout.wav"
    .Volume = 0 : .Play : While .PlayState : WSH.Sleep 200 : Wend
  End With
  For Each OS in oWMI.ExecQuery("Select Status from Win32_OperatingSystem")
    OS.Reboot
  Next
  WSH.Quit
End Sub