Set shell = WScript.CreateObject("WScript.Shell")

Wscript.Sleep 180000

shell.Run "run.bat", 1, true