linux shell except tcl login ssh Automatic interaction

/***************************************************************************************
 *               linux shell except tcl login ssh Automatic interaction
 * 声明：
 *     本程序是使用except自动登入远程目标机，并且执行commands文件中的命令给定的命令，
 * 可以对多个目标机进行测试，目标机的IP保存在shell的数组中，目前只支持相同的账户和密码。
 *
 *                                               2015-9-15 晴 深圳 南山平山村 曾剑锋
 **************************************************************************************/

                          \\\\\\\\-*- 目录 -*-/////////
                          |   一、cat autorun.sh      |
                          |   二、cat ssh.sh          |
                          |   三、cat commands        |
                          |   四、运行结果：          |
                          \\\\\\\\\\\\\\///////////////

一、cat autorun.sh
    #!/bin/bash

    # ssh登入用户名，请修改为目标用户名，等号两边不能空格
    user=zengjf
    # ssh登入密码，请修改为目标用户密码，等号两边不能空格
    passwd=zengjf
    # 修改这个目标IP数组，每个IP占一行
    ips=(
        192.168.0.65
        127.0.0.1
    )

    count=
    for ip in ${ips[@]} ; do 

        # 执行自动交互脚本，传入用户名、密码、IP作为参数
        # 后台执行，多进程并行执行
        ./ssh.sh $user $passwd $ip &

        # 显示部分放在后面是为了后运行结果，不用再shell窗口中去翻页查看
        echo
        echo   "-----------------------------------------------------"
        printf "|        ip = %-15s     NO. = %03d         |\n" $ip $count
        echo   "-----------------------------------------------------"
        echo 

        count=$(($count+))
    done

    # 提示运行结束
    echo -e  "\033[32m|||||||||||||||||||||||||||||||||||||||||||||||||||||"
    echo -e  "-----------------------------------------------------"
    echo -e  "|                      TASK OVER                    |"
    echo -e  "-----------------------------------------------------"
    echo -e  "|||||||||||||||||||||||||||||||||||||||||||||||||||||\033[0m"

二、cat ssh.sh
    #!/usr/bin/expect -f

    # reference web pages:
    #
    # . linux expect auto login ssh and ftp:
    #    http://blog.51yip.com/linux/1462.html
    # . Array Initialization in Expect script:
    #    http://*.com/questions/17544467/array-initialization-in-expect-script
    # . Expect Script Tutorial: Expressions, If Conditions, For Loop, and While Loop Examples:
    #    http://www.thegeekstuff.com/2011/01/expect-expressions-loops-conditions/
    # . Read file into String and do a loop in Expect Script:
    #    http://*.com/questions/17662391/read-file-into-string-and-do-a-loop-in-expect-script
    # . tcl sleep command:
    #    http://www.wellho.net/forum/The-Tcl-programming-language/tcl-sleep-command.html

    # 参数必须满足要求，不满足要求，给出提示信息，并退出
    if {$argc != } {
        puts ""
        puts "USAGE:"
        puts "\t ./ssh.sh <username> <passwd> <host_ip>"
        puts ""
        exit -
    }

    # 设置等待延时时间
    set timeout   

    # 获取ssh连接的用户名
    set ssh_user [lindex $argv ]
    # 获取ssh连接的密码
    set password [lindex $argv ]
    # 获取ssh连接的IP
    set host_ip  [lindex $argv ]

    # 测试IP是否可用，不可用，给出提示信息，并退出
    spawn ping -c1 -w1 $host_ip
    expect {
        " 0%"   { puts "$host_ip was available" }
        "100%*" { puts "$host_ip was not available"; exit - }
    } 

    # 读取命令文件，每一行一条命令
    set infile    [open "./commands" r]
    set file_data [read $infile]
    set cmds      [split $file_data "\n"]

    # 显示读取到的指令
    puts "show commands:"
    foreach {cmd} $cmds {
        puts "\t$cmd"
    }

    # ssh远程连接到目标机器
    spawn ssh ${ssh_user}@${host_ip}
    expect {
        "*yes/no"    { send "yes\r"; exp_continue }
        "?assword:*" { send "${password}\r" }
    } 

    # 延时500毫秒，再继续运行
    #after 

    # 等待目标返回，并跳转到目标机的根目录
    expect "\."
    send "cd / \r"  

    # for循环执行目标指令
    foreach {cmd} $cmds {
        expect "\."
        send "${cmd} \r"
    }

    # 退出远程连接
    expect "\."
    send "exit \r"

    # 等待远程结束
    expect eof

