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