Windows durch ein VBScript herunterfahren
Durch die folgenden zwei Zeilen können Sie in einem Visual Basic Script (*.vbs) dafür sorgen, dass Windows heruntergefahren wird.
Set objWScriptShell = WScript.CreateObject("WScript.Shell")
objWScriptShell.Run "C:\Windows\System32\shutdown.exe /s /f /t 0"
objWScriptShell.Run "C:\Windows\System32\shutdown.exe /s /f /t 0"
Wenn Sie vor dem Herunterfahren eine Abfrage anzeigen wollen, wodurch der Vorgang bestätigt beziehungsweise abgebrochen werden kann, könnte Ihr Visual Basic Script wie folgt aussehen.
Option Explicit
' Declaration of variables
Dim intResult
Dim objWScriptShell
' Request user if shutdown is desired
intResult = MsgBox("Soll der Rechner heruntergefahren werden?",4,"Herunterfahren")
if intResult = 6 Then
' Create WScript Shell object
Set objWScriptShell = WScript.CreateObject("WScript.Shell")
' Execute Windows shutdown
objWScriptShell.Run "C:\Windows\System32\shutdown.exe /s /f /t 0"
' Deallocate WScript Shell object
Set objWScriptShell = Nothing
End If
' Quit Visual Basic Script
WScript.Quit()
' Declaration of variables
Dim intResult
Dim objWScriptShell
' Request user if shutdown is desired
intResult = MsgBox("Soll der Rechner heruntergefahren werden?",4,"Herunterfahren")
if intResult = 6 Then
' Create WScript Shell object
Set objWScriptShell = WScript.CreateObject("WScript.Shell")
' Execute Windows shutdown
objWScriptShell.Run "C:\Windows\System32\shutdown.exe /s /f /t 0"
' Deallocate WScript Shell object
Set objWScriptShell = Nothing
End If
' Quit Visual Basic Script
WScript.Quit()
Dieser Eintrag wurde am 08.09.2012 erstellt und zuletzt am 22.12.2012 bearbeitet.
Direkter Link zu dieser Seite: http://www.gtkdb.de/index_29_1846.html
[ Zur Startseite ] [ Zur Kategorie ]
© 2004-2021 by Georg Kainzbauer