VBS Neustart Script mit zeitlicher verschiebung

Ich bin auf der Suche nach einer Lösung um einen Neustart vom User zu fordern, den er maximal um 9 Stunden verschieben kann.

Hallo,

Ich bin auf der Suche nach einem VBScript, das einen Neustart des Rechners durchführt.
Allerdings soll der User zuvor über den Neustart informiert werden und die Möglichkeit haben den Neustart zu verschieben.
Leider bin ich auf VBS noch ein ziemlciher N00b daher funzt das leider nicht so ganz.

Bisher sieht mein Code folgendermaßen aus.

wscript.echo "Es wurden aktualisierungen am PC vorgenommen die einen Neustart erforderlich machen."

if MsgBox("PC jetzt neustarten?",vbYesNo,"Konfigurations Abschluss") = vbYes Then ?????

else

?????

End if

Kann mir jemand weiterhelfen ?

Liebe Grüße und Danke im vorraus für Eure Hilfe.

Felix

Set objShell = CreateObject("WScript.Shell")  
objShell.Run "shutdown -s -t 100", 0  

Dim objShell

wscript.echo "Es wurden aktualisierungen am PC vorgenommen die einen Neustart erforderlich machen."  

Set objShell = CreateObject("WScript.Shell")  

Frage = Msgbox("Soll der Rechner jetzt neu gestartet werden?",vbYesNo,"Neustart...")  
If Frage = vbYes then
	'objShell.Run "shutdown -s -t 100", 0  
Else
	Wscript.Sleep 300000
	Neustart
End If

Sub Neustart
Frage = Msgbox("Soll der Rechner jetzt neu gestartet werden?",vbYesNo,"Neustart...")  
If Frage = vbYes then
	'objShell.Run "shutdown -s -t 100", 0  
Else
	Wscript.Sleep 300000
	Neustart
End If

End Sub