' This code prints out the forest tree hierarchy
' ---------------------------------------------------------------
' From the book "Windows Server Cookbook" by Robbie Allen
' ISBN: 0-596-00633-0
' ---------------------------------------------------------------
' BEGIN SECTION 1
set objRootDSE = GetObject("LDAP://RootDSE")
strBase    =  "<LDAP://cn=Partitions," & _
              objRootDSE.Get("ConfigurationNamingContext") & ">;"
strFilter  = "(&(objectcategory=crossRef)(systemFlags=3));"
strAttrs   = "name,trustParent,nCName,dnsRoot,distinguishedName;"
strScope   = "onelevel"
set objConn = CreateObject("ADODB.Connection")
objConn.Provider = "ADsDSOObject"
objConn.Open "Active Directory Provider"
set objRS = objConn.Execute(strBase & strFilter & strAttrs & strScope)
objRS.MoveFirst
' END SECTION 1
' BEGIN SECTION 2
set dicSubDomainTrue = CreateObject("Scripting.Dictionary")
set dicDomainHierarchy = CreateObject("Scripting.Dictionary")
set dicDomainRoot = CreateObject("Scripting.Dictionary")
' END SECTION 2
' BEGIN SECTION 3
while not objRS.EOF 
   dicDomainRoot.Add objRS.Fields("name").Value, objRS.Fields("nCName").Value
   if objRS.Fields("trustParent").Value <> "" then
      dicSubDomainTrue.Add objRS.Fields("name").Value, 0
      set objDomainParent = GetObject("LDAP://" & _
                            objRS.Fields("trustParent").Value)
      dicDomainHierarchy.Add objRS.Fields("name").Value, _
                             objDomainParent.Get("name")
   else 
      dicSubDomainTrue.Add objRS.Fields("name").Value, 1
   end if
   objRS.MoveNext
wend
' END SECTION 3
' BEGIN SECTION 4
for each strDomain in dicSubDomainTrue
  if dicSubDomainTrue(strDomain) = 1 then
      DisplayDomains strDomain, "", dicDomainHierarchy, dicDomainRoot
  end if 
next
Function DisplayDomains ( strDomain, strSpaces, dicDomainHierachy, dicDomainRoot)
   WScript.Echo strSpaces & strDomain
   DisplayObjects "LDAP://" & dicDomainRoot(strDomain), "  " & strSpaces
   for each strD in dicDomainHierarchy
      if dicDomainHierarchy(strD) = strDomain then
         DisplayDomains strD, "  " & strSpaces, dicDomainHierarchy, _
                        dicDomainRoot
      end if
   next
End Function
' DisplayObjects takes the ADsPath of the object to display 
' child objects for and the number of spaces (indention) to
' use when printing the first parameter
Function DisplayObjects( strADsPath, strSpace)
   set objObject = GetObject(strADsPath)
   Wscript.Echo strSpace & objObject.Name
   objObject.Filter = Array("container","organizationalUnit")
   for each objChildObject in objObject
      DisplayObjects objChildObject.ADsPath, strSpace & " "
   next 
End Function
' END SECTION 4