fritz1968 has asked for the wisdom of the Perl Monks concerning the following question:

I want to list all of the domain controllers in a given domain. (This is Microsoft Active Directory). The script would run on a Windows XP or 7 workstation. I found some sample code that uses "use Net::DNS;" but I cannot find a DNS module for the WIN32 environment.

Any help would be greatly appreciated.

Replies are listed 'Best First'.
Re: Listing Domain Controllers
by marto (Cardinal) on Sep 23, 2010 at 13:58 UTC

    "I cannot find a DNS module for the WIN32 environment.

    Add repositories via PPM::Repositories or install via cpan. Regarding the AD question, did you look at any of the modules I suggested in the chatterbox? Win32::NetAdmin, Win32::OLE or the LDAP modules?

[reply]

      Yes, I did look though the win32::NetAdmin. GetServers looked to be the most promising, but I could not figure out how to list just the Domain Contollers. It seems that it listed everything but the Domain Contollers... including the workstations... and we have 50k+ workstations here.

      I would assume that any of the following SV codes would list the servers:
      SV_TYPE_SERVER
      SV_TYPE_DOMAIN_CTRL

[reply]

        "Yes, I did look though the win32::NetAdmin. GetServers looked to be the most promising, but I could not figure out how to list just the Domain Contollers."

        Did you miss the GetDomainController and GetAnyDomainController functions? They are the second and third functions listed in the docs.

[reply]
[d/l]
[select]
Re: Listing Domain Controllers
by james2vegas (Chaplain) on Sep 23, 2010 at 13:59 UTC
    You can't install Net::DNS with PPM / CPAN / something else, on Windows?

    Otherwise you can convert something like this, but convert it to use Win32::OLE or DBD::ADO.
[reply]
Re: Listing Domain Controllers
by bingos (Vicar) on Sep 25, 2010 at 22:39 UTC

    Using Win32::OLE and ADSI you can get this information:

    # This Perl code displays the domain controllers for the specified dom
+ain.

# ---------------------------------------------------------------
# Adapted from VBScript code contained in the book:
#      "Active Directory Cookbook" by Robbie Allen
# Publisher: O'Reilly and Associates
# ISBN: 0-596-00466-4
# Book web site: http://rallenhome.com/books/adcookbook/code.html
# ---------------------------------------------------------------

# ------ SCRIPT CONFIGURATION ------
my $strDomain = '';  # e.g. emea.rallencorp.com
# ------ END CONFIGURATION ---------
use Win32::OLE 'in';
$Win32::OLE::Warn = 3;
my $objRootDSE = Win32::OLE->GetObject("LDAP://$strDomain/RootDSE");
my $objDomain = Win32::OLE->GetObject("LDAP://" . $objRootDSE->Get("de
+faultNamingContext"));
my $strMasteredBy = $objDomain->GetEx("masteredBy");
foreach my $strNTDSDN (in $strMasteredBy) {
   my $objNTDS = Win32::OLE->GetObject("LDAP://" . $strNTDSDN);
   my $objServer = Win32::OLE->GetObject($objNTDS->Parent);
   print $objServer->Get("dNSHostName"),"\n";
}

    [download]

    Adapt to taste.

[reply]
[d/l]
      The above code results in: Can't call method "in" on unblessed reference at... referring to line: foreach my $strNTDSDN (in $strMasteredBy) {
[reply]

Back to Seekers of Perl Wisdom