'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}"