export_smbpasswd.pl [plain text]
use Mozilla::LDAP::Conn;
use Mozilla::LDAP::Entry;
$DN="ou=people,dc=plainjoe,dc=org";
$ROOTDN="cn=Manager,dc=plainjoe,dc=org";
$rootpw = "secret";
$LDAPSERVER="localhost";
$conn = new Mozilla::LDAP::Conn ("$LDAPSERVER", "389", $ROOTDN, $rootpw );
die "Unable to connect to LDAP server $LDAPSERVER" unless $conn;
print "##\n";
print "## Autogenerated smbpasswd file via ldapsearch\n";
print "## from $LDAPSERVER ($DN)\n";
print "##\n";
$result = $conn->search ("$DN", "sub", "(objectclass=smbPasswordEntry)");
while ($result) {
@uid = $result->getValue("uid");
@uidNumber = $result->getValue("uidNumber");
@lm_pw = $result->getValue("lmpassword");
@nt_pw = $result->getValue("ntpassword");
@acct = $result->getValue("acctFlags");
@pwdLastSet = $result->getValue("pwdLastSet");
if (($
$lm_pw[0] = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" if (! ($ $nt_pw[0] = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" if (! ($ $acct[0] = "[DU ]" if (! ($ $pwdLastSet[0] = "FFFFFFFF" if (! ($
print "$uid[0]:$uidNumber[0]:$lm_pw[0]:$nt_pw[0]:$acct[0]:LCT-$pwdLastSet[0]\n";
}
$result = $conn->nextEntry();
}
$conn->close();
exit 0;