Не помню где взял, но сам пользуюсь.
Код:
set sh=WScript.CreateObject("WScript.Shell")
sh.run "Telnet 192.192.1.1" ' IP - модема (роутера)
WScript.Sleep 500
sh.SendKeys "admin"&vbcr 'логин
WScript.Sleep 100
sh.SendKeys "admin"&vbcr 'пароль
WScript.Sleep 100
sh.SendKeys "pppoe set transport ppp-0 disabled"&vbcr
WScript.Sleep 1500
sh.SendKeys "pppoe set transport ppp-0 enabled"&vbcr
Wscript.Sleep 100
sh.SendKeys "^{]}"
Wscript.Sleep 10
sh.SendKeys "quit"&vbcr
Расширение файла *.vbs