求高人改造一下VBS代码!
发布网友
发布时间:2022-11-02 07:02
我来回答
共1个回答
热心网友
时间:2023-10-22 21:10
修改后代码如下:
'══代══码══开══始════
Dim Wsh,objWMIService,colMonitoredEvents
Set Wsh = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\wmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect")
Do While True
Set strLatestEvent = colMonitoredEvents.NextEvent
k=wsh.popup("网络断开,是否关机",30,"",4)
if k=7 then wscript.quit
Wsh.run "shutdown -s -t 300 -c "&chr(34)&"系统网络断开,机器即将关闭"&chr(34) ,0
Loop
'══代══码══结══束════