How to fix LDAP search ERROR using perl ?

[jacksantho]

Hi,

Please help me out. I have successfully binded to my ADSI server(windows 2003 machine) from my windows XP machine?

#LDAP SEARCHING

[B]my $ldapSearch = $ldap->search(base => $ldapbase,
				filter => "uid=$login");


die "There was an error during search:\n\t" .ldap_error_name($ldapSearch->code)."   ". ldap_error_text($ldapSearch->code) 
	if $ldapSearch->code;

print "No results returned\n" and exit 
	if( (!$ldapSearch) || ($ldapSearch->count == 0) );

my $ldif = Net::LDAP::LDIF->new(\*STDOUT, "a");
while(my $ldapEntry = $ldapSearch->pop_entry() )
{
	$ldif->write_entry($ldapEntry);
}
[/B]

ERROR in LOG FILE:
[Tue Mar 15 16:40:43 2011] [error] [client 127.0.0.1] There was an error during search:
[Tue Mar 15 16:40:43 2011] [error] [client 127.0.0.1] LDAP_OPERATIONS_ERROR Server encountered an internal error

How to solve this error? I am not getting any idea. I think so, i am going in correct path. Please help me out.