Title: RE: Setting Attributes when creating a user account with Perl 5.8.4

something like below?
my $u = $handle->Create("vscUser","cn=$key");

the point is that these vscXXXX attributes are attributes of a SUB-CLASS of the "user" class.


-----Original Message-----
From: Michael H. Martel [mailto:[EMAIL PROTECTED]]
Sent: Friday, July 30, 2004 7:42 AM
To: [EMAIL PROTECTED]
Subject: Setting Attributes when creating a user account with Perl 5.8.4


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

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

Reply via email to