1 (изменено: paspdkmok, 2016-11-17 21:44:34)

Тема: VBS: Закрыть полностью окно после Telnet

Начало и конец telnet.vbs скрипта по перезагрузке модема.

Set cloner = CreateObject("WScript.Shell")
cloner.run"cmd.exe"

.....

cloner.SendKeys"reset"
WScript.Sleep 1000
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
WScript.Quit
WScript.Exit
Option explicit
Dim oShell
set oShell= Wscript.CreateObject("WScript.Shell")
oShell.Run "telnet"
WScript.Sleep 3000
oShell.Sendkeys "open 192.168.1.1~"
WScript.Sleep 3000
oShell.Sendkeys "admin~"
WScript.Sleep 3000
oShell.Sendkeys "mypassword~"
WScript.Sleep 3000
oShell.Sendkeys "system reboot~"
WScript.Sleep 3000
oShell.Sendkeys "~"
Wscript.Quit

Может случится и не фиксированое время перезагрузки модема. После его выполнения остаётся cmd окно.
1. Как закрыть польностью окно чтобы ничего не оставалось?
1.1 Также после перезагрузки нужно убить процесс rasauto.exe.
2. После перезагрузке модема, может быть случай  вызова cmd rasdial, где после перезагрузки модема выполнить подключение  rasdial через cmd, так чтобы переход с vbs на cmd автоматически и vbs не оставляло окон.

2

Re: VBS: Закрыть полностью окно после Telnet

paspdkmok
Полностью ознакомьтесь и отредактируйте заголовок.

3

Re: VBS: Закрыть полностью окно после Telnet

paspdkmok
1. Добавить строку с вводом exit.
2. Решается через WMI.
3. Не понял, что требуется.

4 (изменено: paspdkmok, 2016-11-19 23:58:10)

Re: VBS: Закрыть полностью окно после Telnet

Flasher
Напишите кодом пожалуста.
3. Сейчас вручную  vbs запускаю, потом запускаю cmd скрипт. Всё это вручную, нужно чтобы работало автоматом.

5

Re: VBS: Закрыть полностью окно после Telnet

paspdkmok
Мне точки за вас ставить?

У меня нет telnet для тестов (тут я могу только наобум накидать). И я не вижу в первом посте cmd-код отдельно от vbs. Он есть вообще?
2. Как выяснить, что модем перезагружен?

6

Re: VBS: Закрыть полностью окно после Telnet

Flasher
Cmd может быть любой, просто его запуск(вопрос с окнами только), для примера возьмём затычку:


@echo off
ping google.com

2. После команды restart vbs скрипт зависает на время и всё, просто ничего не происходит. После этого времени - около 5 секунд, работают команды Quit Exit. Для первого скрипта vbs после его выполнения остаётся cmd окно. Для второго vbs скрипта, остаётся telnet окно и просто горит нажмите любую клавишу.

7 (изменено: DnsIs, 2016-12-19 08:29:53)

Re: VBS: Закрыть полностью окно после Telnet

Домашний роутер вот так перезапускаю:

c:\programs\cmd\cmdow.exe @ \hid
start kitty_portable.exe -telnet 192.168.1.1 -log log.txt
ping 127.0.0.1 -n 3
kitty_portable.exe -sendcmd "admin\n"  -log log.txt
kitty_portable.exe -sendcmd "password\n"  -log log.txt
kitty_portable.exe -sendcmd "reboot\n"  -log log.txt
kitty_portable.exe -sendcmd "exit\n"  -log log.txt

В первой строке используется cmdow при таких параметрах запуска, как раз прячет окно. А вот утилита kitty надежней работает с telnet по сравнению со связкой vbs+telnet.

Нас невозможно сбить с пути, нам пофигу куда идти.

8 (изменено: paspdkmok, 2016-12-09 14:50:20)

Re: VBS: Закрыть полностью окно после Telnet

*Исправлено*.

DnsIs использовал ваш набор, файлы лежат сразу на C, [окно телнета не было свёрнуто], после перезагрузки не закрылось. Возможно ещё есть в самом китти настройки?

c:\cmdow.exe @ /hid
start kitty_portable.exe -telnet 192.168.1.1 -log log.txt
ping 127.0.0.1 -n 3
kitty_portable.exe -sendcmd "admin\n"  -log log.txt
kitty_portable.exe -sendcmd "password\n"  -log log.txt
kitty_portable.exe -sendcmd "quit\n"  -log log.txt
kitty_portable.exe -sendcmd "exit\n"  -log log.txt
pause

9

Re: VBS: Закрыть полностью окно после Telnet

Может это из-за pause?

Нас невозможно сбить с пути, нам пофигу куда идти.

10 (изменено: paspdkmok, 2016-12-09 14:48:55)

Re: VBS: Закрыть полностью окно после Telnet

Исправил свёрнутый режим не  \hid а /hid. После перезагрузки окно китти не закрывается, где бы взять faq.

c:\cmdow.exe @ /hid

11

Re: VBS: Закрыть полностью окно после Telnet

paspdkmok
Можно в конец добавить:

taskkill /f /im kitty_portable.exe /t

Возможно, Plink больше подойдёт.

12 (изменено: DnsIs, 2016-12-19 08:28:24)

Re: VBS: Закрыть полностью окно после Telnet

Flasher пишет:

Возможно, Plink больше подойдёт.

У Plink нет ключа -sendcmd.

Нас невозможно сбить с пути, нам пофигу куда идти.

13

Re: VBS: Закрыть полностью окно после Telnet

Насколько я понимаю, он ей и не нужен.

А вот точки в конце предложений у нас ставить принято. Извольте исправиться.

14

Re: VBS: Закрыть полностью окно после Telnet

paspdkmok пишет:

... по перезагрузке модема. ...

А какая у Вас модель модема и поддерживает ли он вэб интерфейс? Если да, то, как правило, можно перезагрузить парой XHR.

Щт Уккщк Куыгьу Туче