#!/usr/bin/expect

spawn telnet [lindex $argv 0] 23
sleep 5
send "\r"
expect "User Name"
send "c\r"
sleep 2
expect "Password"
send "c\r"
sleep 2
send "1\r"
sleep 2
send "[lindex $argv 1]\r"
sleep 2
send "1\r"
sleep 2
send "3\r"
expect "YES"
send "YES\r"
sleep 2
send "\r"
sleep 10
send "\r"
sleep 5