Select Code to Download

my $rootDseQueryString = "LDAP://RootDSE";
...

my $RootDSE = Win32::OLE->GetObject($rootDseQueryString);

my $rootDseQueryString = "RootDSE";
...
my $ldap_server = $rootDseQueryString;

$ldap = Net::LDAP->new($ldap_server) or die $@;