Re: perl ldap windows 2000

[Christopher A B. <ca...@tc...>]

As Emeric LOISEAU once put it so eloquently:

> Can you tell me, if the perl can read active directory in windows 2000
> server.

This worked for me:

#!/usr/local/bin/perl

use Net::LDAPS;

# actual application uses Net::DNS to find SRV records for LDAP service
$ldaps = new Net::LDAPS('foo.umn.edu', port => 636) or die;

$ldaps->bind(dn => 'cn=Administrator, cn=Users, dc=foo, dc=umn, dc=edu',
             password => 'PASSWORD',
             version => 3
            );

$mesg = $ldaps->search(
                        base => 'dc=foo, dc=umn, dc=edu',
                        filter => 'cn=Test User'
                      );

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

foreach $entry ($mesg->all_entries) { $entry->dump; }

$ldaps->unbind;

%%  Christopher A. Bongaarts  %%  ca...@tc...       %%
%%  Internet Services         %%  http://umn.edu/~cab  %%
%%  University of Minnesota   %%  +1 (612) 625-1809    %%