myGully.com - Windows 8 Sperren per VBS-Script?

myGully.com (https://mygully.com/index.php)

- Windows8 (https://mygully.com/forumdisplay.php?f=446)

- - Windows 8 Sperren per VBS-Script? (https://mygully.com/showthread.php?t=2759103)

Windows 8 Sperren per VBS-Script?

Hat jemand eine Ahnung, wie ich Windows 8 (Pro/64) per VBS-Scipt sperren kann?

Ein VBS-S***** für das Herunterfahren hab ich zwischenzeitlich, aber eines für das Sperren wäre wirklich nett. Eins für den Neustart wäre natürlich auch super.

Dann reicht nämlich ein Doppelklick und die Kiste macht wieder, was ich will. Der Umweg über die Seitenleiste gefällt mir pers. überhaupt nicht.

Schon mal Danke im Vorraus.

LG

Zwischenfall

Da es für das Sperren keine WMI-Funktion gibt muss man hier auf die WINAPI zurückgreifen:

Code:

On Error Resume Next



Set objShell = CreateObject("Ws*****.Shell")

objShell.Run "%windir%\System32\rundll32.exe user32.dll,LockWorkStation"

Die Zeilen in einen Texteditor kopieren und z.B. als Lock.vbs abspeichern. Durch Doppelklick wird der Rechner automatisch gesperrt.

Für den Neustart kann man auf die WMI zurückgreifen wo es zusätzliche Optionen gibt:

Code:

strServer = "."



const nLogOff=0 

const nReboot=2 

const nForceLogOff=4 

const nForceReboot=6 

const nPowerDown=8 

const nForcePowerDown=12 





Set objWMI = GetObject("winmgmts:{(Shutdown)}!\\" & strServer & "\root\cimv2")



strWQL = "select * from Win32_OperatingSystem"

Set objInstances = objWMI.ExecQuery(strWQL,,48)



For Each objInstance in objInstances

        p_Flag = nReboot

        p_Reserved = 0



        intResult = objInstance.Win32Shutdown(p_Flag, p_Reserved)



Next

Das ganze wie oben in einen Texteditor und z.B. als reboot.vbs speichern.
Ändert man den Wert von p_Flag im Code z.B. auf nLogOff wird kein Neustart sondern ein abmelden durchgeführt.

Guten Morgen neozion,

genau so etwas habe ich gesucht! Herzlichen Dank!

Funktioniert einwandfrei und erleichtert mir das Arbeiten mit Windoof 8 erheblich! :)

mfg

Zwischenfall