Here is how to reset my homes Bautec rooter connection using a vbscript

Set oShell = CreateObject("WScript.Shell")
oShell.run"cmd.exe"
WScript.Sleep 500
oShell.SendKeys"telnet 192.168.9.1"
oShell.SendKeys("{Enter}")
WScript.Sleep 1000
oShell.SendKeys"mypassword123"
oShell.SendKeys("{Enter}")
WScript.Sleep 500
oShell.SendKeys"wan adsl reset"
oShell.SendKeys("{Enter}")
WScript.Sleep 500
oShell.SendKeys"exit"
oShell.SendKeys("{Enter}")
WScript.Sleep 5000
oShell.SendKeys("{Enter}")
oShell.SendKeys"exit"
oShell.SendKeys("{Enter}")
WScript.Quit

Copy to notepad and save as .vbs file. So simple!