expect-demo.txt

Download expect-demo.txt

 1: #!/usr/bin/expect -f
 2: # expect script to automate the use of the passwd program
 3: # to set user passwords.  To change passwords of other
 4: # users, passwd must be run by root.
 5: #
 6: # Written 12/2009 by Wayne Pollock, Tampa Florida USA
 7: # $Id: expect-demo,v 1.0 2009/12/02 08:35:40 wpollock Exp $
 8: 
 9: set user [lindex $argv 0]
10: set password [lindex $argv 1]
11: if { $user == "" || $password == "" } {
12:    puts "Usage: <user> <password>\n"
13:    exit 1
14: }
15: 
16: # alt: Have passwd arg only and get the username from the environment:
17: #set user $env(USER)
18: 
19: spawn passwd $user
20: 
21: expect "password:"
22: send "$password\r"
23: expect "password:"
24: send "$password\r"
25: expect eof