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
welcome and enjoy 
waaaah now ko lang nakita at nalaman na vintage ang modem ko:facepalm:... boss salamat sa share mo, ngayon ko magagamit ito
boss bakit not found ang nakalagay sa right side ng "date100909462014FORMAT" ano po ba ang mali ko? any help naman po