THis statement appears completely wrong:
$search = $ldap->search(base=>"samaccountname=>$user,cn=>U
+sers,dc=>us,dc=>megatrends,dc=
+com",filter=>"(objectClass=memberOf)");
Here is some code I wrote years ago - you can use this as a basis for LDAP search:
use strict;
use Net::LDAP;
my $dc = 'my.domain.controller.fqdn';
my $user = 'DomainName\UserName'; # or 'administrator@mycorp.com';
my $passwd = shift; #'Adminpasswd';
my $base = "dc=TopDomain,dc=com"; #
my $scope = "subtree";
my $filter = "(&(objectclass=user)(objectcategory=user))";
my $ldap = Net::LDAP->new($dc) or die $@;
my $rc = $ldap->bind( $user, password => $passwd);
die $rc->error if $rc->code;
my $search = $ldap->search (
base => $base,
scope => $scope,
filter => $filter,
sizelimit=> 9999 # Does not seem to help...
);
die $search->error if $search->code;
foreach my $entry ($search->entries) {
$entry->dump;
}
$ldap->unbind;
What is the sound of Perl? Is it not the sound of a wall that people have stopped banging their heads against?
-Larry Wall, 1992
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|