Shell Programming and Scripting

#!/usr/bin/expect --

exp_version -exit 5.0

if {$argc < 2} {
        send_user "usage: send-vax <host-name> '<cmd>'\n"
        exit
}

set prompt "(%|#|\\$) $"          ;# default prompt
catch {set prompt $env(EXPECT_PROMPT)}

set hostname [lindex $argv 0]
set argv [lrange $argv 1 end]
set cmdname $argv


match_max -d 5000
log_user 0
spawn -noecho telnet $hostname
expect "*Username:"
send "yourvaxusername\r"
expect "*Password:"
send "yourvaxpassword\r"
expect eof exit -re $prompt
send "$cmdname\r"
log_user 1
expect -re $prompt
send "lo\r"
exit