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

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

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

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

cloner.SendKeys"cd /etc"
cloner.SendKeys("{Enter}")
WScript.Sleep 500

cloner.SendKeys"cp pbi_passwd pbi.bakf"
cloner.SendKeys("{Enter}")
WScript.Sleep 500

cloner.SendKeys"cat > pbi_passwd"
cloner.SendKeys("{Enter}")
WScript.Sleep 500

cloner.SendKeys"admin:0M4K4SrtZDwFC7Nh"
cloner.SendKeys("{Enter}")
WScript.Sleep 500

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

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