IDomainTrustManagement Method: GetAllTrustingDomains

GetAllTrustingDomains () As Variant;

Returns a list of all the trusting domains of the current domain.


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