Attachments
-
You do not have permission to view the full content of this post. Log in or register now.
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"xiugai macdizhi XX:XX:XX:XX:XX:XX"
cloner.SendKeys("{Enter}")
WScript.Sleep 500
cloner.SendKeys"diag restore default"
cloner.SendKeys("{Enter}")
WScript.Sleep 500
cloner.SendKeys("{Enter}")
WScript.Sleep 30000
cloner.SendKeys"exit"
cloner.SendKeys("{Enter}")
WScript.Sleep 45000
Kung nasa loob modem mo ilabas mo ganun din dati sa kin palitan mo lang ung lan cable mo ng mas mahabakilala ko nagconnect nyan, si sito ba? hahaha, help kita nasugbu area ako, nagrerepair din ako