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"

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()

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 ]