VBS 断网后自动关机30秒后

2019-10-26 18:03:19

字体：大中小

来源：转载

供稿：网友

复制代码代码如下:

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 批量读取文件夹内所有的文本到Excel的脚本

下一篇：vbs 合并多个excel文件的脚本