VB aus einem Anmeldename AD Attribute auslesen

ich bin ganz neu hier. Ich versuche gerade ein Skript zu erstellen welches mir aus einem Username verschiedene AD Attribute ausliest.

Mit dem Befehl: "GetObject("LDAP://" & CreateObject("ADSystemInfo").username).telephoneNumber" bekomme ich die Telefonnummer des aktuell angemeldeten Benutzers. Ich möchste aber einen Username übergeben, und die Telefonnummer herausbekommen.

Vielleicht kann mir ja jemand helfen, würde mich sehr freuen

THX!

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

Content-ID: 185324

Url: https://administrator.de/forum/vb-aus-einem-anmeldename-ad-attribute-auslesen-185324.html

Ausgedruckt am: 15.04.2025 um 19:04 Uhr

3 Kommentare

Neuester Kommentar

Servus,

muss man denn die Anfrage direkt in zwei Foren Posten?

Gruß
Norbert

war sehr dringend. Ich habe mittlerweile auch eine Lösung dafür.
Hier der Quellcode:

'### Zu Angemeldeten User die Telefonnummer auslesen ###  

logonName = Username       'hier den Namen des gewünschen Benutzers einsetzen  

Const ADS_NAME_INITTYPE_GC = 3
Const ADS_NAME_TYPE_NT4 = 3
Const ADS_NAME_TYPE_1779 = 1

Set nto = CreateObject("NameTranslate")         'Name Translate Objekt initialisieren und Namen umwandeln  
nto.Init ADS_NAME_INITTYPE_GC, ""  
nto.Set ADS_NAME_TYPE_NT4, logonName
userDN = nto.Get(ADS_NAME_TYPE_1779)            'userDN enthält nun den kompletten LDAP Pfad...  

'#WScript.Echo userDN  

Set user = GetObject("LDAP://" & userDN)        '...dieser kann zum Zugriff auf das Benutzerobjekt verwendet werden  
WScript.Echo user.telephoneNumber