当前位置:DOS资源站资料中心VBS脚本 → 拔掉网线就关机的VBS脚本

拔掉网线就关机的VBS脚本

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2008-5-2 1:48:49

'拔掉网线就关机的脚本
'cmdos.net制作,送给需要的朋友
'说明:shutdown -s -t 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