#!/usr/bin/expect

set timeout 40
set set_slow {1 .2}
#set prompt "(%|#|\\$) $" ; # default prompt
#catch {set prompt $env(EXPECT_PROMPT) }

spawn telnet 156.26.26.26

#expect "login"
#send "$var(name)\r"
expect "password"
send "cisco\r"
send "en\r"
expect "password"
send "cisco"


#expect {
#       "Login incorrct"
#         {
#         puts "Incorrect login creential supplied."
#         puts "Try again if u can :-) or ask program writer."
#         }
#       $prompt
#       }

#send "exit\r"   
exit
          

    Source: geocities.com/shezy22/code

               ( geocities.com/shezy22)