anehnya nih walaupun setuid user dan group udah dipake , kalo make
user biasa masih gagal kenapa ya ?
kalo yang akses root udah sukses sih
#!/usr/bin/perl
use Expect;
$user=$ARGV[0];
$password=$ARGV[1];
$t=Expect->spawn("/usr/bin/passwd $user") || die "gagal passwd\n";
$unknown=$t->expect(5,'-re','.*Unknown.*');
if ($unknown) {die "unknown\n";}
$t->expect(5,'New UNIX password:') || die "kagak ada new unix
password\n";
#$t->expect(5,'-re','.*New.*') || die "kagak ada new unix password\n";
print $t "$password\r";
$t->expect(5,'Retype new UNIX password:') || die "gagal retype\n";
print $t "$password\r";
$t->expect(5,'successfully') || die "tidak sukses\n";
$t->soft_close;
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
Hosted by http://www.Indoglobal.com
