' Kod pokazuje, w jaki sposb szuka tych relacji zaufania, ktre
' przestay funkcjonowa. W tym celu naley zastosowa zapytanie WQL
' zawierajce kryterium TrustIsOk = False.
' ------ KONFIGURACJA SKRYPTU ------
strDomain = "<NazwaDNSDomeny>"  ' np. amer.rallencorp.com
' ------ KONIEC KONFIGURACJI ---------

set objWMI = GetObject("winmgmts:\\" & strDomain & _
                       "\root\MicrosoftActiveDirectory")
set objTrusts = objWMI.ExecQuery("select * " _
                               & " from Microsoft_DomainTrustStatus " _
                               & " where TrustIsOk = False ")
if objTrusts.Count = 0 then
   Wscript.Echo "Nie wykryto adnych bdnych relacji zaufania."
else 
   WScript.Echo "Bdne relacje zaufania:"
   for each objTrust in objTrusts
      Wscript.Echo " " & objTrust.TrustedDomain & " : " & _
                         objTrust.TrustStatusString
      Wscript.Echo ""
   next
end if
