Главная

Форумы

Истории

База знаний

Home Network Community > Все темы > Archer MR200 кастомные прошивки

< Все темы

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

Эта ветка закрыта для дальнейших ответов. Вы можете создать новую тему, чтобы поделиться своими идеями или задать вопросы.

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

ivanw

2018-12-19 09:03:12

Посты: 2

Полезный: 0

Решения: 0

Истории: 0

Дата регистрации: 2018-12-19

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

2018-12-19 09:03:12

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

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

3 Ответить

Ame_ru

2018-12-28 08:31:25

Посты: 1091

Полезный: 34

Решения: 12

Истории: 0

Дата регистрации: 2014-04-07

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

2018-12-28 08:31:25

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

vovan26

LV0

2018-12-30 14:37:14

Посты: 2493

Полезный: 20

Решения: 0

Истории: 0

Дата регистрации: 2014-03-12

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

2018-12-30 14:37:14

Насчет кастомных прошивок обращайтесь к linaro .
Кто не сможет самостоятельно собрать:
Регистрируемся и стучим в личку к linaro.

ivanw

LV0

2019-01-21 15:21:59

Посты: 2

Полезный: 0

Решения: 0

Истории: 0

Дата регистрации: 2018-12-19

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

2019-01-21 15:21:59

[quote=Ame post_id=69945 time=1545985885 user_id=21308] Добрый день. В момент когда отваливается интернет соединение какой уровень сигнала показывает роутер на своей странице настройки ?
Так же в настройках роутера - Advanced - Network - Internet в поле - Network Mode: что выбрано ? [/quote] 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

ivanw

2018-12-19 09:03:12

Посты: 2

Полезный: 0

Решения: 0

Истории: 0

Дата регистрации: 2018-12-19

Информация

Поблагодарили: 0

Просмотры: 3365

Ответы: 3

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

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

Информация

Избиратели 0

Теги