VBS 断网后自动关机30秒后

来源：本站原创|时间：2020-01-10|栏目：vb|点击：次

复制代码代码如下:

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 

上一篇：SQL获取表结构的show

栏目：vb

下一篇：利用vbs写的延时关闭ie进程的脚本代码

本文标题：VBS 断网后自动关机30秒后

本文地址：https://www.xiuzhanwang.com/a1/vb/7491.html

更多vb

您可能感兴趣的文章

阅读排行

本栏相关

随机阅读

网页制作 CMS教程网络编程软件编程脚本语言数据库服务器

如果侵犯了您的权利，请与我们联系，我们将在24小时内进行处理、任何非本站因素导致的法律后果，本站均不负任何责任。

联系QQ：835971066 | 邮箱：835971066#qq.com(#换成@)