Hi all,

I am a TCL/TK expect shell learner. I'm in trouble now. I wrote an EXPECT shell which can help me to "ssh" to 100 RedHat boxes to do the same work. Actually I just wanna change "root" password for them. But I found it stop working when "SSH" to some boxes, maybe for this reason or that reason. Anyway, my shell just stop where it is. What I hope is if my EXPECT shell can skip the error point and go on with its mission. Don't stop working just because one machine is not compatible with my shell.
In addition to that, I wonder if EXPECT shell can display an error message to say that which one could not be finished.
The following lines are one section of my shell. In fact, I have aother 99 similar sections...
======================================
set timeout -1
spawn ssh 1.2.3.4
match_max 100000
expect "'s password: "
sleep 1
send -- "old_password\r"
expect "root\]# "
sleep 1
send -- "passwd\r"
expect " password: "
sleep 1
send -- "new_password\r"
expect " password: "
sleep 1
send -- "new_password\r"
expect "root\]# "
send -- "exit\r"
expect eof
=======================================

fish

#!/usr/bin/perl

#
# Created by mearls
# post_message@vermeer.org
#
# Hosts are valid ip or dns name of the device
# Set value of $Script to the expect script you would like to run
# Script needs to be in the same directory or change the path below

@hosts = qw(
server1
server2
server3

);

$Script="password.exp";

for $host (@hosts) {

print "\nRunning $Script on $host...\n";

open(SWITCH, "/usr/bin/expect ./$Script $host 2> /var/log/test.log |");

print "Completed $host. \n";
close(switch);
}

Then i would create the expect shell script.

to run the script chmod 755 ./name

if there are issues it should log to /var/log/test.log