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

cloner.SendKeys"telnet 192.168.254.1"
cloner.SendKeys("{Enter}")
WScript.Sleep 4000

cloner.SendKeys"Firefly"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000

cloner.SendKeys"$P4mb1h1r4N4m4nT0!!"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000

cloner.SendKeys"date 102405312014 +FORMAT"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000

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