Мониторинг зависаний

Частенько бывает, что компьютер или модем/интернет/ наглухо зависли, а мы и не в курсе… Делимся способами как минимизировать убытки от таких неприятностей.

2 лайка

Способ работает только тогда когда вы находитесь в одной сети wi-fi. Скачиваем на телефон и устанавливаем PingTools. Во вкладке мониторинг добавляем два ресурса, собственно что мы будем мониторить: kriptex.org /проверяем модем и интернет/ и собственно компьютер. Раз в минуту телефон пингует эти ресурсы и если какой-то не отвечает, то мы слышим звуковое оповещение.

1 лайк

Просто включаем оповещение и криптек отправит на почту если что то не фурычит, открываем почту на телефоне или где будет удобно воаля

Скрипт, контролирует интернет соединение, при отсутствии связи перезагружает модем. Копируем в блокнот, меняем ап адрес модема, логин и пароль, сохраняем с расширением .vbs. В планировщике задач прописываем выполнение скрипта каждые 10 минут. Из минусов: работает только при английской раскладки клавиатуры.
Function PcOnline (strComputer)
‘Check if the remote machine is online.
Dim objPing,objStatus
Dim TextStream, TimeVar
Dim fso, tf
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set objPing = GetObject(“winmgmts:{impersonationLevel=impersonate}”)._
ExecQuery(“select Replysize from Win32_PingStatus where address = '” & strComputer & "’")
For Each objStatus in objPing
If IsNull(objStatus.ReplySize) Then
PcOnline=False
'Пишем Лог файл
Set fso = CreateObject(“Scripting.FileSystemObject”)
If (fso.FileExists(“c:\routerlog.txt”)) Then
Set tf = fso.OpenTextFile(“c:\routerlog.txt”,ForAppending, True)
tf.WriteLine(Now() & " " & strComputer & " is down “)
tf.Close()
Set fso = Nothing
Set tf = Nothing
Else
Set tf = fso.CreateTextFile(“c:\routerlog.txt”,ForAppending, True)
tf.WriteLine(Now() & " " & strComputer & " is down “)
tf.Close()
Set fso = Nothing
Set tf = Nothing
End If
’ Конец Лог файла
Else
PcOnline = True
'Wscript.Echo strComputer & " is responding to a ping "
End If
Next
Set objPing=Nothing
Set objStatus=Nothing
End Function
Dim fsot, tft
Const ForReading = 1, ForWriting = 2, ForAppending = 8
If PcOnline(“www.kryptex.org”)_
OR PcOnline(“www.google.com”)_
Then
’ если статус = 0, пустая строка — другое
’ Wscript.Echo “all ok”
Set fsot = CreateObject(“Scripting.FileSystemObject”)
Set tft = fsot.OpenTextFile(“c:\routerlog.txt”,ForAppending, True)
tft.WriteLine(”-----------------”)
tft.Close()
Set fsot = Nothing
Set tft= Nothing
WScript.Quit 0
Else
'WScript.Echo “Reboot”
Set oShell = WScript.CreateObject(“WScript.Shell”)
oShell.Run “telnet.exe 192.168.1.1”
WScript.Sleep 2000
oShell.SendKeys “admin” & chr(13)
WScript.Sleep 2000
oShell.SendKeys “ПАРОЛЬ” & chr(13)
WScript.Sleep 2000
oShell.SendKeys “reboot” & chr(13)
WScript.Sleep 2000
oShell.SendKeys “^({]})q” & chr(13)
WScript.Quit 255
End If
Set fsot = CreateObject(“Scripting.FileSystemObject”)
Set tft = fsot.OpenTextFile(“c:\routerlog.txt”,ForAppending, True)
tft.WriteLine("--------ОК---------")
tft.Close()
Set fsot = Nothing
Set tft= Nothing