Перезагрузка роутера через telnet посредством vbscript

@maxxx74 · Регистрация: 06.04.2019

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

Приветствую, уважаемые!
Нашел в Инете скрипт для перезагрузки роутера:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option explicit
Dim oShell
set oShell= Wscript.CreateObject("WScript.Shell")
oShell.Run "telnet"
WScript.Sleep 100
oShell.Sendkeys "open 192.168.100.1~"
WScript.Sleep 100
oShell.Sendkeys "root~"
WScript.Sleep 100
oShell.Sendkeys "admin~"
WScript.Sleep 100
oShell.Sendkeys "reset~"
WScript.Sleep 100
oShell.Sendkeys "{ENTER}"
WScript.Sleep 100
oShell.Sendkeys "quit~"
Wscript.Quit

В принципе отрабатывает как надо - роутер перезагружается, НО
после команды "reset~" окно зависает секунд на 40, после чего выдает сообщение:
"Подключение к узлу утеряно. Нажмите любую клавишу..."
Т.е. никакой quit~ не отрабатывается(
Как сделать так, чтобы сразу после команды "reset~" скрипт завершался и консольное окно закрывалось?
А в идеале, - чтобы это все выполнялось в фоновом режиме, а не мозолило глаза))

@Pro_grammer · 09.04.2019, 21:24

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

А в идеале, - чтобы это все выполнялось в фоновом режиме, а не мозолило глаза))

У метода oShell.Run есть ряд параметров.

Run(strCommand, [intWindowStyle], [bWaitOnReturn])

intWindowStyle задает стиль окна. При 0 – скрывает окно, будет виден только процесс в диспетчере задач.
bWaitOnReturn – может принимать true – сценарий будет ожидать завершения работы запущенного приложения, и только потом перейдет к выполнению следующей строчки кода, false – будет продолжатся выполнение сценария независимо от того, завершилась работа запущенного приложения или нет.

Примените нужный параметр и получите нужный результат.

@maxxx74 · 09.04.2019, 23:39 **[ТС]**

Pro_grammer, Спасибо за совет, но на практике это почему-то не работает(
Заменил в скрипте 4-ю строчку на:
oShell.Run "telnet",1,false
- никаких изменений
Заменил 1 на 0 - так тут вообще такое началось!))
По центру экрана в яростных конвульсиях забилось окно с информацией о том, что "Файл не найден" и кнопкой ОК. После того, как мне все-таки удалось ее нажать - скрипт таки выполнился, но так же завис после команды "reset~".
В итоге перепробовал все варианты синтаксиса (параметры в скобках/без скобок, с пробелами/без пробелов), удалял строки 13-16 как якобы лишние - ничего не помогает(
Но в любом случае, спасибо Вам за попытку помочь.

@Pro_grammer · 10.04.2019, 06:28

Да, я что-то ступил

Sendkeys может отправлять клавиши только активному окну, так что это код не будет работать в свёрнутом или скрытом режиме telnet.
Нужно по сути не с telnet работать, а напрямую с сетевое приложение писать на VB6.

@Казанский · 10.04.2019, 08:22

maxxx74, используйте Exec, а не Run: http://www.script-coding.com/WSH/WshShell.html#3.5.
Проверить не могу - нет объекта, по которому можно связаться по telnet.

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@maxxx74 0 / 0 / 0 Регистрация: 06.04.2019 Сообщений: 6
	09.04.2019, 23:39 [ТС]
	Pro_grammer, Спасибо за совет, но на практике это почему-то не работает( Заменил в скрипте 4-ю строчку на: oShell.Run "telnet",1,false - никаких изменений Заменил 1 на 0 - так тут вообще такое началось!)) По центру экрана в яростных конвульсиях забилось окно с информацией о том, что "Файл не найден" и кнопкой ОК. После того, как мне все-таки удалось ее нажать - скрипт таки выполнился, но так же завис после команды "reset~". В итоге перепробовал все варианты синтаксиса (параметры в скобках/без скобок, с пробелами/без пробелов), удалял строки 13-16 как якобы лишние - ничего не помогает( Но в любом случае, спасибо Вам за попытку помочь. 0

@Pro_grammer 6807 / 2839 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	10.04.2019, 06:28
	Да, я что-то ступил Sendkeys может отправлять клавиши только активному окну, так что это код не будет работать в свёрнутом или скрытом режиме telnet. Нужно по сути не с telnet работать, а напрямую с сетевое приложение писать на VB6. 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	10.04.2019, 08:22
	maxxx74, используйте Exec, а не Run: http://www.script-coding.com/WSH/WshShell.html#3.5. Проверить не могу - нет объекта, по которому можно связаться по telnet. 0