3
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!
Vielleicht kann mir ja jemand helfen, würde mich sehr freuen
THX!
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 185324
Url: https://administrator.de/contentid/185324
Printed on: April 26, 2024 at 08:04 o'clock
3 Comments
Latest comment
Servus,
muss man denn die Anfrage direkt in zwei Foren Posten?
Gruß
Norbert
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:
MfG,
Claus
[Edit Biber] Codeformatierung [/Edit]
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.telephoneNumberMfG,
Claus
[Edit Biber] Codeformatierung [/Edit]
