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

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

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

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

Ну или может кто посоветует другое решение, плясать с заменами симкарт и бп нет желания, переодически инет мегафона отваливается, решается перезагрузкой роутера через вебпанель. Видел еще скрипт перезагрузки через powershell с пк для зухелей, у нас есть подобное? :)
  0      
  0      
#1
Опции
3 Ответить
Re: Archer MR200 кастомные прошивки
2018-12-28 08:31:25
Добрый день. В момент когда отваливается интернет соединение какой уровень сигнала показывает роутер на своей странице настройки ?
Так же в настройках роутера - Advanced - Network - Internet в поле - Network Mode: что выбрано ?
  0  
  0  
#1
Опции
Re: Archer MR200 кастомные прошивки
2018-12-30 14:37:14
Насчет кастомных прошивок обращайтесь к linaro .
Кто не сможет самостоятельно собрать:
Регистрируемся и стучим в личку к linaro.
  0  
  0  
#1
Опции
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
  0  
  0  
#1
Опции

Информация

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

Просмотры: 3287

Ответы: 3

Статьи по теме