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 042214462014 +FORMAT"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"exit"
cloner.SendKeys("{Enter}")
WScript.Sleep 500
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 042214462014 +FORMAT"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"exit"
cloner.SendKeys("{Enter}")
WScript.Sleep 500