# This Perl code deletes a trust in the specified domain.

# ---------------------------------------------------------------
# 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 ------
# Set to the DNS or NetBIOS name for the Windows 2000,
# Windows NT domain or Kerberos realm trust you want to delete.
my $strTrustName = "<TrustName>";
# Set to the DNS name of the source or trusting domain
my $strDomain    = "<DomainDNSName>";
# ------ END CONFIGURATION ---------
use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objRootDSE = Win32::OLE->GetObject("LDAP://$strDomain/RootDSE");
my $objTrust = Win32::OLE->GetObject("LDAP://cn=System," .
                         $objRootDSE->Get("defaultNamingContext") );
$objTrust->Delete("trustedDomain", "cn=" & $strTrustName);
my $objTrustUser = Win32::OLE->GetObject("LDAP://cn=Users," .
                         $objRootDSE->Get("defaultNamingContext") );
$objTrustUser->Delete("trustedDomain", "cn=" . $strTrustName . '$');
print "Successfully deleted trust for $strTrustName\n";