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 "admin"&vbcr
WScript.Sleep 500
sh.SendKeys "killall pppd"&vbcr
WScript.Sleep 500
sh.SendKeys "pppd call vc1_1"&vbcr
WScript.Sleep 500
sh.SendKeys "exit"&vbcr
WScript.Sleep 1000
sh.SendKeys "quit"&vbcr