Domino 9 und frühere Versionen > Administration & Userprobleme

Gruppen auflisten....

(1/4) > >>

Pascal:
gibt es eine Möglichkeit im Adressbuch, ich möchte eine Gruppe anzeigen mit allen Unter und Unteruntergruppen, also die ganze Verschachtelung.
Kennt da jemand ein Tool oder einen Agenten?

vielen Dank

Pascal

HipSlu:
hab da was ähnliches bei mir ausgegraben....

das script untersucht ob sich der übergebene user in gruppen befindet die den übergebenen string zumindest zum teil enthalten - müßtest du halt anpassen

Function CheckGroup4User(group As String, user As String)
     Dim db As NotesDatabase
     Dim doc As NotesDocument
     Dim vw As NotesView
     Dim i As Integer, it As Integer
     Dim Members As Variant
     Dim docName As String
     
     Set db = New NotesDatabase(CurrentServer(), "NAMES.nsf")
     Set vw = db.getview("Groups")
     
     it = 0
     Set doc = vw.GetDocumentByKey(group, True)
     If doc Is Nothing Then
           CheckUser4Group = 0
           Exit Function
     End If
'      Messagebox("In Gruppe: " + doc.ColumnValues(1) + ", Name: " + user)
     members = doc.GetItemValue("Members")
     For i = 0 To Ubound(members)
'            Messagebox("Member: " + members(i))
           If Strcompare(members(i), user, 5) = 0Then
                 it = 1
           Elseif Strcompare(Right(members(i), 3), "=AT", 5) <> 0 Then
                 it = CheckGroup4User(members(i), user)
           End If
           If it <> 0 Then Exit For
     Next i
     
     CheckGroup4User = it
End Function



















Function CheckGroupMembers4(groups As String)
     Dim db As NotesDatabase
     Dim session As New NotesSession      
     Dim doc As NotesDocument
     Dim vw As NotesView
     Dim it As Integer
     Dim Members As Variant
     Dim UName As String, docName As String
     Dim NName As New NotesName(session.UserName)
     
     Set db = New NotesDatabase(CurrentServer(), "NAMES.nsf")
     Set vw = db.getview("Groups")
     Call vw.FTSearch("FIELD ListName CONTAINS """ + groups + """")
     
     it = 0
     UName = NName.Canonical
     
     Set doc = vw.GetFirstDocument
'      Messagebox("Name: " + UName)
     Do While Not (doc Is Nothing)      
           If doc.GroupType(0)="0" Then
                 docName = doc.ColumnValues(1)
'                  Messagebox ("findet:"+docName)
                 it = CheckGroup4User(docName, UName)
                 If it Then Exit Do
           End If
           Set doc = vw.GetNextDocument(doc)
     Loop
     
     CheckGroupMembers4 = it
End Function













Function CurrentServer() As String
     Dim workspace As New NotesUIWorkspace
     Dim dbui As NotesUIDatabase
     Dim db As NotesDatabase
     
     Set dbui = workspace.CurrentDatabase
     Set db = dbui.DataBase
     CurrentServer = db.Server
End Function

eknori (retired):
Möchtest du die Gruppe auf Userebene aufdröseln, also eine Liste der User erhalten, die in dieser Gruppe und den in der Gruppe enthaltenen Gruppen Mitglied sind ??

eknori

Pascal:
Hallo zusammen,

vielen Dank für eure Mühe, den Code habe ich noch nicht getestet, trotzdem vielen Dank.

Was ich gerne möchte ist ein Tool oder Agent im NAB wo ich einen Gruppen-Namen eingeben kann und dann wird die Gruppe aufgelöst wie ein Baum-Diagramm oder so

Gruss
Pascal

eknori (retired):
Hab mal ein bisschen rumgefummelt und zumindest schon mal einen Ansatz

@Unique(@Name([CN];@DbLookup("";@Subset(@DbName;1) : "Names.nsf"; "Groups"; >DeinFeld>;"Members")))

Ich habe die Formel in die Eingabeumsetzung eines Auswahlfeldes gepackt Wird in dieses Feld eine Gruppe eingetragen und drückt man F9 wird die Gruppe aufgelöst und alle Mitglieder dieser gruppe angezeigt.

Navigation

[0] Themen-Index

[#] Nächste Seite