Код, показывающиий информацию из 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?);