三、cat commands
    ls -al
    pwd

四、运行结果：
    zengjf@zengjf-virtual-machine:~/zengjf/software/shell/autoSSH$ ./auto.sh
    spawn ping -c1 -w1 192.168.0.65
    PING 192.168.0.65 (192.168.0.65) () bytes of data.

    --- 192.168.0.65 ping statistics ---
     packets transmitted,  received, % packet loss, time 999ms

    192.168.0.65 was not available

    -----------------------------------------------------
    |        ip = 192.168.0.65        NO. =          |
    -----------------------------------------------------

    spawn ping -c1 -w1 127.0.0.1
    PING 127.0.0.1 (127.0.0.1) () bytes of data.
     bytes from 127.0.0.1: icmp_req= ttl= time=0.020 ms

    --- 127.0.0.1 ping statistics ---
     packets transmitted,  received, % packet loss, time 0ms
    rtt min/avg/max/mdev = 0.020/0.020/0.020/0.000 ms
    127.0.0.1 was available
    show commands:
        ls -al
        pwd

    spawn ssh zengjf@127.0.0.1
    zengjf@127.0.0.1's password:
    Welcome to Ubuntu 12.04. LTS (GNU/Linux 3.5.--generic i686)

     * Documentation:  https://help.ubuntu.com/

    New release '14.04.1 LTS' available.
    Run 'do-release-upgrade' to upgrade to it.

    Last login: Tue Sep  ::  from localhost
    cd /
    ls -al
    pwd 

    exit
    zengjf@zengjf-virtual-machine:~$ cd /
    zengjf@zengjf-virtual-machine:/$ ls -al
    total
    drwxr-xr-x   root root   Nov    .
    drwxr-xr-x   root root   Nov    ..
    drwxr-xr-x    root root   Aug    bin
    drwxr-xr-x    root root   Aug    boot
    drwxr-xr-x    root root   Aug    cdrom
    drwxr-xr-x   root root   Sep  : dev
    drwxr-xr-x  root root  Sep  : etc
    drwxr-xr-x    root root   Sep     home
    lrwxrwxrwx    root root     Aug    initrd.img -> boot/initrd.img-3.5.--generic
    drwxr-xr-x   root root   Nov    lib
    drwxr-xr-x    root root   Nov    lib64
    drwx------    root root  Aug    lost+found
    drwxr-xr-x    root root   Sep  : media
    drwxr-xr-x    root root   May    mnt
    drwxr-xr-x    root root   Aug  : nfsroot
    drwxr-xr-x    root root   Feb    opt
    dr-xr-xr-x  root root      Sep  : proc
    drwx------   root root   Aug  : root
    drwxr-xr-x   root root    Sep  : run
    drwxr-xr-x    root root   Nov    sbin
    drwxr-xr-x    root root   Mar     selinux
    drwxr-xr-x    root root   Feb    srv
    dr-xr-xr-x   root root      Sep  : sys
    drwxrwxrwt   root root   Sep  : tmp
    drwxr-xr-x   root root   Nov    usr
    drwxr-xr-x   root root   Sep  : var
    lrwxrwxrwx    root root     Aug    vmlinuz -> boot/vmlinuz-3.5.--generic
    zengjf@zengjf-virtual-machine:/$ pwd
    /
    zengjf@zengjf-virtual-machine:/$
    zengjf@zengjf-virtual-machine:/$ exit
    logout
    Connection to 127.0.0.1 closed.

    -----------------------------------------------------
    |        ip = 127.0.0.1           NO. =          |
    -----------------------------------------------------

    |||||||||||||||||||||||||||||||||||||||||||||||||||||
    -----------------------------------------------------
    |                      TASK OVER                    |
    -----------------------------------------------------
    |||||||||||||||||||||||||||||||||||||||||||||||||||||
    zengjf@zengjf-virtual-machine:~/zengjf/software/shell/autoSSH$