LDAP usage

Hi

I am getting user group from active directory. I am using the follow sample code with correct values.

But I getting an error.
Can't call method "bind" without a packake ....

Please help ..

use strict;
use Net::LDAP;

my $ldap = Net::LDAP->new('IPADDRESS', debug =>0, timeout=>5) or die "$@";

#must bind as administrator to retrieve all user attributes in LDAP
my $admin = 'cn=administrator, cn=Users, dc=my, dc=domain, dc=name, dc=com';
my %bindargs;
$bindargs{password} = 'password';
$bindargs{version} = 3;
$ldap->bind ;
my $mesg = $ldap->bind( $admin, %bindargs);

#make sure we binded correctly with the username and password specified
if ($mesg->code != 0)
{
if ($mesg->code ==49)
{
printf("Password not correct");
}
else
{
printf("Error in binding");
}

}

#LDAP search filter that lists all the entries for "Users"
my $mesg = $ldap->search ( # perform a search
base => "CN=Users, dc=my, dc=domain, dc=name, dc=com",
scope => "1",
filter => "objectclass=*",
);

my $count = $mesg->count();
print "Total #attributes retrived: $count";

#name of attribute to get
my $attr1 = "userPrincipalName";

$mesg->code && die $mesg->error;

my @usernames;

my $max = $mesg->count;
for(my $i = 0 ; $i < $max ; $i++)
{
my $entry = $mesg->entry($i);
if ($entry->get($attr1) ne "")
{
push(@usernames,$entry->get($attr1));
}
}

foreach my $x (@usernames)
{
print "\n$x";
}

$ldap->unbind; # take down session

Regards,
ravi

Find more posts tagged with

Comments

Ravidialog

No one got the answer.

clogan

I haven't use LDAP at all, but in your code, you have this:

$ldap->bind ;
my $mesg = $ldap->bind( $admin, %bindargs);

Are you getting the error because you are calling $ldap->bind ; without any args like the line afterwards?

Ravidialog

use strict;
use Net::LDAP;

my $ldap = Net::LDAP->new('IPADDRESS', debug =>0) ;
print $ldap ;

Look at the above code. I am getting nothing. NO value printed .

I think after this I can consider the bind .. any way bind I have only with argument on.

Ravi

gzevin

are you sure you know which port you have to bind LDAP to?

Greg Zevin, Ph.D. Comp. Sc.
Independent Interwoven Consultant/Architect
Sydney, AU

Ravidialog

It is a default port 389. Do I have to specify even it is default?.

When I bind it gives error.Ravi

gzevin

here is the code that I use. It works well.

my $ldap = Net::LDAP->new ( "$LDAP_HOST:$LDAP_PORT" ) or die "$@";

my $mesg = $ldap->bind ( "$LDAP_USER",
password => "$LDAP_PASSWD",
version => 3 );

Greg Zevin, Ph.D. Comp. Sc.
Independent Interwoven Consultant/Architect
Sydney, AU

Ravidialog

use Net::LDAP;
my $ldap = Net::LDAP->new ( "10.192.128.29:389" );
my $mesg = $ldap->bind ( "trw1\@osd.health.nsw.gov.au", password => "XXXX",version => 3 );

use Net::LDAP;
my $ldap = Net::LDAP->new ( "12.134.128.29:389" );
my $mesg = $ldap->bind ( "trw1\@osd.health.nsw.gov.au", password => "xxxxx",version => 3 );

I am still getting an error

can't call method "bind " on an undefined value.

gzevin

talk to the administrator who deals with the directory server to find out exact connection parameters. they should be sufficient to establish a connection

Greg Zevin, Ph.D. Comp. Sc.
Independent Interwoven Consultant/Architect
Sydney, AU

Ravidialog

I just worry about the compiler error. If I issue the wrong parameter , Do I get a compiler error like this.

I think I will get the proper message rather than compiler error.

gzevin

try connectiong to the LDAP server as

my $LDAP = Net::LDAP->new($Host, port=>'389')

you are mistaken about the compiler error. it's not a compiler error. I believe you have authentication problems.

Greg Zevin, Ph.D. Comp. Sc.
Independent Interwoven Consultant/Architect
Sydney, AU

Ravidialog

Still the same error I am getting.

Can't call method "bind" on an undefined valueat untitled1line 15, <DATA> line 225.

where is this 225 from.

gzevin

that line number comes from the module LDAP, most likely.

I repeat, you have authentication problems. this code works, 100%

Greg Zevin, Ph.D. Comp. Sc.
Independent Interwoven Consultant/Architect
Sydney, AU

Ravidialog

Thanks. I will try and Let you know later