Question

怎么用VBS锁定计算机？

不要调用WINKEY+L，要能达到类似多媒体网络教室里的那种锁定功能 。

Answer 1

Set Wshell=WScript.CreateObject(\"WScript.Shell\")
Wshell.Run \"rundll32.exe user32.dll,LockWorkStation\"，1,False

或者

Set colOS = GetObject(\"winmgmts:{(Shutdown)}\").ExecQuery(\"Select * FROM Win32_OperatingSystem\")
For Each eOs In colOS
eOs.Win32Shutdown(4)。

Answer 2

Set Wshell=WScript.CreateObject(\"WScript.Shell\")
Wshell.Run \"rundll32.exe user32.dll,LockWorkStation\",1,False

或者

Set colOS = GetObject(\"winmgmts:{(Shutdown)}\").ExecQuery(\"Select * FROM Win32_OperatingSystem\")
For Each eOs In colOS
eOs.Win32Shutdown(4)
Next

完成了。