Dim WshShell
set WshShell = WScript.CreateObject("WScript.Shell")
For doloop = 1 to 999999
WshShell.Run "taskkill /f /IM 123"
WScript.Sleep 3000
WshShell.Run "123.exe"
WScript.Sleep (30*60*1000)
Next
WScript.Quit
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.SendKeys "{ENTER}", True