Comments on: Listing all domains in a forest

By: Sergio

Sergio — Fri, 09 Sep 2011 11:36:15 +0000

Nice job!

Joining your vbscript with Remko job (http://www.remkoweijnen.nl/blog/2007/11/01/query-active-directory-from-excel/) I’ve done this VBA function: http://serio72.altervista.org/blog/wp-content/uploads/2011/09/GetAdsPropGL.txt

Tnx!

By: Chris

Chris — Thu, 09 Jun 2011 18:03:22 +0000

Remote connectivity requires a server to bind to as well. e.g.

Dim RootDSE As New DirectoryEntry("LDAP://server.domain.com/rootDSE")

All of the existing examples use Serverless Binding which, in turn, uses the DCLocator algorithm to locate servers.

Chris

By: Jet

Jet — Tue, 31 May 2011 07:08:14 +0000

Hello!
I know this is a bit old, but i’ll try my luck… since few days ago i’m trying to connect remotely to my ad with no luck. All what i’d found works fine if run my vb.net app whithin the LAN, when i need to do it from outside it just doesn’t work at all. No matter what or how i set in the path it doesn’t work.
Can some one please help me with the right sintax to connect to a remote ad?
Thanks a lot.
Jet

By: Chris

Chris — Fri, 02 Jul 2010 10:46:17 +0000

Thanks! Fixed the example.

Chris

By: Ian Walker

Ian Walker — Fri, 02 Jul 2010 10:43:53 +0000

In the VBScript code, the query on line 12 will fail with a “Table does not exist” error unless “LDAP” is in upper case.

Otherwise, thanks for this, saved me an hour writing it from scratch.

By: Daniel Wernle

Daniel Wernle — Mon, 24 Nov 2008 13:46:52 +0000

A slightly different way to do it is over a search of the trusted Domains. needed it some time ago to search on different domains in a forrest and fill up objects with the “Domain\\Username” notation …

///
/// Gets All Trusted Domains in the Domain Forrest
///
public Dictionary GetDomains()
{
    SearchResultCollection srCollection;
    DirectoryEntry deRoot = new DirectoryEntry(@"LDAP://eu.infineon.com:389/DC=infineon,DC=com");
            DirectorySearcher deSearcher = new DirectorySearcher(deRoot);
            deSearcher.Filter = ("(objectClass=trustedDomain)");
            deSearcher.PageSize = 1000;
            deSearcher.SearchScope = SearchScope.Subtree;
            srCollection = deSearcher.FindAll();

            //ArrayList DomainList = new ArrayList();
            Dictionary DomainList = new Dictionary();

            foreach (SearchResult se in srCollection)
            {
                string currentDomainName = se.GetDirectoryEntry().Name.ToString();
                string currentNomainFlatName = se.GetDirectoryEntry().Properties["flatname"].Value.ToString();
                currentDomainName = currentDomainName.Replace(".", ",DC=");
                currentDomainName = currentDomainName.Replace("CN", "DC");
                DomainList.Add(currentDomainName,currentNomainFlatName);
            }

            return DomainList;
        }

nice article, thx

By: Oleg

Oleg — Sun, 09 Nov 2008 08:24:12 +0000

Hi, thank you for the scripts.
I tried PS and c# codes. They retrieve only one domain in my environment.
But I have 6 domains, if I open my Network Places->Microsoft Windows Networks I see them.
Also, I can retrieve 6 items when I use this code

DirectoryEntry rootEntry = new DirectoryEntry("WinNT:");
foreach (DirectoryEntry child in rootEntry.Children)
{
   listBox1.Items.Add(child.Name);
}

But I’d like ot use LDAP because of WinNT is legacy provider.
Thanks.