|
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
|