GetAllTrustingDomains () As Variant;
Description
Returns a list of all the trusting domains of the current
domain.
Example
Dim Trust As
IdomainTrustManagement
Dim Domain As Variant
Dim TrustingDomains As Variant
'Get the interface.
Set Trust = GetObject
("NTDS://DomainName")
'Call the GetAllTrustingDomains method
TrustingDomains =
Trust.GetAllTrustingDomains
For Each Domain In TrustingDomains
Debug.Print Domain
Next Domain
See Also