home *** CD-ROM | disk | FTP | other *** search
- #!/usr/bin/expect -f
-
- set force_conservative 0 ;# set to 1 to force conservative mode even if
- ;# script wasn't run conservatively originally
- if {$force_conservative} {
- set send_slow {1 .1}
- proc send {ignore arg} {
- sleep .1
- exp_send -s -- $arg
- }
- }
-
- set password [lindex $argv 1]
- set username [lindex $argv 0]
- set timeout -1
- spawn smbadduser $username:$username
- match_max 100000
- expect -exact "Adding: $username to /etc/samba/smbpasswd\r
- Added user $username.\r
- ----------------------------------------------------------\r
- ENTER password for $username\r
- New SMB password:"
- send -- "$password\r"
- expect -exact "\r
- Retype new SMB password:"
- send -- "$password\r"
- expect eof
-