# The following code lists all of the trusts for the
# specified domain using the Trustmon WMI Provider.
# The Trustmon WMI Provider is only supported on Windows Server 2003.

# ---------------------------------------------------------------
# Adapted from VBScript code contained in the book:
#      "Active Directory Cookbook" by Robbie Allen
# Publisher: O'Reilly and Associates
# ISBN: 0-596-00466-4
# Book web site: http://rallenhome.com/books/adcookbook/code.html
# ---------------------------------------------------------------

# ------ SCRIPT CONFIGURATION ------
my $strDomain = "<DomainDNSName>";  # e.g. amer.rallencorp.com
# ------ END CONFIGURATION ---------
use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objWMI = Win32::OLE->GetObject("winmgmts:\\\\$strDomain\\root\\MicrosoftActiveDirectory");
my $objTrusts = $objWMI->ExecQuery("Select * from Microsoft_DomainTrustStatus");
foreach my $objTrust (in $objTrusts) {
    print objTrust.TrustedDomain;
    print " TrustedAttributes: " , $objTrust->TrustAttributes, "\n";
    print " TrustedDCName: "     , $objTrust->TrustedDCName, "\n";
    print " TrustedDirection: "  , $objTrust->TrustDirection, "\n";
    print " TrustIsOk: "         , $objTrust->TrustIsOK, "\n";
    print " TrustStatus: "       , $objTrust->TrustStatus, "\n";
    print " TrustStatusString: " , $objTrust->TrustStatusString, "\n";
    print " TrustType: "         , $objTrust->TrustType, "\n";
    print "\n"
}