my $noldapserver = 0;
my $ldap = Net::LDAP -> new($dc1) or $noldapserver=1;
if ( $noldapserver == 1 )  {
   $ldap = Net::LDAP -> new($dc2) or die "Error connecting to specified domain controllers $@ \n";
}
my $mesg = $ldap -> bind($user,
					password => $passwd
					);
$mesg = $ldap -> search( 
					base => $base,
					filter => "(&(objectclass=user)(samAccountname=*))"
					);
# Check for Error Code
if ( $mesg -> code ) {
	&LDAPerror( "Search", $mesg );
}
# Ergebnisanzahl auslesen
my $max = $mesg -> count;

# Ergebnisse durchgehen
for ( my $i = 0; $i < $max; $i++ ) {
	my $entry = $mesg -> entry ( $i );
	my $user = lc( $entry -> get_value( 'samAccountname' ) );
	my @groups = $entry -> get_value('memberOf');
	# weiterer code, u.a. Gruppenprüfung s.u.
}