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

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

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 "c"          ' c  für  Comp. Herrunter..   deutsche  NT4-Version
' WshShell.sendkeys "s"          ' s  für  ShutDown            englische W2k-Version
  WshShell.sendkeys "h"          ' h  für  Herrunter..         deutsche  W2k-Version
' *** nächste Zeile frei geben
' WshShell.sendkeys "{Enter}"