Hello!

I've got a perl script I use to create users. It works wonderfully EXCEPT it has trouble setting some extended attributes that we added to the Active Directory. Every attribute and the password sets fine, except for the Attributes that start with vscEduPerson .

Any thoughts ?

My code looks like this :

my $u = $handle->Create("user","cn=$key");
$u->{samAccountName} = "$webid";
$u->SetInfo();

$u->{'Full Name'}    = "$fname $mname $lname";
$u->{displayName}    = "$lname, $fname $mname";
$u->{sn}                     = "$lname";
$u->{givenName}      = "$fname";
if( $mname ne "" ){
        $minitial = "";
        $minitial = substr($mname, 0, 1);
        $u->{initials}       = "$minitial";
}
$u->{userPrincipalName} = "[EMAIL PROTECTED]";
$u->{AccountDisabled}        = 0;
$u->{Description}            = "$classification_desc";     
$u->SetInfo();

$u->{vscEduPersonMapleID}            = "$webid";
$u->{vscEduPersonColleagueID}        = "$at_id";
if( $classification eq "Student" ){
        $u->{vscEduPersonMajor}      = "$classification";
}
$u->{vscEduPersonPrimaryLocation}            = "$school";
$u->{vscEduPersonClassification}             = "$classification";
$u->{vscEduPersonClassificationDesc}         = "$classification_desc";
$u->SetInfo();

$u->SetPassword($init_pw);
$u->SetInfo();




Michael

--

 --------------------------------o---------------------------------
  Michael H. Martel              | Systems Administrator
  [EMAIL PROTECTED]          | Vermont State Colleges
  http://probe.vsc.edu/~michael  | PH:802-241-2544 FX:802-241-3363


_______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to