VBScript - Shutdowndialog mit Timer

Shutdown Dialog anzeigen mit Timer bis automatisch heruntergefahren oder durch den Benutzer über den Dialog abgebrochen wird.

Liebes Forum,

schon häufig habe ich mich bei IT-Problemen an Google gewandt und bin auf Euch gestossen um von der unglaublich tollen Hilfe etwas abzuschöpfen... Ihr habt mir bei so einigen Problemen weitergeholfen - VIELEN DANK DAFÜR!! Im Übrigen eine unglaublich vorbildliche Programmierung des Forums, habe bisher noch NIE ein so benutzerfreundliches gesehen, nicht nur die Programmierung - Auch die ART DER HILFE! - Revolution! (OK genug geschleimt ^^)

Nun zu meinem Problem!

Hintergrund:
Ich bin schon seit nunmehr 6 Stunden damit beschäftigt, den Laptop meiner werten Mutti wieder etwas mehr zu automatisieren.
Da meine liebe Mutti oft den Laptop mitsamt Video vor dem Einschlafen neben sich stehen lässt und es nicht mehr schafft ihn auszumachen. (Ein bisschen Öko bin ich ja schon)
Für die Umsetzung meiner Idee benötige ich die Möglichkeit, den Computer: Windows Vista, x86 (32-Bit) - Automatisch herunterfahren zu lassen, sobald keine Aktivität mehr vorhanden ist.

Einfach Programm aus dem Internet nutzen? - Will ich nicht! - Warum:
Dies lässt sich mit zwar mit externen Programmen (Autoshutdown etc.) realisieren, jedoch fehlt mir darin einfach die Transparenz, da solche Programme nicht OpenSource sind und ich mich bzw. meine Mutti 1. Performancemässig im Nachteil sehe, außerdem 2. Die Sicherheit fehlt, dass das Programm keinen Quatsch anstellt (Ala unnötige Registry-/Dll-/Treiber-Einträge o. ä.). - Das System soll ABSOLUT SAUBER vor solchem Quatsch bleiben, deswegen kommen auch nur die nötigsten und sinnvollsten Programme auf diesen Rechner.
Ich bitte diesbezüglich keine Diskussion anzufangen, ich möchte schließlich einen Lösungsweg zu meinem Problem der Realisierung dieser Idee (Das selbstständige Programmieren/Scripten einer solchen Dienstleistung) und nicht des (nichtvorhandenen Problemes) der "Nicht-Einsicht" bzw. der Nichtakzeptierung fremder Software. - Sofern das jemand annehmen sollte. - Ich möchte nicht diskutieren wie sinnvoll es ist, denn das ist es für mich.
- Gebe ich nur deswegen an, da in vielen Foren diskutiert wird warum und wie sehr man etwas möchte -

Meine Realisierungsidee:
Ich wollte das ganze nun per VBS-Script realisieren, konnte es aber in keinster Weise in eine Funktionalität zustandebringen, die weiterbrachte - meine Lösungsidee war nun, das Script um eine bestimmte Uhrzeit (22:30 Uhr) starten zu lassen, damit es:
Einen Dialog anzeigt mit der Frage, ob der Computer heruntergefahren werden soll.
Falls Nein, sollte das Script dann 1 Stunde warten und diesen Dialog erneut anzeigen.
Falls Ja, sollte das Script den Computer bei Ablauf der 5 Minuten ab dem Anzeigen des Dialoges ohne Wenn und Aber herunterfahren.
Falls 5 Minuten keine Eingabe im Dialog geschieht, soll der Computer ohne Wenn und Aber herunterfahren.

Mein Script (bin nicht stolz auf "Mein" Script, sondern möchte hier nur hervorheben damit man beim Überfliegen schnell findet was man sucht :P)
hatte viele verschiedene Aussehen, jedes mal in VBS, konnte jedoch keine Lösung erarbeiten.
Aktuell sieht es so aus:

Wie Ihr sicher schon herausgelesen habt - besonders viel Erfahrung in VBS oder BATCH habe ich nicht, dennoch gebe ich mir alle Mühe.
Das einzige was ich relativ gut kenne ist LSL (Linden Scripting Language) und HTML.

Wie also könnte ich es noch realisieren?
Kann ich bei VBS etwas besser machen (Fehler)?
Sollte ich eine andere Programmiersprache benutzen?
Gibt es vielleicht sogar eine noch bessere Lösung (Mit Aktivitätsüberwachung und Shutdown-Timer) mithilfe von VBS und/oder Batch?
Oder gibt es für mich nur Hoffnung, ein Programm aus dem Netz zu benutzen (was ich nicht möchte).
Aber schließlich möchte ich auch nicht mein halbes Leben nur wegen einem "Shutdown Timer" verplempern... So viel ist es meiner Mutti dann sicher auch nicht wert...

Mit lieben Gruß
Der Registrar

Set ws = CreateObject("WScript.Shell")   
a = ws.popup( "Nach 3 Sekunden bin ich wieder weg.",3,"Messageboxmeldung",vbyesno)  
msgbox a

Dim Wartezeit
Wartezeit = 3600000 ' eine Stunde in Millisekunden  
for i = 0 to 3
       'Aufruf einer Sub-Routine zum Beispiel  
       ' in der du deine Abfragen reinbastelst  
      Wscript.Sleep Wartezeit
