Скрипт для перезагрузки роутера по значению внешнего IP

@KOHTAKT · Регистрация: 11.01.2021

Студворк — интернет-сервис помощи студентам

Доброго времени суток! Ребята, нужен скрипт перезагрузки роутера, если первый октет внешнего адреса имеет значение 100. Перезагружать пока первый октет имеет значение 100 (или можно ограничиться 10 перезагрузок с проверкой и затем, если не изменился, то повторить перезагрузку через некоторое время).
Я не программист. Поискав, нашел некоторые намётки. Можно через TELNET организовать перезагрузку, кусочек скрипта уже опробовал, работает. А вот с проверкой условия труднее. Есть вроде бы вариант через IFCONFIG получить внешний ppp0 inet addr.
Не пинайте, если не в той теме обратился.

@KOHTAKT · 26.01.2021, 23:10 **[ТС]**

FlasherX, тут ещё момент, на который нужно обратить внимание: ели вы берете для проверки ip из внешнего ресурса, то там он не будет начинаться на 100,а будет иметь значение 85. Если вы считываете значение ip, как это делает роутер, то только по таким данным нужно отсеивать ip-шники начинающиеся на 100.
Я может быть сбивчиво и не очень сформулированно пытаюсь объяснить. Изначально я имел ввиду, что когда роутер видит внешний ip начинающийся на 100 (в веб-морде wan адрес начинается на 100).

FlasherX · 26.01.2021, 23:47

Сообщение от KOHTAKT

а будет иметь значение 85

Поменять 100 на 85 в 21 и 22 строках не будет решением?

Сообщение от KOHTAKT

в веб-морде wan адрес начинается на 100

Значит, он не белый. LAN отличается, кстати? Присоединившийся коллега, кстати, ранее уже поднимал этот вопрос.

@KOHTAKT · 27.01.2021, 00:02 **[ТС]**

Сообщение от FlasherX

Поменять 100 на 85 в 21 и 22 строках не будет решением?

Возможно и будет, тем более скрипт сам определяет ip c 85 по внешнему запросу. Но только действий по ребуту роутера не происходит, и не понятно, проверяется ли условие.

Добавлено через 4 минуты

Сообщение от FlasherX

LAN отличается, кстати?

Не совсем понял вопрос. LAN у меня в вебке роутера показывает 192.168.0.1, если вы про него спрашиваете.

И ещё, я думал с самого начала, что будет достаточно как-то взять адрес wan из самого роутера. Это же он его значение на веб-панель выводит?

FlasherX · 27.01.2021, 00:17

Сообщение от KOHTAKT

Но только действий по ребуту роутера не происходит

Может, где-то вводные не соответствуют. Хотя должны.
Отдельно пробуйте TST10.exe /r:commands.txt /m. commands.txt:

Code
1
2
3
4
5
6
7
192.168.0.1 23
WAIT "Dlink-Router login: "
SEND "admin\m"
WAIT "Password: "
SEND "12345\m"
WAIT "$ "
SEND "reboot\m"

Сообщение от KOHTAKT

и не понятно, проверяется ли условие.

Само собой, проверяется.

Сообщение от KOHTAKT

если вы про него спрашиваете.

С выполнением данного кода что в буфере появится?

Сообщение от KOHTAKT

будет достаточно как-то взять адрес wan из самого роутера

Т. е. опять с роутером обсуждать командами? Нет смысла.

@KOHTAKT · 27.01.2021, 00:25 **[ТС]**

Сообщение от FlasherX

Отдельно пробуйте

Нет, не ребутится. Выдает пустую командную строку.

FlasherX · 27.01.2021, 00:31

Сообщение от KOHTAKT

Выдает пустую командную строку.

Это надо в самом клиенте смотреть, а не в cmd. Я же выше писал, что это GUI.
/m можно убрать, чтобы минимизации не было.

@KOHTAKT · 27.01.2021, 00:41 **[ТС]**

FlasherX, это значит запускать через Win+R ?

FlasherX · 27.01.2021, 00:43

KOHTAKT, не суть как. По Win+R придётся указывать полные пути к файлам.

