IADsNTPolicy Method: GetTrustedDomains

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