Имеется следующая задача - под FreeBSD вытащить все пользовательские почтовые ящики из АД. Попробовал как ldapsearch из пакета OpenLDAP так и модуль Perl - результат одинаковый: что то выдергиваем, но почему то не все...
Вот код:#!/usr/bin/perl
use Net::LDAP;
$ldap = Net::LDAP->new("newpdc.office.company.ru");
$ldap->bind("cn=ldapquery,dc=office,dc=company,dc=ru", password=>"PassworD");
$mesg = $ldap->search(filter=>"(objectClass=*)", base=>"dc=office,dc=company,dc=ru");
@entries = $mesg->entries;
foreach $entry (@entries) {
@mail = $entry->get_value("proxyAddresses");
if(defined(@mail)) {
print "E-Mail: @mail\n";
}
undef(@mail);
}
P.S Под Виндой, VB скрипт вытаскивает все записи... То есть дело но в АД...