复制代码 代码如下:
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关机恶搞小程序
咨 询 客 服