Need help writing a VBS script.

Добрый день.

Мне нужна помощь в написании скрипта.
Скрипт должен:
-Подключаться по telnet-у к роутеру.
-Логиниться
-Перезагружать роутер.

Набросок скрипта уже готов,но столкнулся с проблемой,что с первого запуска он не работает. Просит ввести логин/пароль(Иногда даже ошибку подключения выдаёт)

Код

set my = WScript.CreateObject("WScript.Shell")
my.run("c:\windows\system32\telnet.exe")
WScript.Sleep 100
my.SendKeys("o 192.168.0.1 23~")
WScript.Sleep 100
my.SendKeys("admin~")
WScript.Sleep 100
my.SendKeys("password~")
WScript.Sleep 100
my.SendKeys("ifconfig wl0 down~")
WScript.Sleep 1000
my.SendKeys("reboot~")

Code

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

my.run("c:\windows\system32\telnet.exe")

WScript.Sleep 100

my.SendKeys("o 192.168.0.1 23~")

WScript.Sleep 100

my.SendKeys("admin~")

WScript.Sleep 100

my.SendKeys("password~")

WScript.Sleep 100

my.SendKeys("ifconfig wl0 down~")

WScript.Sleep 1000

my.SendKeys("reboot~")