#!/usr/bin/expect -f
# $1 is user_name  $2 is computer adress
spawn -noecho  ssh-copy-id $1@$2 ]
set timeout 20
send_user "ssh-copy-id started\n"
while {1} {
    expect {
        ^"(Password :)"$ {
            sleep 1
            expect_user -re "(.*)\n" 
            set the_password $expect_out(1,string)
            send_user "Password is : $the_password\n"
            send "$the_password\n"
            break
            }
        timeout {
           send_user "Timeout expired, aborting..."
            exit 1
            }
        eof {
            send_user "EOF reached."
            }
        * {
            send_user "Bad luck : "
            send_user $expect_out(buffer)
            }
    }
}

 ssh-copy-id   "user name"   "address of the computer where to connect" 

While 1 ; do 
 if asked for password then type the password question so that the operator can type the password from the keyboard fi
 if password is good exit with success else  return to begin of while fi
 if asked a question about any things then type the question so that the operator can type an answer ( generally  :  yes/no/y/n ) fi
 if error then type the error if possible ; In any case exit with failed fi
done

#!/usr/bin/expect
set timeout 10
set host_     [lindex $argv 1]
set user_     [lindex $argv 0]
set password_ ""

proc login {host_ user_ password_ } {
expect {
"nkown host"   { puts "***Host($host_) is unkown."; return 1 }
"onnection refused"   { puts "***Connection was refused to host($host_)."; return 2 }
"Escape character is '^]'."   { exp_continue }
 -exact "Password: "   { expect_user -re "(.*)\r" ; set the_password $expect_out(1,string) ;  set password_  $expect_out(1,string) ; exp_send "$the_password\r"; return 0 }
timeout    { puts "***Telnet timed out" ; return  3 }
"(.*)\r"    { puts "Try again" ; return 4 }
}
}


catch { spawn -noecho ssh-copy-id $user_@$host_ }

while {1} {
set login_results [login $host_ $user_ $password_ ]

# If successful connection, exit.
if { $login_results == 0 } {
  puts "\r***Connected"
  # Successful telnet session so exit with zero status
  exit 0
}
}

set timeout 9
set user [lindex $argv 0]
set host [lindex $argv 1]
spawn ssh-copy-id $user@$host
expect {
        Password: {
            stty -echo
            send_user "for $user on $host: "
            expect_user -re "(.*)\n"
            send "$expect_out(1,string)\n"
            stty echo
            exp_continue
        }
   }

linux:~ # ssh-copy-id.expect.9   user_test   x.y.z.t

linux:~ # ssh-copy-id.expect.9   user_test   x.y.z.t
spawn ssh-copy-id user_test@x.y.z.t
Password: for user_test on x.y.z.t: 
Password: for user_test on x.y.z.t: 
Password: for user_test on x.y.z.t: 
user_test@x.y.z.t's password: bidon
linux:~ # bidon

set timeout 9
set user [lindex $argv 0]
set host [lindex $argv 1]
spawn ssh-copy-id $user@$host
expect {
        -re ^Password: {
            stty -echo
            send_user "for $user on $host: "
            expect_user -re "(.*)\n"
            send "$expect_out(1,string)\n"
            stty echo
            exp_continue
            }
    }

linux:~ # ssh-copy-id.expect.A   user_test   x.y.z.t
spawn ssh-copy-id user_test@x.y.z.t
Password: for user_test on x.y.z.t: 
Password: 
linux:~ #