斷網自動關機小工具-加上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秒關機；如果在倒計時期間重新連接上了網絡，則會取消關機。