set sh=WScript.CreateObject("WScript.Shell")
sh.run "Telnet.exe 192.168.1.1"
WScript.Sleep 500
sh.SendKeys "admin"&vbcr
WScript.Sleep 500
sh.SendKeys "set wan node 0 reboot"&vbcr
WScript.Sleep 500
sh.SendKeys "set wan save"&vbcr
WScript.Sleep 500
sh.SendKeys "exit"&vbcr
WScript.Sleep 1000
sh.SendKeys "quit"&vbcr