Set cloner = CreateObject("WScript.Shell")
cloner.run"cmd"
WScript.Sleep 500
cloner.SendKeys"color a"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"telnet 10.1.1.254"
cloner.SendKeys("{Enter}")
WScript.Sleep 4000
cloner.SendKeys"admin"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"youpassword"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"enable"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"router"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"wan mac 04:C0:6F:XX:XX:XX"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"commit"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"exit"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"wimax"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"wmx auth username
2008x6T5FeLxXXXX@globelines.com.ph"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"2008x6T5FeXXXXX"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"wmx auth a-id
XXXXXXXXXXXX@globelines.com.ph"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"wmx auth auto-prepend enable"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"wmx auth ignore-cv enable"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"commit"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"exit"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"reboot"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"GLOBE: CHANGE MAC SUCCESSFULL!"
WScript.Sleep 1000