VBS скрипт для подключения по Telnet

Упала нестандартная задачка. Подключиться скриптом по Telnet и выполнить какую-либо команду, или набор команд. Задачку решили "в лоб", надеясь на то, что пользователь не будет тыкать в кнопки в момент работы скрипта.

VBS скрипт до коннекта по Telnet

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

connectserver = "127.0.0.1"
connectport = "23"
connectuser = "admin"
connectpass = "password"

set my = WScript.CreateObject("WScript.Shell")
my.run("c:\windows\system32\telnet.exe")
WScript.Sleep 3000
my.SendKeys("o "& connectserver &" "& connectport &"~")
WScript.Sleep 10000
my.SendKeys(connectuser &"~")
WScript.Sleep 5000
my.SendKeys(connectpass &"~")
WScript.Sleep 5000 

my.SendKeys("some command~")

my.SendKeys("quit~")

VBS скрипт до коннекта по Telnet к Keenetic

Пример вывода конфигурации роутера Keenetic Lite.

connectserver = "10.11.12.13"
connectport = "23"
connectuser = "admin"
connectpass = "password"

'----------------------------------------------------------

set my = WScript.CreateObject("WScript.Shell")

MyConnection my
ShowRunningConfig my
ExitConnection my

Sub MyConnection(ByRef my)
    my.run("c:\windows\system32\telnet.exe")
    WScript.Sleep 3000
    my.SendKeys("o "& connectserver &" "& connectport &"~")
    WScript.Sleep 10000
    my.SendKeys(connectuser &"~")
    WScript.Sleep 5000
    my.SendKeys(connectpass &"~")
    WScript.Sleep 5000 
End Sub

Sub ShowRunningConfig(ByRef my)
    my.SendKeys("sh ru~")
    WScript.Sleep 10000
End Sub

Sub ExitConnection(ByRef my)
    my.SendKeys("exit~")
    WScript.Sleep 5000
    my.SendKeys("{ENTER}")
    WScript.Sleep 3000
    my.SendKeys("{ENTER}")
    WScript.Sleep 3000
    my.SendKeys("{ENTER}")
    WScript.Sleep 3000
    my.SendKeys("quit~")
End Sub