UC知道用VBS脚本当网络断开时锁定电脑，恢复时解除锁定
来源：百度知道 编辑：UC知道 时间：2024/06/10 14:52:11
请教各位VBS编程高手，如何编制用VBS脚本当网络断开时锁定电脑，恢复时解除锁定。当某一软件或某exe文件终止时重新启动电脑，例如Q.EXE
编制用VBS脚本程序，当网络断开连接时锁住电脑键盘跟鼠标．网络恢复时解除锁定电脑键盘跟鼠标．简单来说就是防止拔网线，
以下这段是网络断开后关机的：
Dim Wsh,objWMIService,colMonitoredEvents
Set Wsh = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\wmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect")
Do While True
Set strLatestEvent = colMonitoredEvents.NextEvent
Wsh.run "shutdown -s -t 10 -c "&chr(34)&"系统网络断开，机器即将关闭"&chr(34)
Loop
但是我想要的是不要关机，只是锁定键盘鼠标，网络重新连接后自动解除锁定．
编制用VBS脚本程序，当网络断开连接时锁住电脑键盘跟鼠标．网络恢复时解除锁定电脑键盘跟鼠标．简单来说就是防止拔网线，
以下这段是网络断开后关机的：
Dim Wsh,objWMIService,colMonitoredEvents
Set Wsh = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\wmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect")
Do While True
Set strLatestEvent = colMonitoredEvents.NextEvent
Wsh.run "shutdown -s -t 10 -c "&chr(34)&"系统网络断开，机器即将关闭"&chr(34)
Loop
但是我想要的是不要关机，只是锁定键盘鼠标，网络重新连接后自动解除锁定．
Dim Wsh,objWMIService,colMonitoredEvents
Set Wsh = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\wmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect")
Do While True
Set strLatestEvent = colMonitoredEvents.NextEvent
Wsh.run "shutdown -l"&chr(34)&"系统网络断开，即将锁定计算机"&chr(34)
Loop
要实现这一脚本 必须为你的系统登录账户设置一个密码 这样计算机就能锁定了
说清楚点。。。。
难，，用其他批处理到是可以做到。。
建议你去找相关软件
写起来不容易,不过给你点思路.
兄弟论坛你去看看吧,那里你可以找到答案,也可以找到高人.
我就不费劲帮你写了.