Select Code to Download

    my $result = $self->_search_users( qq/(&(objectClass=person)(userP
+rincipalName=$user./ . $self->principal . '))' );

my $search = qq/(&(objectClass=person)(userPrincipalName=$user./ . $se
+lf->principal . '))';
my $result = $self->_search_users( $search );
die $search . " -- " . $result->{'errorMessage'} if $result->{'errorMe
+ssage'};

(userPrincipalName=testuser@our.domain.com) -- 0000208D: NameErr: DSID
+-0310020A, problem 2001 (NO_OBJECT), data 0, best match of: 'OU=USER,
+OU=ACCOUNTS,OU=OUROU,DC=OUR,DC=DOMAIN,DC=com' at /home/camel/perl5/pe
+rlbrew/perls/perl-5.30.1/lib/site_perl/5.30.1/Auth/ActiveDirectory.pm
+ line 133.

(sAMAccountName=testuser) -- 0000208D: NameErr: DSID-0310020A, problem
+ 2001 (NO_OBJECT), data 0, best match of: 'OU=USER,OU=ACCOUNTS,OU=OUR
+OU,DC=OUR,DC=DOMAIN,DC=com' at /home/camel/perl5/perlbrew/perls/perl-
+5.30.1/lib/site_perl/5.30.1/Auth/ActiveDirectory.pm line 133.

(sAMAccountName=*) -- 0000208D: NameErr: DSID-0310020A, problem 2001 (
+NO_OBJECT), data 0, best match of: 'OU=USER,OU=ACCOUNTS,OU=OUROU,DC=O
+UR,DC=DOMAIN,DC=com' at /home/camel/perl5/perlbrew/perls/perl-5.30.1/
+lib/site_perl/5.30.1/Auth/ActiveDirectory.pm line 133.