Office: (Office 2010) Ldap abfrage

t_bern · 18. Februar 2013

Hallo zusammen,

ich möchte mir in Excel ein Formular erstellen wo ich mir einen AD-Benutzer über ein Dropdown Menü auswählen kann, und die restlichen Informationen wie Telefonnummer, Fax, Gruppenzugehörigkeit werden automatisch in Zellen gefüllt.

Hat jemand so etwas schon mal gemacht ... oder eine Idee dazu ?

:)

Backowe · 20. Februar 2013

Hi,

schau mal hier: SelfADSI : LDAP Objekt-Attribute lesen oder SelfADSI : Attribute für AD User (Windows 2008)

Backowe · 20. Februar 2013

Hi,

hier mal ein kleines Beispiel:

Code:

Sub LDAPAbfrage()
Dim obj As Object
Dim pAddr As Variant
Dim i As Integer
'Dropdown in A1
Set obj = GetObject("LDAP://CN=" & Range("A1") & ",',OU=Test,OU=Test1,DC=Firma,DC=Domäne")
pAddr = obj.Get("memberOf")
Range("A2") = obj.Get("displayName")
Range("A3") = obj.Get("givenName")
Range("A4") = obj.Get("sn")
Range("A5") = obj.Get("telephoneNumber")
If (IsArray(pAddr)) Then
For i = 0 To UBound(pAddr)
Cells(i + 6, "A") = pAddr(i)
Next
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

t_bern · 20. Februar 2013

Hi zusammen,

an dem Code müsste eine Anpassung vorgenommen werden und es wäre schön wenn Ihr mir helfen könnten.

Code:

Public Function User2()

''Verbindung mit AD aufnehmen
Set objDSE = GetObject("LDAP://rootDSE")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = objConnection
''Directory nach USER-ID durchsuchen
objCommand.CommandText = _
"SELECT cn, sn, givenname, title, telephoneNumber, mail " & _
"FROM 'LDAP://" & objDSE.Get("defaultNamingContext") & "' " & _
"WHERE objectCategory='person' AND cn='" & Suchbegriff & "*' "
Set objRecordset = objCommand.Execute
Do While Not objRecordset.EOF
If Not (IsNull(objRecordset.Fields("cn"))) Then SB_UID = objRecordset.Fields("cn")
If Not (IsNull(objRecordset.Fields("sn"))) Then SB_Name = objRecordset.Fields("sn")
If Not (IsNull(objRecordset.Fields("givenname"))) Then SB_Vorname = objRecordset.Fields("givenname")
If Not (IsNull(objRecordset.Fields("title"))) Then SB_Funktion = objRecordset.Fields("title")
If Not (IsNull(objRecordset.Fields("TelephoneNumber"))) Then SB_Telefon = objRecordset.Fields("TelephoneNumber")
If Not (IsNull(objRecordset.Fields("mail"))) Then SB_EMail = objRecordset.Fields("mail")
objRecordset.MoveNext
Loop
objRecordset.Close
objConnection.Close

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich möchte mit diesen Informationen ein Tabellenblatt füllen.
Alle Benutzer aus dem Ad sollen in einer Tabelle stehen
Könnt Ihr mir helfen ?

t_bern · 20. Februar 2013

ich hab es. Trotzdem danke !

Backowe · 20. Februar 2013

Hi,

ein kleiner Tipp für dein nächstes Posting, der von dir gepostete Code hätte eigentlich in das Ausgangsposting gehört, statt irgendeinen mehr oder weniger nichts aussagenden Text, auf den man sich manches zusammen reimen kann. Und die Wahrscheinlichkeit wäre höher gewesen, direkt eine passende Antwort zu bekommen! *wink.gif*

Office: (Office 2010) Ldap abfrage

Ldap abfrage

Ldap abfrage

Ldap abfrage

Ldap abfrage - Similar Threads - Ldap abfrage

Abfrage: Anzahl von Kriterium >0

Teil des Zellinhaltes abfragen in VBA

Verliert irgendwann die Selektive Abfrage von UFO

automatische Abfrage URL via Artikelnummer

Vorkommen von Kunden in mehreren Tabellen per Abfrage filtern

LDAP Verzeichnis von ADS nach Access

LDAP-Verzeichnis