Hallo,
ich versuche mittel VBA in Excel eine AD-Gruppe auszulesen:
Sub LeseADGruppe(Gruppe As String)
Dim grp As ActiveDs.IADsGroup
Dim mem As ActiveDs.IADsUser
Set grp = GetObject("WinNT://DOMAINE/" & Gruppe & "")
For Each mem In grp.Members
mem.GetInfo
ActiveCell = Gruppe
ActiveCell.Offset(0, 1) = mem.Name
ActiveCell.Offset(0, 2) = mem.FullName
ActiveCell.Offset(1, 0).Select
Next mem
End Sub
Dies funktioniert soweit ganz gut, nur enthält die Gruppe auch andere Gruppen, welche ich auch gerne gelistet hätte.
Weiß jemand von Euch, wie ich auch die enthaltenen Gruppen abfragen kann?
Gruß
Thomas |