Windows Skript Summe Logintime je Tag

Du könntest ein Script anlegen welches beim Systemstart ausgeführt wird 
und im Hintergrund endlos mit Do:Sleep:Loop weiterläuft. Innerhalb 
dieser Do:Loop Schleife lässt sich die Zeit abfragen und mit dem Wert 
vergleichen der zu beginn des Script ermittel wurde. Beispiel

Option Explicit

Dim a
Dim b

a = Now()

Do
   b = Now()

   If DateDiff("n", a, b) > 1440 Then
      a = Now()

      Call MsgBox("24 Stunden Laufzeit")
   End If

   Call WScript.Sleep(1000)
Loop

Es könnte dann aus dem Script herausgesprungen und ein neustart 
erzwungen werden. Stellt sich noch die Frage welches Windows und ob das 
VBScript kann.