AD incl. aller Unterordner auslesen

Question

Hallo,

ich möchte als erstes Beichten, dass ich kein VBA-Profi bin :)

Ich habe mir in Excel das folgende VBA-Script erstellt, mit diesem ich Daten aus der AD auslese und in Excel einfüge (anbei die verkürzte Form):

Sub ADAuslesenStarten()
  Call ad("MeineHausOU")
End Sub

Sub ad(ByVal ou As String)
  Set objRoot = GetObject("LDAP://rootDSE")
  strDomain = objRoot.Get("DefaultNamingContext")
  strObjOU = "LDAP://OU=" + ou + "," & strDomain
  Set objOU = GetObject("LDAP://OU=Users,OU=" + ou + ",OU=OUName,DC=MeineFirma,DC=local")
  
  For Each varuser In objOU
    Set objUser = GetObject("LDAP://" & varuser.Name & ",OU=Users,OU=" + ou + ",OU=MeineFirma,DC=MeineFirma,DC=local")
  Next
End Sub

Nun habe ich aber das Problem, dass ich nur immer eine bestimmte OU auslesen kann. Wie muss ich das Script ändern, dass ich alle Unterordner einer OU autom. auslesen kann?

Danke

Answer 1

Hallo sbrand,

Könntest Du Dein Problem lösen? Wenn ja, es wäre schön, wenn Du posten würdest wie es funktioniert hat,
denn dann profitieren unter Umständen andere mit dem gleichen Problem davon.

Wenn nicht, schau Dir mal den folgenden Link an. Vielleicht kann er Dir weiter helfen.

List all groups and all members of the groups (Stichwort: ADS_SCOPE_SUBTREE) + ADODB

Grüße,

Robert

Answer 2

Hallo sbrand,

Ich gehe davon aus, dass die Antwort Dir weitergeholfen hat.
Solltest Du noch "Rückfragen" dazu haben, so gib uns bitte Bescheid.

Grüße,
Robert