斷網(wǎng)自動關(guān)機小工具-加上ups可以實現(xiàn)停電自動關(guān)機（VBS腳本-定時1分鐘檢測網(wǎng)絡(luò)情況,如斷開就倒計時120秒關(guān)機）

[重要通告]如您遇疑難雜癥,本站支持知識付費業(yè)務(wù),掃右邊二維碼加博主微信,可節(jié)省您寶貴時間哦!

斷網(wǎng)自動關(guān)機小工具這個是來自網(wǎng)絡(luò)一網(wǎng)友的闡述：

網(wǎng)友公司經(jīng)常異常斷電，搞壞好幾個硬盤，搞一個便宜的ups直接連上電腦上。

網(wǎng)上找了類似的軟件都不好用，直接寫了個；

用于突然停電的情況，電腦實現(xiàn)軟關(guān)機，避免硬件和資料損壞。使用UPS配合主板設(shè)置來電自動開機，不用隨時盯著。

這個主要用于個人win電腦，機房一般都有發(fā)電機和后備電系統(tǒng)，還有維護人員盯著。

原理就是檢測網(wǎng)絡(luò)，內(nèi)網(wǎng)外網(wǎng)IP都可以，防止誤判必填兩個地址，填的是路由器IP和另外一個設(shè)備的IP，同時無法訪問會啟動關(guān)機倒計時，并且有提示音，倒計時期間網(wǎng)絡(luò)恢復(fù)會取消關(guān)機。

軟件如果感覺有點卡，是網(wǎng)絡(luò)檢測超時反饋，不影響使用，不占資源。

易語言寫的會誤報毒，請酌情使用哦：https://cage.lanzouw.com/ihYG112zzvfa

定時1分鐘檢測網(wǎng)絡(luò)情況,如果斷開了就倒計時120秒關(guān)機,如果倒計時期間連上了網(wǎng)則取消關(guān)機的vbs腳本

下面是一個實現(xiàn)你描述的功能的VBS腳本：

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

' 設(shè)置檢測網(wǎng)絡(luò)的時間間隔（毫秒）
CheckInterval = 60000

' 設(shè)置關(guān)機倒計時時間（秒）
ShutdownCountdown = 120

' 設(shè)置初始網(wǎng)絡(luò)狀態(tài)為已連接
IsConnected = True

' 定時檢測網(wǎng)絡(luò)狀態(tài)
Do
' 檢測網(wǎng)絡(luò)連接狀態(tài)
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapter Where NetConnectionStatus = 2")
If colItems.Count = 0 Then
' 網(wǎng)絡(luò)斷開，開始倒計時關(guān)機
If IsConnected Then
IsConnected = False
objShell.Run "shutdown -s -t " & ShutdownCountdown, 0, True
End If
Else
' 網(wǎng)絡(luò)連接正常，取消關(guān)機
If Not IsConnected Then
IsConnected = True
objShell.Run "shutdown -a", 0, True
End If
End If

' 等待一段時間后再次檢測
WScript.Sleep CheckInterval
Loop

可以將以上代碼保存為一個.vbs文件，然后雙擊運行即可開始定時檢測網(wǎng)絡(luò)狀態(tài)。

如果網(wǎng)絡(luò)斷開，則會開始倒計時120秒關(guān)機；如果在倒計時期間重新連接上了網(wǎng)絡(luò)，則會取消關(guān)機。

問題未解決？付費解決問題加Q或微信 2589053300 (即Q號又微信號)右上方掃一掃可加博主微信

所寫所說，是心之所感，思之所悟，行之所得；文當(dāng)無敷衍，落筆求簡潔。 以所舍，求所獲；有所依，方所成！