A. Using the Active Directory Services Interface (ADSI) you can use a script like the following sample to query objects from AD--such as trustedDomain objects from a domain's system container--and thereby obtain a list of all the trusted domains.

Option Explicit
Dim objConnection, objChild
Set objConnection =
GetObject("LDAP://vs2003dstdc1.dest.test/cn=system,dc=dest,dc=test")
  objConnection.Filter = Array("trustedDomain")
For Each objChild In objConnection
  WScript.Echo objChild.Name
Next
Wscript.Echo "Operation Completed"

Ensure that you replace the "Set objConnection" Lightweight Directory Access Protocol (LDAP) connection string with one for your domain. For example, if a domain controller (DC) is DC1 in domain savilltech.com, the line would read:

Set objConnection =
GetObject("LDAP://dc1.savilltech.com/cn=system,dc=savilltech,dc=com")