my $users=$ldap_session->search(
                        base=>$CONF{ldapuserbase},
                        filter=>$filter,
                        attrs=> ['distinguishedName','sAMAccountName','homeDirectory','displayName','objectSid','objectGUID'] ) or die "error searching tree:$@\n";


my @entries = $users->sorted('displayName');
print "done.\nFound ".(scalar @entries)." entries.\n";

my $notfound=0;
foreach my $e (@entries){
	my $guid=$e->get_value('objectGUID');
	my $name=$e->get_value('displayName');

	my $thisuser=$ldap_session->search(
                        base=>$CONF{ldapuserbase},
                        filter=>"(objectGUID=$guid)",
                        attrs=> ['distinguishedName','sAMAccountName','homeDirectory','displayName','objectSid','objectGUID'] ) or die "error searching tree:$@\n";
	my @user=$thisuser->sorted('displayName');
	if(@user){
		#do nothing
	}else{
		print "can't find $name\n";
		++$notfound;
	}
}
print "not found=$notfound\n";

$ldap_session->unbind;