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
要實現這壹腳本 必須為妳的系統登錄賬戶設置壹個密碼 這樣計算機就能鎖定了