警告ボックスがポップアップしたときに .bat ファイルを自動的に実行するにはどうすればよいですか?

Question

時々、POP Peeper が突然コンピュータ上で動作しなくなることがあります。そのたびに警告ボックスがポップアップ表示され、タスク マネージャーのボックスの PID は 244 です。解決方法は、POP Peeper を再起動することです。.bat ファイルを使用してプログラムを再起動する方法は知っていますが、警告ボックスがポップアップ表示されたときにファイルを自動的に実行する方法がありません。

どなたかやり方を教えていただけませんか?
以下は問題の警告ボックスです。

Answer 1

以下のスクリプトはあなたが望んだことを実行するはずです。ポップアップが表示されたら閉じて、別のプロセスを再起動します

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    i = x 
    Do While i = x
        Set colProcesses = objWMIService.ExecQuery _
            ("Select * from Win32_Process Where Name = 'notepad.exe'")
            '("Select * from Win32_Process Where Name = 'Name of Your process you are waiting for to start'")

    If colProcesses.Count = 0 Then
        'It does not exist do nothing
    Else
        For Each objProcess in colProcesses
            'this will close the process you were watching, as soon as it starts
            objProcess.Terminate()

                'Closing the process you want to restart
                Set colProcesses = objWMIService.ExecQuery _
                 ("SELECT * FROM Win32_Process WHERE Name = 'winword.exe'")
                 '("SELECT * FROM Win32_Process WHERE Name = 'name of the process you want to terminate'")
                For Each objProcess2 in colProcesses
                 objProcess2.Terminate()
                Next

            Dim objShell
            Set objShell = WScript.CreateObject( "WScript.Shell" )

            objShell.Run("""C:\Program Files (x86)\Internet Explorer\iexplore.exe""")
            'objShell.Run("""process or application you want to start""")
            Set objShell = Nothing

        Next
    End If

Loop