AirRouter Dual Access

По совету коллеги приобрел (уже давненько) себе AirRouter. Девайс хорош всем - превосходная работа Wi-Fi, стабильность при высокой нагрузке (закачка торрентов при скорости 100 Мбит/сек) да и в целом хорошая функциональность и стабильность работы. Правда есть одно но - роутер ничего не знает про dual access и следовательно не умеет работать с отечественным IPTV. Точнее - не умеет работать так как другие роутеры - т.е. данную функцию нельзя включить через UI. Путем не знаю каких проб и ошибок, все тот же мой коллега выдал вот этот рабочий способ, как через ssh включить dual access. Все прекрасно работает, но меня лично напрягает постоянно (а я иногда выключаю-включаю роутер) производить всю настройку заново. Поэтому, решено было это дело автоматизировать.
Итак, во первых - самый простой способ автоматизировать командную строку это WScript.Shell объект (он всегда есть в винде, с ним легко работать из под vbscript). Во вторых - для упрощения работы нам нужно отказаться от ssh (т.к. автоматическая настройка putty это ненужный гемор) и пользовать telnet (который включается через UI роутера).
И в третьих - нужно как-то обойти вот этот пункт : "Go back to web UI, Main->PPPoE Information->Restart service". Тут пришлось применять метод научного тыка - полазив по папкам файловой системы роутера я нашел такой файл - pppd. Википедия говорит что это демон point-to-point соединения (бинго!). Путем проб и ошибок выяснилось что для перезапуска pppoe соединения достаточно просто прибить процесс pppd (killall pppd) - затем роутер сам все перезапустит.
Итак - все необходимое есть и работает, можно делать скрипт. Создаем пустой текстовый файл, пишем туда следующий псевдо-код:

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

WScript.Sleep 400

oShell.SendKeys"telnet 192.168.1.1"
oShell.SendKeys("{Enter}")

WScript.Sleep 300
'логин
oShell.SendKeys"ubnt"
oShell.SendKeys("{Enter}")

WScript.Sleep 300
'пароль
oShell.SendKeys"ubnt"
oShell.SendKeys("{Enter}")

WScript.Sleep 500

oShell.SendKeys"killall udhcp"
oShell.SendKeys("{Enter}")

WScript.Sleep 5000
oShell.SendKeys"udhcpc -i eth1 -s /usr/etc/udhcpc/udhcpc -b"
oShell.SendKeys("{Enter}")

WScript.Sleep 20000
oShell.SendKeys("killall pppd")
oShell.SendKeys("{Enter}")

WScript.Sleep 25000
oShell.SendKeys"vi /etc/igmpproxy.conf"
oShell.SendKeys("{Enter}")

WScript.Sleep 1000
oShell.SendKeys":1,$s/ppp0/eth1/"
oShell.SendKeys("{Enter}")

WScript.Sleep 2000
oShell.SendKeys":wq"
oShell.SendKeys("{Enter}")

WScript.Sleep 2000
oShell.SendKeys"killall igmpproxy"
oShell.SendKeys("{Enter}")

WScript.Sleep 1000

oShell.SendKeys"killall igmpproxy"
oShell.SendKeys("{Enter}")
WScript.Sleep 1000

oShell.SendKeys"igmpproxy"
oShell.SendKeys("{Enter}")
WScript.Sleep 5000

ProcessClose("cmd.exe")
ProcessClose("telnet.exe")
Function ProcessClose(sProcName)
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & sProcName & "'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
End Function

Сохраняем полученный файл с расширением .vbs и радуемся - теперь чтоб настроить IPTV достаточно лишь запустить этот файлик.
PS: неперевариваю линуксы.