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!