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

This entry was posted on Monday, March 3rd, 2008 at 1:05 pm and is filed under Active directory. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.