' 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.
strTrustName = "<NazwaRelacjiZaufania>"
' Zdefiniowanie nazwy DNS domeny rdowej lub ufajcej.
strDomain    = "<NazwaDNSDomeny>"
' ------ KONIEC KONFIGURACJI ---------
set objRootDSE = GetObject("LDAP://" & strDomain & "/RootDSE")
set objTrust = GetObject("LDAP://cn=System," & _
                         objRootDSE.Get("defaultNamingContext") )
objTrust.Delete "trustedDomain", "cn=" & strTrustName
set objTrustUser = GetObject("LDAP://cn=Users," & _
                         objRootDSE.Get("defaultNamingContext") )
objTrustUser.Delete "trustedDomain", "cn=" & strTrustName & "$"
WScript.Echo "Z powodzeniem usunito relacj zaufania " & strTrustName
