Archer MR200 кастомные прошивки
Эта ветка закрыта для дальнейших ответов. Вы можете создать новую тему, чтобы поделиться своими идеями или задать вопросы.
Archer MR200 кастомные прошивки
Посты: 2
Полезный: 0
Решения: 0
Истории: 0
Дата регистрации: 2018-12-19
2018-12-19 09:03:12
Посты: 2
Полезный: 0
Решения: 0
Истории: 0
Дата регистрации: 2018-12-19
Archer MR200 кастомные прошивки
2018-12-19 09:03:12
Теги:
Модель модема: встроенный
Описание проблемы: Всем привет, есть ли у кого успешный опыт накатывания кастомных прошивок? Видел некоторые решения - рутера, опенврт и тд. Мне нужен функционал ребута по расписанию и watchdog на отсутствие пинга.
Ну или может кто посоветует другое решение, плясать с заменами симкарт и бп нет желания, переодически инет мегафона отваливается, решается перезагрузкой роутера через вебпанель. Видел еще скрипт перезагрузки через powershell с пк для зухелей, у нас есть подобное?
0
Мы ценим Ваш отзыв. Не стесняйтесь, дайте нам знать больше. Войдите, чтобы отправить отзыв.
0
Мы ценим Ваш отзыв. Не стесняйтесь, дайте нам знать больше. Войдите, чтобы отправить отзыв.
#1
Опции
- Копировать ссылку
- Подписаться
- Добавить в закладки
- Пожаловаться на неуместный контент
Управление потоком
Управление объявлениями
3 Ответить
Посты: 1091
Полезный: 34
Решения: 12
Истории: 0
Дата регистрации: 2014-04-07
Re: Archer MR200 кастомные прошивки
2018-12-28 08:31:25
Так же в настройках роутера - Advanced - Network - Internet в поле - Network Mode: что выбрано ?
0
Мы ценим Ваш отзыв. Не стесняйтесь, дайте нам знать больше. Войдите, чтобы отправить отзыв.
0
Мы ценим Ваш отзыв. Не стесняйтесь, дайте нам знать больше. Войдите, чтобы отправить отзыв.
#1
Опции
- Копировать ссылку
- Пожаловаться на неуместный контент
Управление потоком
Управление объявлениями
Посты: 2493
Полезный: 20
Решения: 0
Истории: 0
Дата регистрации: 2014-03-12
Re: Archer MR200 кастомные прошивки
2018-12-30 14:37:14
0
Мы ценим Ваш отзыв. Не стесняйтесь, дайте нам знать больше. Войдите, чтобы отправить отзыв.
0
Мы ценим Ваш отзыв. Не стесняйтесь, дайте нам знать больше. Войдите, чтобы отправить отзыв.
#1
Опции
- Копировать ссылку
- Пожаловаться на неуместный контент
Управление потоком
Управление объявлениями
Посты: 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] Добрый день. В момент когда отваливается интернет соединение какой уровень сигнала показывает роутер на своей странице настройки ?http://prntscr.com/ma4nfp вот что выбрано
Так же в настройках роутера - Advanced - Network - Internet в поле - Network Mode: что выбрано ? [/quote]
уровень соединения стабильно 75%, инет падает стабильно в 0-00 по Москве, может 15-тью минутами позднее.
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
Опции
- Копировать ссылку
- Пожаловаться на неуместный контент
Управление потоком
Управление объявлениями
Посты: 2
Полезный: 0
Решения: 0
Истории: 0
Дата регистрации: 2018-12-19
2018-12-19 09:03:12
Посты: 2
Полезный: 0
Решения: 0
Истории: 0
Дата регистрации: 2018-12-19
Информация
Поблагодарили: 0
Просмотры: 3366
Ответы: 3
Избиратели 0
За него еще никто не проголосовал.
Теги
Статьи по теме
Прошить Archer MR200 (AC750)
2355
0
Пожаловаться на неуместный контент
Модуль переноса
Новое сообщение