Option Explicit Dim objShell, Racey, intCount Set objShell = CreateObject("WScript.Shell") objShell.Run "cmd.exe /c telnet 192.168.1.1 80" Wscript.Sleep 1500 Racey = 1000 intCount=0 'objShell.SendKeys "telnet 192.168.1.1 80~" 'objShell.SendKeys "{ENTER}" objShell.SendKeys "POST /CGI HTTP/1.1~" objShell.SendKeys "Host: 192.168.1.1~" objShell.SendKeys "Accept: */*~" objShell.SendKeys "Content-Type: text/xml~" objShell.SendKeys "Content-Length: 172~" objShell.SendKeys "~" objShell.SendKeys "

switchMode

0~" objShell.SendKeys "~" objShell.SendKeys "~" objShell.SendKeys "~" objShell.SendKeys "~" 'Wscript.Sleep 1500 objShell.SendKeys "{ENTER}" objShell.SendKeys "{ENTER}" objShell.SendKeys "{ENTER}" objShell.SendKeys "exit~"