Jump to content

sfoc

Members
 Profil anzeigen  Aktivitäten des Benutzers anzeigen

  • Gesamte Inhalte

    126

  • Registriert seit

  • Letzter Besuch

 Inhaltstyp 

Beiträge erstellt von sfoc

  24. Shutdown automatisieren

    in Windows Forum — Allgemein

    Geschrieben

    aus der doku und dem ie habe ich mal folgendes zusammengestellt und getestet aber die veranwortung uebernehme ich nicht fuer das script - benutzung auf eigene gefahr

     

    ' =========================================================
' File	:		
'
' Author	:	
' Date	:	Wednesday, 21. October 2003	
' =========================================================
Option Explicit

Dim answer

answer = MsgBox("really???", vbOkCancel + vbDefaultButton2, WScript.ScriptName)
if answer = vbOK Then
	Shutdown
else 
	Wscript.Quit
end if

' #########################################################
' ### aus der doku diese informationen wie das gehandelt wird
' ### ----------
' ### Die Methode "Shutdown" schließt Programme und DLLs, 
' ### bis der Computer sicher ausgeschaltet werden kann. 
' ### Alle Dateipuffer werden auf den Datenträger übertragen
' ### und alle aktiven Prozesse werden beendet. Auf Computern
' ### mit Windows NT/2000 muss der aufrufende Prozess die 
' ### Berechtigung SE_SHUTDOWN_NAME haben. Diese Methode gibt
' ### einen der folgenden ganzzahligen Werte zurück: 0 - Erfolgreicher 
' ### Abschluss. Andere - Andere als oben aufgeführte ganzzahlige Werte
' ### finden Sie in der Win32-Fehlercodedokumentation. 
' ### ---------- 
' ### Zusatzinfos: Befehl realisiert durch: = 
' ### 	Win32API|System Shutdown Functions|ExitWindowsEx|EWX_SHUTDOWN
Private Sub Shutdown()
Dim objWMIOS
Dim strComputer, fld

set objWMIOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
for each fld in objWMIOS
	fld.Win32Shutdown(1)
next
End Sub

     

    es ist zu uembruchen gekommen bitte beachten

     

    regards

×
×
  • Neu erstellen...