Vorgesetzter aus Adressbuch

gelöstFrage VB for Applications Entwicklung

Hallo ihr pros ;)

ich habe ein kleines VBA, mit dem ich auf das Adressbuch zugreife um dort von "gewünschten" Usern gewisse Daten zu holen...

So hol ich mir den Namen und z.B. den Alias

  Set olMember = olEntry.Item(i)
  
  If olMember.AddressEntryUserType = olExchangeUserAddressEntry Then
  strName = olMember.Name
  strAlias = olMember.GetExchangeUser.Alias

genauso komme ich an Ort, Büronummer,...

allerdings brauch ich jetzt noch den "Vorgesetzten" ... der ist aber (auch im Adressbuch nicht unter Allgemein sondern) unter Organisation. Wie komme ich an den?

Ich arbeite mit Office 2013

Vielen Dank für jede Hilfe

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 315636

Url: https://administrator.de/forum/vorgesetzter-aus-adressbuch-315636.html

Ausgedruckt am: 22.04.2025 um 16:04 Uhr

16 Kommentare

Neuester Kommentar

Moin,

wenn ich das "Bild" richtig interpretiere, geht es hier um AD-Integrierte Kontakte? Wenn ja, dann kannst du dir die Informationen mittels LDAP-Abfrage besorgen.Eine ziemlich gute Aufstellung der Attribute findest du hier

Gruß Krämer

Ich habe zwar eine Benachrichtigung bekommen, dass 2 Leute geantwortet haben , sehe aber KEINE Antwort

edit: und schon ist eine da

@Kraemer:

gesagt, getan...
Hier bin ich zu allen Usern gekommen
https://community.spiceworks.com/scripts/show/1572-list-user-info-in-exc ...

Aber 2. Probleme. Erstens LDAP ist gefühlt 10 mal langsamer (warum auch immer <- ich weiß, dass sich das Adressbuch auch vom LDAP bedient <- wobei die "Geschwindigkeit" nicht sooo wichtig ist)
Zweitens mir fehlt immer noch der Vorgesetzte...

evtl. noch Tipps?

Moin,

mit dem LDAP-Browser kann man sich alle Parameter anschauen.

Der Vorgsetzte erscheint dann unter dem Feld "manager".

Gruß
em-pie

Danke sehr sehr geil...

ich weiß ich stell blöde fragen, aber wie bekomme ich jetzt diesen String:

CN=Name\, Vorname,OU=Ort,OU=USR,OU=Struktur_neu,OU=Firma,DC=de,DC=domain,DC=local

"welcher von Manager" zurückgegeben wird, jetzt in einen Namen oder besser eine NutzerID???

Danke

Set objUser = GetObject("LDAP://CN=Name\, Vorname,OU=Ort,OU=USR,OU=Struktur_neu,OU=Firma,DC=de,DC=domain,DC=local")  
msgbox objUser.Name

Regards

wie wäre es mit einem weiteren LDAP Query?

schau mal hier z.B.
LDAP Abfrage über VB Script

Edit:
Oder wie Highload schrieb

Okay, vielen vielen dank...
noch eine Frage:
wie bekomm ich das Foto?
1. welcher Parameter hab leider keinen "LDAP-Browser"
2. wie verarbeite ich das in VBA / Excel - möchte das in einer Tabelle ablegen (am besten als String) und mit einer "Userform" draufzugreifen können (da dann als Bild)

Danke

New question = New thread...

Zitat von @94451:

Okay, vielen vielen dank...
noch eine Frage:
wie bekomm ich das Foto?
1. welcher Parameter hab leider keinen "LDAP-Browser"
2. wie verarbeite ich das in VBA / Excel - möchte das in einer Tabelle ablegen (am besten als String) und mit einer "Userform" draufzugreifen können (da dann als Bild)

Danke

Zu 1:
https://www.google.de/search?newwindow=1&client=firefox-b&q=LDAP ...

Zu 2:
Siehe highloads Post; hier bin ich dann auch "überfragt"
Nur eine Anmerkung:
Kann sein, das da nicht das Bild 1:1 abgelegt wird, sondern als "kryptische" Zahlen-Buchstaen-Kombination, ähnlich wie in den vCards.
Sicher bin ich mir aber nicht.

MoinMoin,

Zitat von @94451:
wie bekomm ich das Foto?

Das Bild ist in der Eigenschaft ThumbnailPhoto als ByteArray [byte[]] abgelegt. Lässt sich z.B. mit Powershell so aus dem AD extrahieren und in eine Datei schreiben:

$photobytes = (Get-ADUser maxmuster -Prop ThumbnailPhoto).ThumbnailPhoto
[IO.File]::WriteAllBytes('C:\Pfad\avatar.png',$photobytes)  

Grüße Uwe

Zitat von @94451:
Zweitens mir fehlt immer noch der Vorgesetzte...

evtl. noch Tipps?

Ja, sich einfach mal die Links ansehen, die man hier postet. In dem von mir genannten Link steht das Wort Vorgesetzte(r) 1:1. Nicht wirklich schwierig das manager daneben zu finden.