set oShell = CreateObject("WScript.Shell") oShell.run"cmd.exe" WScript.Sleep 500 oShell.SendKeys"telnet 10.52.2.1" oShell.SendKeys("{Enter}") WScript.Sleep 1000 'Give your password in the next line oShell.SendKeys"password" oShell.SendKeys("{Enter}") WScript.Sleep 500Save it as somename.vbs . double click it ...:-) done
No comments:
Post a Comment