@KOHTAKT · 27.01.2021, 00:46 **[ТС]**

FlasherX, я рядовой пользователь , поэтому мне желательно указывать конкретно что и куда положить и что нажать.

Я даже разницы ещё не пойму: запускать с консоли или запускать с ФМ.

FlasherX · 27.01.2021, 01:06

KOHTAKT, сложить файлы в одной простой несистемной папке, оставив её рабочей/активной. Из комстроки ФМ (например, в Total Commander — Shift+влево/вправо) выполнить приведённую команду.

@KOHTAKT · 27.01.2021, 01:22 **[ТС]**

FlasherX, запустил из ТС, мелькнуло окошко темное, и никакой реакции от роутера.

Добавлено через 11 минут

Сообщение от Kubuntovod

Script.vbs

Запускал через cscript в cmd. Появляется окно, логинится и ребутится. Потом пишет потеряна связь.
А в окне запуска скрипта поясляется сообщение
C:\Users\Admin\Desktop\reboot_dir_1.vbs( 25, 5) msxml3.dll: Не удается найти указанный ресурс.

FlasherX · 27.01.2021, 01:37

KOHTAKT, а если последнюю строку SEND "reboot\m" убрать?
Я бы тестировал сперва так:

192.168.0.1 23

WAIT "Dlink-Router login: "

SEND "admin\m"

Может, 'Dlink-Router ' вообще стоит убрать? Потом:

192.168.0.1 23

WAIT "Dlink-Router login: "

SEND "admin\m"

WAIT "Password: "

SEND "12345\m"

И потом уже целиком (с/без последней строки).
Файл лучше в ANSI сохраняйте.

Сообщение от KOHTAKT

А в окне запуска скрипта поясляется сообщение

Я уже отвечал про грабли. Мы это прошли ранее.

@KOHTAKT · 27.01.2021, 01:47 **[ТС]**

FlasherX, по-разному пробовал -ничего. А можно как-то остановить сценарий, чтобы видно было, что пишется в мелькающем окне?

Добавлено через 2 минуты

Сообщение от FlasherX

Файл лучше в ANSI сохраняйте.

Я сохраняю в Notepad++

FlasherX · 27.01.2021, 01:57

Сообщение от KOHTAKT

А можно как-то остановить сценарий

Ну WAIT для того и требуется. Вопрос только в правильности вводных.

Сообщение от KOHTAKT

Я сохраняю в Notepad++

Он по умолчанию в UTF-8 загоняет. 100500-я по счёту ошибка новичков. Меняйте в меню Кодировки первым пунктом, далее Ctrl+S.

@KOHTAKT · 27.01.2021, 02:09 **[ТС]**

FlasherX, поменял, сохранил, запустил и ... ничего опять.

FlasherX · 27.01.2021, 03:29

KOHTAKT, тогда не знаю. Есть ещё такая вещь, но что-то уже лениво. Камбэк таки:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
Const Login = "admin"
Const Passw = "12345"
 
Dim oWSH, oHTTP, oWMI, IP
Set oWSH  = CreateObject("WScript.Shell")
Set oHTTP = CreateObject("Msxml2.XMLHTTP")
Set oWMI  = GetObject("winmgmts:\root\cimv2")
 
IP = 85
While Split(IP, ".")(0) = 85
   oWSH.Run "cmd /q/k title reboot router": WSH.Sleep 50
   Send 0, "start /b telnet 192.168.0.1~"
   Send 300, Login & "~"
   Send 100, Passw & "~"
   Send 100, "reboot~"
   While oWMI.Get("Win32_PingStatus.Address='ya.ru'").StatusCode
      WSH.Sleep 300
   Wend
   With oHTTP
      .Open "GET", "http://ipinfo.io/ip", 0
      .Send 0 : IP = .ResponseText : .Abort
   End With
Wend
Send 0, "~exit~"
Set oHTTP = Nothing: Set oWSH = Nothing: Set oWMI = Nothing
MsgBox "Внешний IP сменился на " & IP, 4160
 
Sub Send(ms, command)
   WSH.Sleep ms: oWSH.AppActivate "reboot router"
   WSH.Sleep 20: oWSH.SendKeys command
