Листинг 3

Программа, выполняющая запросы к AD

# Программа, выполняющая запросы к AD
use strict;
use Net::LDAP;
BEGIN COMMENT
# Specify connection and binding parameters.
# Задание соединения и параметров регистрации
END COMMENT
my $dc = ?dc1?;
my $user = ?administrator@mycorp.com?;
my $passwd = ?Adminpasswd?;
BEGIN COMMENT
# Specify search parameters.
# Определение параметров поиска 
END COMMENT
my $base = «cn=users, dc=mycorp, dc=com»;
my $scope = «subtree»;
my $filter = «(&(objectclass=user)(objectcategory=user)(sn=Allen))»;
my $ldap = Net::LDAP->new($dc) or die $@;
my $rc = $ldap->bind( $user, password => $passwd);
die $rc->error if $rc->code;
# BEGIN CALLOUT A
my $search = $ldap->search (
	base => $base, 
	scope => $scope, 
	filter => $filter
	);
die $search->error if $search->code;
# END CALLOUT A
# BEGIN CALLOUT B
foreach my $entry ($search->entries) {
	$entry->dump;
}
# END CALLOUT B
$ldap->unbind;