Hallo
ich brauche unbedingt eure hilfe.
es ist so... jeder User hat zum bsp. eine Nummber
zbsp. User :
IDNummer: vb010
givenName: Peter
sn: Meier
und ich habe mit einer Funktion alle IDNummern die im AD eingetragen sind, ermitteln.
das wäre die Funktion
Alles anzeigen
nun bräuchte ich von jeder IDNummer den Vornamen, Nachnamen, Emailadresse, Telefonnummer...etc...
ich habe mal gelesen das man alles hintereinander hängen kann, also so: Attribs = "givenName, telefonNumber, sn, mail", stimmt das?
habe auch eine Möglichkeit gesehen mit SQL
Alles anzeigen
könnt ihr mir da bitte helfen? ich sitze schon seit tagen daran und googlen hat auch nichts gebracht.
es geht einfach darum das ich die IDNummer hab und einfach ein paar properties zu der Nummer brauche, da ja immer ein User dahinter steckt.
ich danke schonmal
ich brauche unbedingt eure hilfe.
es ist so... jeder User hat zum bsp. eine Nummber
zbsp. User :
IDNummer: vb010
givenName: Peter
sn: Meier
und ich habe mit einer Funktion alle IDNummern die im AD eingetragen sind, ermitteln.
das wäre die Funktion
Quellcode
- Private Function GetAllAccounts()
- Dim Base$, Filter$, Domain$, Depth$, Query$, iElement%, Attribs$
- cnt_Accounts = 0
- Base = "<" & "LDAP://xxxxxxxxxxxxxxxx" & ">"
- Filter = "(&(objectCategory=person)(objectClass=user))"
- Attribs = "name"
- Depth = "subTree"
- Query = Base & ";" & Filter & ";" & Attribs & ";" & Depth
- Connection.Open "Data Source =Acitive Directory Provider; Provider=ADsDSOObject"
- Set Recordset = Connection.Execute(Query)
- ReDim Account(0) As User
- With Recordset
- Do While Not .EOF
- iElement = IIf(Account(0).Number = "", 0, iElement + 1)
- ReDim Preserve Account(iElement) As User
- Account(iElement).Number = Recordset("name")
- .MoveNext
- cnt_Accounts = cnt_Accounts + 1
- Loop
- End With
- ReDim Preserve Account(cnt_Accounts)
- End Function
nun bräuchte ich von jeder IDNummer den Vornamen, Nachnamen, Emailadresse, Telefonnummer...etc...
ich habe mal gelesen das man alles hintereinander hängen kann, also so: Attribs = "givenName, telefonNumber, sn, mail", stimmt das?
habe auch eine Möglichkeit gesehen mit SQL
Quellcode
- Set cnnAD = New ADODB.Connection
- With cnnAD
- .Provider = "AdsDsoObject"
- ' Note use of adModeUnknown here!
- .Mode = adModeUnknown
- .Open
- End With
- Set recAD = New ADODB.Recordset
- ' recAD.Open "Select sAMAccountName,Description,ADsPath,Name " &
- recAD.Open "Select sAMAccountName " & _
- "FROM 'LDAP://DC=treuhand,DC=de' " & _
- "WHERE objectCategory = 'person'", cnnAD
könnt ihr mir da bitte helfen? ich sitze schon seit tagen daran und googlen hat auch nichts gebracht.
es geht einfach darum das ich die IDNummer hab und einfach ein paar properties zu der Nummer brauche, da ja immer ein User dahinter steckt.
ich danke schonmal