一、新建txt的文本

二、编辑内容：

rem 若网线被拔，则进入自动关机倒计时，“-t 30”是倒计时的时间
Dim Wsh,objWMIService,colMonitoredEvents
Set Wsh = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\.rootwmi")
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

三、保存，重命名为.vbs文件

四、双击运行生效