Kreisförmige Gruppenmitgliedschaft aus Active Directory auflisten

Question

Wir haben 40K + Gruppen in unserem Active Directory und wir stehen zunehmend vor dem Problem von zirkular verschachtelten Gruppen, die Probleme für einige Anwendungen schaffen.

Kann jemand den vollständigen Weg auflisten, durch den eine kreisförmige Gruppenmitgliedschaft besteht?

z.B.

G1 --> G2 --> G3 --> G4 --> G1 

Wie listet ich es auf.

Answer 1

Hier, eine modifizierte Version dieses Codes sollte den Trick tun. Schauen Sie sich das Buch natürlich auch an, es ist eine ausgezeichnete Schreibtisch-Ressource, auf die ich mich oft beziehe.

' This VBScript code prints the nested membership of a group. 

' --------------------------------------------------------------- 
' From the book "Active Directory Cookbook" by Robbie Allen 
' ISBN: 0-596-00466-4 
' --------------------------------------------------------------- 

' ------ SCRIPT CONFIGURATION ------ 
strGroupDN = "<GroupDN>" ' e.g. cn=SalesGroup,ou=Groups,dc=rallencorp,dc=com 
' ------ END CONFIGURATION --------- 

strSpaces = " " 
set dicSeenGroupMember = CreateObject("Scripting.Dictionary") 
Wscript.Echo "Members of " & strGroupDN & ":" 
DisplayMembers "LDAP://" & strGroupDN, strSpaces, dicSeenGroupMember 

Function DisplayMembers (strGroupADsPath, strSpaces, dicSeenGroupMember) 

    set objGroup = GetObject(strGroupADsPath) 
    for each objMember In objGroup.Members 
     Wscript.Echo strSpaces & objMember.Name 
     if objMember.Class = "group" then 
     if dicSeenGroupMember.Exists(objMember.ADsPath) then 
      Wscript.Echo strSpaces & " ^already seen group member " & _ 
            "(stopping to avoid loop)" 
     else 
      dicSeenGroupMember.Add objMember.ADsPath, 1 
      DisplayMembers objMember.ADsPath, strSpaces & " ", _ 
          dicSeenGroupMember 
     end if 
     end if 
    next 

End Function