set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd",7
WScript.Sleep 200
WshShell.AppActivate "C:\Windows\system32\cmd.exe"
WScript.Sleep 200
WshShell.SendKeys "telnet 192.168.1.1{ENTER}"
WScript.Sleep 200
WshShell.SendKeys "admin{ENTER}" 'Username'
WScript.Sleep 200
WshShell.SendKeys "yourpassword{ENTER}" 'Password'
WScript.Sleep 200
WshShell.SendKeys "dev reboot{ENTER}" 'send command'
WScript.Sleep 200
WshShell.SendKeys "exit{ENTER}"
WScript.Sleep 200
WshShell.SendKeys "exit{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys "logout{ENTER}"
WScript.Sleep 200
WshShell.SendKeys "EXIT{ENTER}"
WScript.Sleep 200