Дорогие пользователи! У нас появился новый форум на платформе tp-link.community (Сообщество)

Форум доступен по ссылке https://community.tp-link.com/ru

Если при регистрации в Сообществе Вы укажете адрес электронный почты, который используете на данном форуме, то Ваши данные будут перенесены на форум Сообщества автоматически.
Также, если на форуме Сообщества Ваш никнейм будет занят, то Вам предложат сменить его или оставить, но с приставкой "_RU".

Подробнее Вы можете прочитать тут: https://community.tp-link.com/ru/home/f ... pic/501542

Убедительная просьба не дублировать темы на старом/новом форуме.

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

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

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

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

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

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

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

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

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

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

vovan26
OpenWrt разработчик
OpenWrt разработчик
Сообщения: 2493
Зарегистрирован: 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»