End Sub

@Kubuntovod · 27.01.2021, 04:49

Сообщение от KOHTAKT

Запускал через cscript в cmd. Появляется окно, логинится и ребутится.

Т.е., работает.

Сообщение от KOHTAKT

Потом пишет потеряна связь.

А сколько времени требуется роутеру на полную перезагрузку? Может 10 сек. мало?

Добавлено через 5 минут

Сообщение от FlasherX

В крайнем случае можно единожды в начале проверить и сообщить в окне о необходимой смене хоста, чем многократно дёргать его после перезапуска.

Вот! На мой взгляд, это не край, а золотая середина.

Сообщение от KOHTAKT

Изначально я имел ввиду, что когда роутер видит внешний ip начинающийся на 100 (в веб-морде wan адрес начинается на 100).

В таком случае, надо как-то в скрипте добывать эту сотню. Может, делать tracert и вылавливать оттуда?

@KOHTAKT · 27.01.2021, 12:14 **[ТС]**

Сообщение от Kubuntovod

А сколько времени требуется роутеру на полную перезагрузку? Может 10 сек. мало?

Да, мало, изменил значение до 100 000, теперь скрипт работает: логинится и перезагружат роутер. Только хотелось бы, чтобы скрипт с комментами был, чтобы знать какой параметр за что отвечает.

Сообщение от Kubuntovod

В таком случае, надо как-то в скрипте добывать эту сотню. Может, делать tracert и вылавливать оттуда?

Я уже пытался подобный вопрос задать умным людям, чтобы через какую-то консольную команду получать этот адрес и как-то его оттуда скриптом вылавливать. Из telnet после подключения к роутеру в скрипте можно по команде ifconfig забрать на обработку значение адреса?

@KOHTAKT · 27.01.2021, 13:29 **[ТС]**

Сообщение от FlasherX

Камбэк таки:

Сохранил в ANSI, как по науке. )
Запустил через cscript ... и понеслось бесконечное всплывание новых окон, но роутер не перезагружался.

Добавлено через 24 минуты
Kubuntovod, вашем скрипте If a(0) = 100 Then GetExtIP = True это проверка внешнего адреса? Только он не на 100 тогда должен проверяться (так он видит адрес в панели роутера), как я уже выше писал про это вашему коллеге, а другими сайтами он будет видеться с адресом на 85.

Добавлено через 15 минут
Kubuntovod,
Попробовал изменить в If a(0) = 100 Then GetExtIP = True значение 100 на 85, скрипт один раз перезагрузил роутер и больше не работает. А прежний вариант перезагружает постоянно, даже когда адрес уже был нужный, не начинался на 100.

FlasherX · 27.01.2021, 14:41

Сообщение от Kubuntovod

а золотая середина.

ОК, убедили.

Сообщение от KOHTAKT

Запустил через cscript

Это только для тестовых. Тут обычный запуск.

Сообщение от KOHTAKT

и понеслось бесконечное всплывание новых окон

Мда, просчитался слегка. Так пробуйте:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Option Explicit
Const Login = "admin"
Const Passw = "12345"
 
Dim oHTTP, IP, oWSH, oWMI, CMD
Set oHTTP = CreateObject("Msxml2.XMLHTTP")
 
On Error Resume Next
With oHTTP
   .Open "GET", "http://ipinfo.io/ip", 0: .Send 0: .Abort
End With
If Err.Number <> 0 Then MsgBox "Смените URL для получения IP!", 4144: Quit
On Error Goto 0
 
IP = 85
Set oWSH = CreateObject("WScript.Shell")
Set oWMI = GetObject("winmgmts:\root\cimv2")
CMD = oWSH.Environment("Process")("ComSpec")
oWSH.Run CMD
While Split(IP, ".")(0) = 85
   Send 100, "telnet 192.168.0.1~", CMD
   Send 300, Login & "~", "Telnet"
   Send 100, Passw & "~", "Telnet"
   Send 100, "reboot~", "Telnet"
   While oWMI.Get("Win32_PingStatus.Address='ya.ru'").StatusCode
      WSH.Sleep 300
   Wend
   With oHTTP
      .Open "GET", "http://ipinfo.io/ip", 0
      .Send 0 : IP = .ResponseText : .Abort
   End With
