Viewing the Trusts for a Domain

Using a graphical user interface

  1. Open the Active Directory Domains and Trusts snap-in.
  2. In the left pane, right-click the domain you want to view and select Properties.
  3. Click on the Trusts tab.

Using a command-line interface

> netdom query trust /Domain:

Using VBScript

' This code prints the trusts for the specified domain.
' ------ SCRIPT CONFIGURATION ------
strDomain = ""   ' e.g., rallencorp.com
 ' ------ END CONFIGURATION ---------
' Trust Direction Constants taken from NTSecAPI.h
 set objTrustDirectionHash = CreateObject("Scripting.Dictionary")
 objTrustDirectionHash.Add "DIRECTION_DISABLED", 0
 objTrustDirectionHash.Add "DIRECTION_INBOUND",  1
 objTrustDirectionHash.Add "DIRECTION_OUTBOUND", 2
 objTrustDirectionHash.Add "DIRECTION_BIDIRECTIONAL", 3
' Trust Type Constants - taken from NTSecAPI.h
 set objTrustTypeHash = CreateObject("Scripting.Dictionary")
 objTrustTypeHash.Add "TYPE_DOWNLEVEL", 1
 objTrustTypeHash.Add "TYPE_UPLEVEL", 2
 objTrustTypeHash.Add "TYPE_MIT", 3
 objTrustTypeHash.Add "TYPE_DCE", 4
' Trust Attribute Constants - taken from NTSecAPI.h
 set objTrustAttrHash = CreateObject("Scripting.Dictionary")
 objTrustAttrHash.Add "ATTRIBUTES_NON_TRANSITIVE", 1
 objTrustAttrHash.Add "ATTRIBUTES_UPLEVEL_ONLY", 2
 objTrustAttrHash.Add "ATTRIBUTES_QUARANTINED_DOMAIN", 4
 objTrustAttrHash.Add "ATTRIBUTES_FOREST_TRANSITIVE", 8
 objTrustAttrHash.Add "ATTRIBUTES_CROSS_ORGANIZATION", 16
 objTrustAttrHash.Add "ATTRIBUTES_WITHIN_FOREST", 32
 objTrustAttrHash.Add "ATTRIBUTES_TREAT_AS_EXTERNAL", 64
set objRootDSE = GetObject("LDAP://" & strDomain & "/RootDSE")
 set objTrusts  = GetObject("LDAP://cn=System," & _
                             objRootDSE.Get("defaultNamingContext") )
 objTrusts.Filter = Array("trustedDomain")
 Wscript.Echo "Trusts for " & strDomain & ":"
for each objTrust in objTrusts
    for each strFlag In objTrustDirectionHash.Keys
       if objTrustDirectionHash(strFlag) = objTrust.Get("trustDirection") then
          strTrustInfo = strTrustInfo & strFlag & " "
       end If
    next
   for each strFlag In objTrustTypeHash.Keys
       if objTrustTypeHash(strFlag) = objTrust.Get("trustType") then
          strTrustInfo = strTrustInfo & strFlag & " "
       end If
    next
   for each strFlag In objTrustAttrHash.Keys
       if objTrustAttrHash(strFlag) = objTrust.Get("trustAttributes") then
          strTrustInfo = strTrustInfo & strFlag & " "
       end If
    next
   WScript.Echo " " & objTrust.Get("trustPartner") & " : " & strTrustInfo
    strTrustInfo = ""
 next