http://dieseyer.de • all rights reserved • © 2011 v11.4
'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}"
http://dieseyer.de • all rights reserved • © 2011 v11.4