set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd"
WScript.Sleep 100
WshShell.AppActivate "C:\Windows\system32\cmd.exe"
WScript.Sleep 100
WshShell.SendKeys "telnet 192.168.1.254{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "admin{ENTER}" 'login
WScript.Sleep 100
WshShell.SendKeys "xxx{ENTER}" 'haslo
WScript.Sleep 100
WshShell.SendKeys "adsl connection --up{ENTER}" '
WScript.Sleep 200
WshShell.SendKeys "logout{ENTER}" '
WScript.Sleep 200
WshShell.SendKeys "{ENTER}" '
WScript.Sleep 200
WshShell.SendKeys "exit{ENTER}" '