Shulou(Shulou.com)06/03 Report--

This article will explain in detail how to achieve automatic shutdown for 30 seconds after the disconnection of the VBS. The editor thinks it is very practical, so I share it with you for reference. I hope you can get something after reading this article.

The code is as follows:

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) & "the system network is down and the machine is about to shut down" & chr (34)

Loop

This is the end of the article on "how to achieve automatic shutdown for 30 seconds after the disconnection of the VBS". I hope the above content can be of some help to you, so that you can learn more knowledge. if you think the article is good, please share it for more people to see.

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.