mc-wie-jetzt
Goto Top

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

Content-Key: 147847

Url: https://administrator.de/contentid/147847

Printed on: April 19, 2024 at 01:04 o'clock

Member: TsukiSan
TsukiSan Jul 28, 2010 at 13:00:07 (UTC)
Goto Top
Hallo mc-wie-jetzt und Willkommen im Forum!

Es gibt vbs shutdown schon ein Script von bastla
Set objShell = CreateObject("WScript.Shell")  
objShell.Run "shutdown -s -t 100", 0  

Du musst dir nur noch die Zeit anpassen.

Gruss
Tsuki
Member: mc-wie-jetzt
mc-wie-jetzt Jul 28, 2010 at 13:16:55 (UTC)
Goto Top
Ja, das hilft mir schon weiter,
aber ich hätte es gerne so gelöst, das der Rechner dann nicht einfach runter fährt, sondern das in dem Fall, dass der user auf "nein" klickt nach einer Zeit X dieser Dialog nochmal angezeigt wird der zu dem Reboot auffordert.

Hintergrund ist der, dass das Script global auf ca 2500 Clients ausgerollt werden soll und die User zwar den Neustart durchführen sollen, aber der Rechner nicht einfach neustartet sondern der User so lange genervt wird, bis er den Neustart durchführt.

Ideen ?
Member: TsukiSan
TsukiSan Jul 28, 2010 at 13:24:15 (UTC)
Goto Top
ungetestet eventuell in diese Richtung:
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

Gruss
Tsuki
Member: mc-wie-jetzt
mc-wie-jetzt Jul 28, 2010 at 13:32:41 (UTC)
Goto Top
Hey,

Das hat auf Anhieb funktioniert.
Super gut.

vielen vielen Dank !!!!

PS: gibt's irgendwo ein gutes HowTo zu VBS das kostenfrei ist ?
Member: TsukiSan
TsukiSan Jul 28, 2010 at 13:37:53 (UTC)
Goto Top
Kein Problem!

Es gibt sehr viele Online-Sides mit VBS-Scripting-HowTo(s)
Hier wäre jetzt eine, die mir auf die Schnelle einfällt.
Aber in unserer Suchfunktion hier im Forum findest du bestimmt noch viele viele mehr.

Gruss
TSuki