当前位置 博文首页 > VBS 断网后自动关机30秒后

最大化 缩小

    VBS 断网后自动关机30秒后

    作者：admin 时间：2021-02-13 18:03

    复制代码 代码如下:

    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
    js
    上一篇：写个设置命令的VBS脚本代码
    下一篇：没有了