http://dieseyer.de • all rights reserved • © 2011 v11.4

'v2.5*****************************************************
' File: W2kRestart.vbs
' Autor: dieseyer@gmx.de
' dieseyer.de
'
' Startet Win2k-System neu; erstellt ein Protokoll
' Startet nicht als Dienst; es muss ein geöffneter Desktop
' vorhanden sein
'*********************************************************

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")

Set FileOut = fso.OpenTextFile(WScript.ScriptName & ".Log", 8, true) ' Datei zum Erweitern öffnen (notfals anlegen)
TextX = now & vbTab & WScript.ScriptName & " wird jetzt gestratet."
FileOut.WriteLine (TextX)
FileOut.Close
Set FileOut = Nothing ' Datei schließen

WshShell.sendkeys "^{ESC}" ' entspr. <Winows> - Taste
WshShell.sendkeys "{ESC}" ' Abbrechen - ak. Applikation ist jetzt der Desktop
WshShell.sendkeys "%{F4}" ' <Alt-F4> für den Desktop
' WshShell.sendkeys "n" ' n für Neustart deutsche NT4-Version
' WshShell.sendkeys "r" ' r für Restart englische W2k-Version
WshShell.sendkeys "n" ' n für Neustart deutsche W2k-Version
' *** nächste Zeile frei geben
' WshShell.sendkeys "{Enter}"


http://dieseyer.de • all rights reserved • © 2011 v11.4