Wend
Send 300, "~exit~", CMD
MsgBox "Внешний IP сменился на " & IP, 4160
Quit
 
Sub Send(ms, command, title)
   WSH.Sleep ms: oWSH.AppActivate title
   WSH.Sleep 20: oWSH.SendKeys command
End Sub
 
Sub Quit
   Set oHTTP = Nothing: Set oWSH = Nothing: Set oWMI = Nothing: WSH.Quit
End Sub

Новые блоги и статьи Все статьи Все блоги /
Учебный мини "цифровой двойник" = (Сервер = Java + Flask_питон )+(3D = Гугловскаая 4T nvideo + google colab) +( WMS = Odoo на Docker) anaschu 07.07.2026 Увидел в требованиях к вакансии создателя имитационных моделей связку (REst + Api + WMS + Anylogic + питон + 3D Nvideo), и решил посмотреть, что это такое. Из этого всего я работал более менее. . .	Море в объективе kumehtar 06.07.2026 Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .	Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .
Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .

@KOHTAKT 0 / 0 / 0 Регистрация: 11.01.2021 Сообщений: 118

	VBS Скрипт для перезагрузки роутера по значению внешнего IP 11.01.2021, 23:52. Показов 16204. Ответов 227 Метки vbs (Все метки) Доброго времени суток! Ребята, нужен скрипт перезагрузки роутера, если первый октет внешнего адреса имеет значение 100. Перезагружать пока первый октет имеет значение 100 (или можно ограничиться 10 перезагрузок с проверкой и затем, если не изменился, то повторить перезагрузку через некоторое время). Я не программист. Поискав, нашел некоторые намётки. Можно через TELNET организовать перезагрузку, кусочек скрипта уже опробовал, работает. А вот с проверкой условия труднее. Есть вроде бы вариант через IFCONFIG получить внешний ppp0 inet addr. Не пинайте, если не в той теме обратился. 0

@KOHTAKT 0 / 0 / 0 Регистрация: 11.01.2021 Сообщений: 118
	26.01.2021, 23:10 [ТС]
	FlasherX, тут ещё момент, на который нужно обратить внимание: ели вы берете для проверки ip из внешнего ресурса, то там он не будет начинаться на 100,а будет иметь значение 85. Если вы считываете значение ip, как это делает роутер, то только по таким данным нужно отсеивать ip-шники начинающиеся на 100. Я может быть сбивчиво и не очень сформулированно пытаюсь объяснить. Изначально я имел ввиду, что когда роутер видит внешний ip начинающийся на 100 (в веб-морде wan адрес начинается на 100). 0

@KOHTAKT 0 / 0 / 0 Регистрация: 11.01.2021 Сообщений: 118
	27.01.2021, 00:41 [ТС]
	FlasherX, это значит запускать через Win+R ? 0

FlasherX 7001 / 2885 / 1110 Регистрация: 06.06.2017 Сообщений: 9,810
	27.01.2021, 00:43
	KOHTAKT, не суть как. По Win+R придётся указывать полные пути к файлам. 0

@KOHTAKT 0 / 0 / 0 Регистрация: 11.01.2021 Сообщений: 118
	27.01.2021, 00:46 [ТС]
	FlasherX, я рядовой пользователь , поэтому мне желательно указывать конкретно что и куда положить и что нажать. Я даже разницы ещё не пойму: запускать с консоли или запускать с ФМ. 0

FlasherX 7001 / 2885 / 1110 Регистрация: 06.06.2017 Сообщений: 9,810
	27.01.2021, 01:06
	KOHTAKT, сложить файлы в одной простой несистемной папке, оставив её рабочей/активной. Из комстроки ФМ (например, в Total Commander — Shift+влево/вправо) выполнить приведённую команду. 0

@KOHTAKT 0 / 0 / 0 Регистрация: 11.01.2021 Сообщений: 118
	27.01.2021, 02:09 [ТС]
	FlasherX, поменял, сохранил, запустил и ... ничего опять. 0