next

Wscript.Quit

Dim Wartezeit
Wartezeit = 3600000 ' eine Stunde in Millisekunden  
for i = 0 to 3
		Set ws = CreateObject("WScript.Shell")   
		a = ws.popup( "Der Computer soll in 1 Minute runterfahren. Abbrechen?",60,"Messageboxmeldung",vbyesno)  
		msgbox a
	If (a=6) Then
      		Wscript.Sleep Wartezeit
	Else If (a=7) OR (a=-1) Then
		Set oShell = WScript.CreateObject("WScript.Shell")   
		oShell.Run "C:\Users\User\Systemdateien\Shutdown\shutdown.bat", 0  

Wscript.Quit

Dim Wartezeit
Wartezeit = 3600000 ' eine Stunde in Millisekunden  
for i = 0 to 3
		Set ws = CreateObject("WScript.Shell")   
		a = ws.popup( "Der Computer soll in 1 Minute runterfahren. Abbrechen?",60,"Messageboxmeldung",vbyesno)  
		msgbox a
	If (a=6) Then
      		Wscript.Sleep Wartezeit
	Else If (a=7) OR (a=-1) Then
		Set oShell = WScript.CreateObject("WScript.Shell")   
		oShell.Run "C:\Users\User\Systemdateien\Shutdown\shutdown.bat", 0  

End If
End If 
Next
Wscript.Quit

Else
                Set oShell = WScript.CreateObject("WScript.Shell")   
		oShell.Run "C:\Users\User\Systemdateien\Shutdown\shutdown.bat", 0  
End If

Next

Dim Wartezeit
Wartezeit = 3600000 ' eine Stunde in Millisekunden  
for i = 0 to 3
		Set ws = CreateObject("WScript.Shell")   
		a = ws.popup( "Der Computer soll in 1 Minute runterfahren. Abbrechen?",60,"Messageboxmeldung",vbyesno)  
		msgbox a
	If (a=6) Then
      		Wscript.Sleep Wartezeit
	End If
	Next
	Else
                Set oShell = WScript.CreateObject("WScript.Shell")   
		oShell.Run "C:\Users\User\Systemdateien\Shutdown\shutdown.bat", 0  
	End If
	Next
Wscript.Quit 

Dim Wartezeit
Wartezeit = 3600000 ' eine Stunde in Millisekunden  
for i = 0 to 3
		Set ws = CreateObject("WScript.Shell")   
		a = ws.popup( "Der Computer soll in 1 Minute runterfahren. Abbrechen?",60,"Messageboxmeldung",vbyesno)  
	If a=6 Then
      		Wscript.Sleep Wartezeit
	Else
                Set oShell = WScript.CreateObject("WScript.Shell")   
		oShell.Run "C:\Users\User\Systemdateien\Shutdown\shutdown.bat", 0  
	End If
Next

Const Msg = "Soll der Laptop jetzt herunterfahren?"  
 
Set oShell = CreateObject("WScript.Shell")  
    
Do While oShell.PopUp(Msg, 60, "Meldung...", vbYesNo) = vbNo  
   Wscript.Sleep 3600000
Loop

oShell.Run "C:\Users\User\Systemdateien\Shutdown\shutdown.bat", 0   

Dim Wartezeit
Wartezeit = 3600000 ' eine Stunde in Millisekunden  
for i = 0 to 3
		Set ws = CreateObject("WScript.Shell")   
		a = ws.popup( "Der Computer soll heruntergefahren werden." & vbLf & "Ja - Jetzt herunterfahren" & vbLf & "Nein - In 1 Stunde nochmal fragen",30,"Herunterfahren",vbyesno)  
		If (a=-1) Then
		a = ws.popup( "Der Computer soll heruntergefahren werden." & vbLf & "Ja - Jetzt herunterfahren" & vbLf & "Nein - In 1 Stunde nochmal fragen",30,"Herunterfahren",vbyesno)  
		End If
		If (a=-1) Then
		a = ws.popup( "Der Computer soll heruntergefahren werden." & vbLf & "Ja - Jetzt herunterfahren" & vbLf & "Nein - In 1 Stunde nochmal fragen",30,"Herunterfahren",vbyesno)  
		End If
	If a=7 and i<=3 Then
		a = ws.popup( "Es wird in 1 Stunde erneut gefragt, ob der Computer heruntergefahren werden soll.",15,"Herunterfahren")  
      		Wscript.Sleep Wartezeit
	Else
		a = ws.popup( "Der Computer wird in 1 Minute heruntergefahren.",10,"Runterfahrn")  
                Set oShell = WScript.CreateObject("WScript.Shell")  
		oShell.Run "C:\Users\User\Systemdateien\Shutdown\shutdown.bat", 0  
		Wscript.Quit
	End If
Next

@echo off
cd\
cls
echo Shutdown.....
shutdown -s -t 60 -f -c "Herunterfahren in 1 Minute."  

oShell.Run "cmd \c shutdown -s -t 60 -f", 0  

oShell.Run "shutdown.exe /s /T 20 /C """ & "PC wird runtergefahren!"""