vb script für autom reboot funkt nicht - hilfe! :-)

[daytrader]

kann mir jmd bitte helfen, denn irgendwo ist der wurm drin:

set MyShell = CreateObject("Wscript.Shell")
start=timer
do
wscript.sleep 3600000
'3600000 sind 3600 sekunden also 60 minuten
diff=timer-start
loop  while  diff < 86400
'1 Tag (86400 Sekunden) warten, dann reboot

do
wscript.sleep 3600000
loop while hour(now) < 3
'Warten auf Mitternacht

wscript.sleep 1000
myshell.sendkeys "{ESC}"
'1 sec ESC senden - Anwendung beenden

n=MyShell.run("shutdown.exe -r -f -t 0")
do
wscript.sleep 4000
myshell.sendkeys "{j}"
loop 
'4 sec "J" senden um dialoge zu beenden

wenn man die zeiten (testweise) auf sehr kurz setzt dann gehts, so wie oben leider nicht . . . . BS ist XP SP2