Option explicit
Dim oShell
set oShell=Wscript.CreateObject(“WScript.Shell”)
oShell.Run”telnet”
WScript.Sleep 3000
oShell.Sendkeys “open 192.168.1.1~”
WScript.Sleep 3000
oShell.Sendkeys “User~”
WScript.Sleep 3000
oShell.Sendkeys “Pass~”
WScript.Sleep 3000
oShell.Sendkeys “reboot~”
WScript.Sleep 3000
oShell.Sendkeys “~”
Wscript.Quit

Save sbg *.vbs

Selesai!