Set WshShell = WScript.CreateObject("WScript.Shell")
wshShell.CurrentDirectory = "C:\kiwi-cometd-client\"
While True
	WScript.Sleep 3000
        Return = WshShell.Run("""run.cmd""", 2, true)
        WScript.Sleep 3000
Wend
WScript.Quit(Return Mod 255)