# Kod usuwa relacj zaufania dla okrelonej domeny

# ------ KONFIGURACJA SKRYPTU ------
# Zdefiniowanie nazwy DNS lub NetBIOS usuwanej relacji zaufania domeny
# systemu Windows 2000 lub Windows NT bd obszaru Kerberos.
my $strTrustName = "<NazwaRelacjiZaufania>";
# Zdefiniowanie nazwy DNS domeny rdowej lub ufajcej.
my $strDomain    = "<NazwaDNSDomeny>";
# ------ KONIEC KONFIGURACJI ---------
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 "Z powodzeniem usunito relacj zaufania $strTrustName\n";
