Displaying 1 result from an estimated 1 matches for "getaccountinfo".
2005 May 31
0
Access denied error when trying to join XP to Samba Domain
...meDirectory: $homedir
loginShell: $loginshell";
open (FH, '>', 'newuser.ldif');
print FH $entry;
close (FH);
return $entry;
}
sub UpdateLDAP
{
my ($entry) = @_;
$cmd=`$LDAPADD -x -D $ADMINDN -w $ADMINPASS -f newuser.ldif`;
$cmd=`$SMBPASSWD -a -m $entry`;
}
sub GetAccountInfo ()
{
my ($userdn, $username, $uidnum, $gidnum, $gecos, $homedir,
$loginshell);
GetOptions ('u:s'=>\$username);
chomp ($username);
$gecos = $username;
$userdn = "cn=$username,$USERDN,$BASEDN";
$homedir = "$HOMEDIR";
$uidnum = GetAvailUid();
$gid...