Wenn es nicht tut, hilft nur Reboot. Ihr kennt alle diese tollen Sprüche. Im Ernst…
Nach Installationen oder auch zu Wartungszwecken ist es mitunter nötig den Rechner oder das Notebook unter Windows neu zu starten.
Dieses kurze Script kann dabei helfen und am Ende einer Prozedur hinzugefügt werden. Der Benutzer kann die Ausführung, wenn es nötig sein sollte, abbrechen.
Ihr könnt das Script dem entsprechend abändern. Ausführung erfolgt mit „Windows Based Script Host“.
nachricht = "Beschreibung:" & vbCr & "Dieses Skript startet Windows neu. ACHTUNG: Windows wird mit diesem Skript NEU GESTARTET!" & vbCr & vbCr & "Jetzt das Skript ausführen?"
antwort = MsgBox(nachricht, vbYesNo + vbQuestion)
if antwort = vbNo then
MsgBox "Abbruch", vbExclamation
WScript.Quit
end if
'SYS: Windows Shell Common Dll
Set shell = CreateObject("Shell.Application")
'SYS: Windows Script Host Runtime Library
Set wshshell = CreateObject("WScript.Shell")
antwort = MsgBox("Wollen Sie wirklich Windows neu starten?", vbYesNo + vbQuestion)
If antwort = vbYes Then
' Beenden aufrufen
shell.ShutdownWindows
' halbe Sekunde warten
WScript.Sleep 750
' Neu starten wählen
wshshell.SendKeys "%N{ENTER}"
End If