GetTrustedDomains
(
) As Variant;
Parameters
None
Description
Gets the names of all trusted domains of a computer
Example
Dim Policy As
IADsNTPolicy
Dim TrustedDomains As Variant
Dim Domain As Variant
Set Policy =
GetObject("NTDS://DomainName1/MachineName")
TrustedDomains = Policy.GetTrustedDomains
For each Domain in TrustedDomains
Debug.print Domain
Next Domain
See Also