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