Set cloner = CreateObject("WScript.Shell")
cloner.run"cmd"
WScript.Sleep 500

cloner.SendKeys"telnet 10.0.0.138"
cloner.SendKeys("{Enter}")
WScript.Sleep 500

cloner.SendKeys"Admin"
cloner.SendKeys("{Enter}")
WScript.Sleep 500

cloner.SendKeys"PASSWORD"
cloner.SendKeys("{Enter}")
WScript.Sleep 500

cloner.SendKeys"adsl connection --down"
cloner.SendKeys("{Enter}")
WScript.Sleep 3000

cloner.SendKeys"adsl connection --up"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000

cloner.SendKeys"exit"
cloner.SendKeys("{Enter}")
WScript.Sleep 3000

cloner.SendKeys" echo bye now."
cloner.SendKeys("{Enter}")
WScript.Sleep 300

cloner.SendKeys" exit"
cloner.SendKeys("{Enter}")