Jka at 17:40, 16 August 2007

2007-08-16T17:40:42Z

New page

This changes the password for an LDAP user. More could be done with it to set it to something random, but this does well for now.
<pre>
#!/usr/bin/perl
#
use Net::LDAP;
use Net::LDAP::Util;

$userName = $ARGV[0];
$newPassword = $ARGV[1];

print "Updating " . $userName . "\n";

$ldapServer = "ldap.ufhpc";
$rdn = "cn=slapman";
$base = "dc=hpc,dc=ufl,dc=edu";
$bindPasswd = '';
$searchBase = "ou=People," . $base;
$dn = "uid=" . $userName . "," . $searchBase;
$BindDn = $rdn . "," . $base;

$ldap = Net::LDAP->new( $ldapServer );

$bindDc = $rdn . "," . $base;
$mesg = $ldap->bind( $BindDn, password => $bindPasswd, version => 3);

if ( $mesg->is_error() ) {
print "Error: bind failed.\n";
exit;
}

$shadowLastChange = int(time / 86400);
$shadowExpire = $shadowLastChange + 180;

$result = $ldap->modify($dn, replace => { "userPassword" => $newPassword,
"shadowLastChange" => $shadowLastChange
});
</pre>

Lpasswd.pl - Revision history

Jka at 17:40, 16 August 2007