复制代码 代码如下:
Dim Wsh,objWMIService,colMonitoredEvents
Set Wsh = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\. ootwmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect")
Do While True
Set strLatestEvent = colMonitoredEvents.NextEvent
Wsh.run "shutdown -s -t 30 -c "&chr(34)&"系统网络断开，机器即将关闭"&chr(34)
Loop
您可能感兴趣的文章:
- 可以定时自动关机的vbs脚本
- 自己写的一个定时关机或重启的vbs脚本
- vbs实现的定时关机、重启的脚本和程序
- vbs实现的eMule电驴自动关机脚本代码
- Crack8 VBS整人脚本 你不说你爱我 就关机
- VBS中获取系统本次及上次开关机时间的代码(WinXP/win2003/Win7兼容版)
- vb下的恶搞关机程序
- VB关机恶搞小程序
本文由 华域联盟 原创撰写：华域联盟 » VBS 断网后自动关机30秒后
转载请保留出处和原文链接：https://www.cnhackhy.com/15935.htm
