The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]




Версия для распечатки Пред. тема | След. тема
Новые ответы [ Отслеживать ]
Чтений атрибутов из AD, !*! Yu5422, 21-Авг-12, 17:02  [смотреть все]
Возникла необходимость читать атрибуты 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;




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру