Hallo Forum,

ich möchte gerne ein paar Daten aus dem Active Directory auslesen, das funktioniert auch problemlos. Jetzt habe ich ca. 150 mögliche Variablen die man dort abfragen kann. Diese Variablen habe ich in Tabelle1 in Spalte D.

Nun möchte ich gerne die Werte aus dem AD daneben in Spalte A schreiben.

Das ganze funktioniert aber so einfach wohl nicht. Ich kann den Befehl in der Schleife (oUser) wohl nicht so einfach verketten.

z.B. oUser.displayname ist ok, aber oUser & "." & "displayname" oder & ".displayname" geben mir keine werte zurück.

Wie kann ich das Problem lösen? Vielen Dank schon mal für Eure Mühe.

Mein Code:

Sub Test()

Dim oADInfo As Object
 Dim sUserName As String
 Dim oUser As Object
 Dim i As Integer
 Dim Test As String

 On Error Resume Next
 
 Set oADInfo = CreateObject("ADSystemInfo")
 sUserName = oADInfo.UserName
 Set oUser = GetObject("LDAP://" & sUserName)

 
 For i = 2 To 150
   Test = oUser & "." & Worksheets("Tabelle1").Range("D" & i).Value
   Worksheets("Tabelle1").Range("A" & i).Value = Test
 Next i

 
 Set oUser = Nothing
 Set oADInfo = Nothing

End Sub