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 500
  
Save it as somename.vbs . double click it  ...:-) done
No comments:
Post a Comment