Archer MR200 кастомные прошивки

AC750 Беспроводной двухдиапазонный 4G LTE-маршрутизатор
Ответить
ivanw
Сообщения: 2
Зарегистрирован: 19 дек 2018, 11:38
Страна: Россия

Archer MR200 кастомные прошивки

Сообщение ivanw » 19 дек 2018, 12:03

Название темы: Archer MR200
Модель модема: встроенный
Описание проблемы: Всем привет, есть ли у кого успешный опыт накатывания кастомных прошивок? Видел некоторые решения - рутера, опенврт и тд. Мне нужен функционал ребута по расписанию и watchdog на отсутствие пинга.

Ну или может кто посоветует другое решение, плясать с заменами симкарт и бп нет желания, переодически инет мегафона отваливается, решается перезагрузкой роутера через вебпанель. Видел еще скрипт перезагрузки через powershell с пк для зухелей, у нас есть подобное? :)

Ame
Модератор
Модератор
Сообщения: 412
Зарегистрирован: 07 апр 2014, 11:41
Страна: Москва

Re: Archer MR200 кастомные прошивки

Сообщение Ame » 28 дек 2018, 11:31

Добрый день. В момент когда отваливается интернет соединение какой уровень сигнала показывает роутер на своей странице настройки ?
Так же в настройках роутера - Advanced - Network - Internet в поле - Network Mode: что выбрано ?

vovan26
OpenWrt разработчик
OpenWrt разработчик
Сообщения: 2455
Зарегистрирован: 12 мар 2014, 17:20
Страна: Узбкистан
Откуда: Узбекистан

Re: Archer MR200 кастомные прошивки

Сообщение vovan26 » 30 дек 2018, 17:37

Изображение
Насчет кастомных прошивок обращайтесь к linaro .
Кто не сможет самостоятельно собрать:
Регистрируемся и стучим в личку к linaro.
http://4pda.ru/forum/index.php?showtopi ... ry72222850
Разработка ПО для роутеров на базе OpenWrt.
Желание получить ответ, предполагает умение сформулировать вопрос. (И.В. Сталин)
На общие вопросы в личке не отвечаю, задайте его на форуме.

ivanw
Сообщения: 2
Зарегистрирован: 19 дек 2018, 11:38
Страна: Россия

Re: Archer MR200 кастомные прошивки

Сообщение ivanw » 21 янв 2019, 18:21

Ame писал(а):
28 дек 2018, 11:31
Добрый день. В момент когда отваливается интернет соединение какой уровень сигнала показывает роутер на своей странице настройки ?
Так же в настройках роутера - Advanced - Network - Internet в поле - Network Mode: что выбрано ?
http://prntscr.com/ma4nfp вот что выбрано

уровень соединения стабильно 75%, инет падает стабильно в 0-00 по Москве, может 15-тью минутами позднее. :roll: Ну, тем более в офисе нет никого в такое время, следовательно наверняка я сказать не могу, просто некоторые сервисы в офисе отправляют уведомления чуть позже 12-цати, что интернет отключился. Пока кое как работает скрипт из повершела, но там видимо не все так верно. Ощущение, будто пинг каждые 5 минут по скрипту не дает ему засыпать

Код: Выделить всё

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.ya.ru")_
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(Now() & " " & strComputer & " is UP ")
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 "dev reboot~" & chr(13)
WScript.Sleep 2000
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

Ответить

Вернуться в «Archer MR200»