Модем ZXV10 H108L, telnet и скрипты VBS

Как известно человеческая лень двигатель прогресса. Иначе бы мы до сих пор ходили бы пешком, отправляли письма почтовой каретой и вставали каждый раз с дивана, желая переключить канал на телевизоре.
Вы спросите а причем тут модем. И так рассказываю. В силу сложившихся обстоятельств модем у меня расположен в прихожей. Ну как работает интернет от “Укртелекома” вы тоже догадываетесь. Так что уютно расположившись на диване с ноутбуком бежать в прихожую при обрыве интернета для перезагрузки модема очень не хочется.
Так как я периодически пописываю разные удобняшки на VBS то естественно в голову пришла идея пообщаться с модемом с помощью скрипта. Оказалось что наш модем прекрасно работает с программой telnet значит будем использовать ее.
Перейдя в консоль запускаем ее. Модем у нас имеет IP адрес 192.168.1.1 для входа в модем в отличии от WEB интерфейса  используются другие  логин и пароль, а именно  root, root.



После входа в модем, набрав help видим весь список команд модема. Нас из них пока интересуют только две, а именно reboot и killall.
Создадим пустой файл с именем ну допустим RebootZTE.vbs и вставим в него нижеприведенный код.

Set wshShell = WScript.CreateObject("WScript.Shell") wshShell.Run "telnet.exe 192.168.1.1" WScript.Sleep 500 wshShell.SendKeys "root~" WScript.Sleep 500 wshShell.SendKeys "root~" WScript.Sleep 500 wshShell.SendKeys "reboot~"

Создав ярлык для этого файла на рабочем столе мы сможем перегрузить модем не вставая с любимого дивана. Все получилось нормально но… после перезагрузки модема окно консоли остается на экране и его приходится закрывать вручную. А это лишние действия. Посмотрим что можно сделать чтобы решить эту проблему. Оказывается в Windows есть такая замечательная вещь как WMI и с ее помощью можно много чего интересного делать. Но нас пока интересует только  закрытие окна оставшегося на экране после работы нашего скрипта. Проблема решаема. WMI может закрывать окна по имени открытого процесса. Что нам и требовалось. Дополняем наш  код.

Set wshShell = WScript.CreateObject("WScript.Shell") Set oWMI = GetObject("winmgmts:\\.\root\cimv2") wshShell.Run "telnet.exe 192.168.1.1" WScript.Sleep 500 wshShell.SendKeys "root~" WScript.Sleep 500 wshShell.SendKeys "root~" WScript.Sleep 500 wshShell.SendKeys "reboot~" WScript.Sleep 5000 Set ProcList = oWMI.ExecQuery("Select * from Win32_Process Where Name = 'telnet.exe'")     For Each oProc in ProcList         oProc.Terminate()     Next

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

Ну и напоследок. Если вы хотите просто разорвать сессию не перегружая модем. Например в это время ваш ноутбук качает со стационарного компьютера очень большой файл, то строку

wshShell.SendKeys "reboot~"

Замените на строку

wshShell.SendKeys "killall pppd~"

  UPD 25.06.15
Если у Вас подключение DHCP то вышеприведенная строка не работает и вы можете только перегружать модем.
Если при работе скрипта вы видите такую картинку.

То это говорит о том что у Вас по умолчанию включена русская раскладка клавиатуры.