断网自动关机

问题描述：

路由器关闭以后，计算机就可以自动关闭，源码谢谢。

问题解答：

以下是一段VBS肢本代码...
该代码可以实现断网后自动关机功能关机时间可以自动设置大小
我这里设了60秒...
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 60 -c "&chr(34)&"系统网络断开，机器即将关闭"&chr(34)
Loop
把以上代码保存为*.VBS格式即可