Возникла необходимость читать атрибуты AD (Windows 2003) на шлюзовом серваке. Написал скриптик перловый и все бы хорошо но! Часть атрибутов не читается! В частности не могу считать атрибут info у группы! Причем прекрасно его вижу любым LDAP редактором. Помогите кто в курсе где трабл!
Скрипт:#!/usr/bin/perl
use Net::LDAP;
my $ad = Net::LDAP->new("xxx.xxx.xxx.xxx",port=>3268,version=>3) or die "Невозможно соединиться с контроллером";
my $mesg = $ad->bind("xxx\@xxx.local", password=>"xxxxxxxxx"); if ($mesg->code) { print $mesg->error . "\n"; exit; }
$result = $ad->search( base => 'OU=grp.access,DC=xxx,DC=local',
scope => 'base',
filter => '(&(objectclass=group)(cn=grp_1))',
attrs => ['info']);
my $entry = $result->entry;
print $entry->get_value('info');
$ad->unbind;