Option explicit Dim oShell set oShell= Wscript.CreateObject("WScript.Shell") oShell.Run "telnet" WScript.Sleep 3000 oShell.Sendkeys "open 192.168.0.1" & chr(13) WScript.Sleep 3000 oShell.Sendkeys "admin" & chr(13) WScript.Sleep 4000 oShell.Sendkeys "f0n3d990" & chr(13) WScript.Sleep 3000 oShell.Sendkeys "reboot" & chr(13) WScript.Sleep 3000 oShell.Sendkeys "" & chr(13) WScript.Sleep 5000 oShell.Sendkeys "" & chr(13) WScript.Sleep 5000 oShell.Sendkeys "open 192.168.0.20" & chr(13) WScript.Sleep 3000 oShell.Sendkeys "admin" & chr(13) WScript.Sleep 4000 oShell.Sendkeys "f0n3d990" & chr(13) WScript.Sleep 3000 oShell.Sendkeys "reboot" & chr(13) WScript.Sleep 3000 oShell.Sendkeys "" & chr(13) WScript.Sleep 5000 oShell.Sendkeys "" & chr(13) WScript.Sleep 5000 oShell.Sendkeys "open 192.168.0.30" & chr(13) WScript.Sleep 3000 oShell.Sendkeys "admin" & chr(13) WScript.Sleep 4000 oShell.Sendkeys "f0n3d990" & chr(13) WScript.Sleep 3000 oShell.Sendkeys "reboot" & chr(13) WScript.Sleep 3000 oShell.Sendkeys "" & chr(13) WScript.Sleep 5000 oShell.Sendkeys "" & chr(13) WScript.Sleep 5000 oShell.Sendkeys "open 192.168.0.40" & chr(13) WScript.Sleep 3000 oShell.Sendkeys "admin" & chr(13) WScript.Sleep 4000 oShell.Sendkeys "f0n3d990" & chr(13) WScript.Sleep 3000 oShell.Sendkeys "reboot" & chr(13) WScript.Sleep 3000 oShell.Sendkeys "" & chr(13) WScript.Sleep 5000 oShell.Sendkeys "" & chr(13) WScript.Sleep 3000 oShell.Sendkeys "quit" & chr(13) WScript.Sleep 3000 Wscript.Quit