Set oShell = WScript.CreateObject("WScript.Shell") oShell.Run "telnet.exe 192.168.1.1" WScript.Sleep 1000 oShell.SendKeys "user" & chr(13) WScript.Sleep 1000 oShell.SendKeys "password" & chr(13) WScript.Sleep 1000 oShell.SendKeys "reboot" & chr(13)