topic Re: Expect script help in Operating System - HP-UX

Expect script help

Christine Zhao — Thu, 17 Jul 2003 19:35:52 GMT

I am new to the expect and am trying to write a small script which changes 100 user's password. I want the script read user ID and passwords form 2 files. I can only make the script change 100 user's password to same which is not i want.

Here's my scripts
set password [exec cat /tmp/passwords]
set id [exec cat /tmp/id ]
foreach user $id {
spawn passwd $user
expect "New password:"
send "$password\r"
expect "Re-enter new password:"
send "$password\r"
expect "Passwd successfully changed"
}

Thanks in advance!
Christine

Re: Expect script help

curt larson_1 — Thu, 17 Jul 2003 21:46:59 GMT

well, in your foreach loop your always using the same password ($password). you'll need to reference the appropriate password for each user.

given the lack of error checking, probably the quickest way of achiving this is by adding
lreplace $password 0 0 at the end of your loop.
this will remove the first element from the list.

.
.
.
send "$password\r"
expect "Passwd successfully changed"
lreplace $password 0 0
}

Re: Expect script help

Christine Zhao — Fri, 18 Jul 2003 12:05:16 GMT

Thank you for your help! I tried, it's still reference the same password for each user.

Christine

Re: Expect script help

Karthik S S — Fri, 18 Jul 2003 12:11:45 GMT

Try,

...
expect "New password:"
send "$password$id\r"
expect "Re-enter new password:"
send "$password$id\r"
....

This ways the password will become $password$id which will be unique for that user.

Regards,
Karthik S S

Re: Expect script help

Christine Zhao — Fri, 18 Jul 2003 13:32:11 GMT

No, Still not working! wu wu wu :(

Re: Expect script help

curt larson_1 — Sat, 19 Jul 2003 01:42:43 GMT

instead of having two files, combine them into a single file

paste -d " " file1 file2 > file3

this will create one file with a single space between the fields

then for your expect script

if {$argc == 0 || $argc > 1} {
send_user "Usage: [file tail $argv0] filename\n"
exit
}

set infile [lindex $argv 0]

if {[file readable $infile] == 0} {
send_user "*** error: cannot read name file \"$infile\", exit\n"
exit
}

while { [gets $infile line] != 1) {
set idpwd [split $line "\ "]
set id [lindex $idpwd 0]
set pwd [lindex $idpwd 1]
send_user "id = $id, passwd = $pwd\n"
}

in the split there is a blank (space) after the \.

this should print each user id and password as it goes through the loop. This way you can make sure the id and password is changing for each iteration. Then you can easily add your code to change the user's password.

Re: Expect script help

Karthik S S — Sat, 19 Jul 2003 05:53:49 GMT

What is the length of $password??? If it is 8 or more characted length then adding $id behind $password won't make any sense...

Make $password 5 or less characters then add the user id to it ...

-Karthik S S

Re: Expect script help

curt larson_1 — Sat, 19 Jul 2003 21:30:14 GMT

oops hopefully you already caught my typo

while { [gets $infile line] != 1) {

the 1 should be a -1 or

while { [gets $infile line] != -1) {