VBS 斷網(wǎng)后自動(dòng)關(guān)機(jī)30秒后

來源：本站原創(chuàng)|時(shí)間：2020-01-10|欄目：vb|點(diǎn)擊：次

復(fù)制代碼代碼如下:

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)&"系統(tǒng)網(wǎng)絡(luò)斷開，機(jī)器即將關(guān)閉"&chr(34) 
Loop 

上一篇：SQL獲取表結(jié)構(gòu)的show

欄目：vb

下一篇：利用vbs寫的延時(shí)關(guān)閉ie進(jìn)程的腳本代碼

本文標(biāo)題：VBS 斷網(wǎng)后自動(dòng)關(guān)機(jī)30秒后

本文地址：http://mengdiqiu.com.cn/a1/vb/7491.html

更多vb