Название темы: Archer MR200
Модель модема: встроенный
Описание проблемы: Всем привет, есть ли у кого успешный опыт накатывания кастомных прошивок? Видел некоторые решения - рутера, опенврт и тд. Мне нужен функционал ребута по расписанию и watchdog на отсутствие пинга.
Ну или может кто посоветует другое решение, плясать с заменами симкарт и бп нет желания, переодически инет мегафона отваливается, решается перезагрузкой роутера через вебпанель. Видел еще скрипт перезагрузки через powershell с пк для зухелей, у нас есть подобное?
Дорогие пользователи! У нас появился новый форум на платформе tp-link.community (Сообщество)
Форум доступен по ссылке https://community.tp-link.com/ru
Если при регистрации в Сообществе Вы укажете адрес электронный почты, который используете на данном форуме, то Ваши данные будут перенесены на форум Сообщества автоматически.
Также, если на форуме Сообщества Ваш никнейм будет занят, то Вам предложат сменить его или оставить, но с приставкой "_RU".
Подробнее Вы можете прочитать тут: https://community.tp-link.com/ru/home/f ... pic/501542
Убедительная просьба не дублировать темы на старом/новом форуме.
Форум доступен по ссылке https://community.tp-link.com/ru
Если при регистрации в Сообществе Вы укажете адрес электронный почты, который используете на данном форуме, то Ваши данные будут перенесены на форум Сообщества автоматически.
Также, если на форуме Сообщества Ваш никнейм будет занят, то Вам предложат сменить его или оставить, но с приставкой "_RU".
Подробнее Вы можете прочитать тут: https://community.tp-link.com/ru/home/f ... pic/501542
Убедительная просьба не дублировать темы на старом/новом форуме.
Archer MR200 кастомные прошивки
Правила форума
Правила форума TP-LINK lll ЧАВО lll Первичная настройка WAN роутера lll Настройка под провайдеров lll Официальные прошивки и драйверы lll
Правила форума TP-LINK lll ЧАВО lll Первичная настройка WAN роутера lll Настройка под провайдеров lll Официальные прошивки и драйверы lll
Re: Archer MR200 кастомные прошивки
Добрый день. В момент когда отваливается интернет соединение какой уровень сигнала показывает роутер на своей странице настройки ?
Так же в настройках роутера - Advanced - Network - Internet в поле - Network Mode: что выбрано ?
Так же в настройках роутера - Advanced - Network - Internet в поле - Network Mode: что выбрано ?
-
- OpenWrt разработчик
- Сообщения: 2493
- Зарегистрирован: 12 мар 2014, 17:20
- Страна: Узбкистан
- Откуда: Узбекистан
Re: Archer MR200 кастомные прошивки
Насчет кастомных прошивок обращайтесь к linaro .
Кто не сможет самостоятельно собрать:
Регистрируемся и стучим в личку к linaro.
http://4pda.ru/forum/index.php?showtopi ... ry72222850
Кто не сможет самостоятельно собрать:
Регистрируемся и стучим в личку к linaro.
http://4pda.ru/forum/index.php?showtopi ... ry72222850
Разработка ПО для роутеров на базе OpenWrt.
Желание получить ответ, предполагает умение сформулировать вопрос. (И.В. Сталин)
На общие вопросы в личке не отвечаю, задайте его на форуме.
Желание получить ответ, предполагает умение сформулировать вопрос. (И.В. Сталин)
На общие вопросы в личке не отвечаю, задайте его на форуме.
Re: Archer MR200 кастомные прошивки
http://prntscr.com/ma4nfp вот что выбрано
уровень соединения стабильно 75%, инет падает стабильно в 0-00 по Москве, может 15-тью минутами позднее. Ну, тем более в офисе нет никого в такое время, следовательно наверняка я сказать не могу, просто некоторые сервисы в офисе отправляют уведомления чуть позже 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