#!/usr/bin/expect
#Created By Henry Saptono <henry[at]nurulfikri.com>
#Jun 2007, Jakarta
#Name of Application : setpassword.sh
#License: Bebas dan Gratis


############################
# Set password un-interactive
# usage: setpassword.sh  username   newpasswd   

# Script ini buat ngeset password user samba
# secara non interaktif
# Script ini diperlukan oleh script pdcadmin.sh

### set variabel dari argumen, biar enak dibaca
set user_name [lindex $argv 0]
set user_password [lindex $argv 1]
### Panggil program smbpasswd
spawn smbpasswd -a $user_name 
### Harapkan patern pertama
expect "New SMB password:"
### Kirim jawaban pertama
send "$user_password\n"
### Harapkan pattern kedua
expect "Retype new SMB password:"
### Kirim jawaban kedua
send "$user_password\n"
### Selesai
expect eof
#######################