Код, показывающиий информацию из Root DSE
# Программа, показывающая информацию из Root DSE
use strict;
use Net::LDAP;
my $ldap = Net::LDAP->new(?dc1?) or die $@;
my $rootdse = $ldap->root_dse(attrs => [?defaultNamingContext?]);
print $rootdse->get_value(?defaultNamingContext?);

Поделитесь материалом с коллегами и друзьями