断网自动关机小工具-加上ups可以实现停电自动关机（VBS脚本-定时1分钟检测网络情况,如断开就倒计时120秒关机）

[重要通告]如您遇疑难杂症,本站支持知识付费业务,扫右边二维码加博主微信,可节省您宝贵时间哦!

断网自动关机小工具这个是来自网络一网友的阐述：

网友公司经常异常断电，搞坏好几个硬盘，搞一个便宜的ups直接连上电脑上。

网上找了类似的软件都不好用，直接写了个；

用于突然停电的情况，电脑实现软关机，避免硬件和资料损坏。使用UPS配合主板设置来电自动开机，不用随时盯着。

这个主要用于个人win电脑，机房一般都有发电机和后备电系统，还有维护人员盯着。

原理就是检测网络，内网外网IP都可以，防止误判必填两个地址，填的是路由器IP和另外一个设备的IP，同时无法访问会启动关机倒计时，并且有提示音，倒计时期间网络恢复会取消关机。

软件如果感觉有点卡，是网络检测超时反馈，不影响使用，不占资源。

易语言写的会误报毒，请酌情使用哦：https://cage.lanzouw.com/ihYG112zzvfa

定时1分钟检测网络情况,如果断开了就倒计时120秒关机,如果倒计时期间连上了网则取消关机的vbs脚本

下面是一个实现你描述的功能的VBS脚本：

Set objShell = CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

' 设置检测网络的时间间隔（毫秒）
CheckInterval = 60000

' 设置关机倒计时时间（秒）
ShutdownCountdown = 120

' 设置初始网络状态为已连接
IsConnected = True

' 定时检测网络状态
Do
' 检测网络连接状态
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapter Where NetConnectionStatus = 2")
If colItems.Count = 0 Then
' 网络断开，开始倒计时关机
If IsConnected Then
IsConnected = False
objShell.Run "shutdown -s -t " & ShutdownCountdown, 0, True
End If
Else
' 网络连接正常，取消关机
If Not IsConnected Then
IsConnected = True
objShell.Run "shutdown -a", 0, True
End If
End If

' 等待一段时间后再次检测
WScript.Sleep CheckInterval
Loop

可以将以上代码保存为一个.vbs文件，然后双击运行即可开始定时检测网络状态。

如果网络断开，则会开始倒计时120秒关机；如果在倒计时期间重新连接上了网络，则会取消关机。

问题未解决？付费解决问题加Q或微信 2589053300 (即Q号又微信号)右上方扫一扫可加博主微信

所写所说，是心之所感，思之所悟，行之所得；文当无敷衍，落笔求简洁。 以所舍，求所获；有所依，方所成！