Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Listing Domain Controllers

by bingos (Vicar)
on Sep 25, 2010 at 22:39 UTC ( #862016=note: print w/ replies, xml ) Need Help??


in reply to Listing Domain Controllers

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"; }

Adapt to taste.


Comment on Re: Listing Domain Controllers
Download Code
Re^2: Listing Domain Controllers
by Anonymous Monk on Jul 27, 2012 at 13:41 UTC
    The above code results in: Can't call method "in" on unblessed reference at... referring to line: foreach my $strNTDSDN (in $strMasteredBy) {

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://862016]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (9)
As of 2015-07-01 21:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (22 votes), past polls