ActiveDirectory-Felder des jeweils angemeldeten Users auslesen um es in die Registry zu schreiben
Übergabe eines beliebigen Feldes aus dem AD des jeweils angemeldeten Users in die Registry
Die Herausforderung bestand einem Prg. zu sagen woher es ein Feld aus dem AD bekommt.
Das Prg. selber zog sich aber das benötigte Datenfeld aus der Registry.
Also mußte ich ein Script zusammenbasten, welches diese Herausforderung übernahm.
Das sieht dann so aus:
Ich hoffe vielleicht weiteren Admins damit helfen zu können!?
und sag nochmals besten Dank an alle Supporter!
Grüße
Thomas
Die Herausforderung bestand einem Prg. zu sagen woher es ein Feld aus dem AD bekommt.
Das Prg. selber zog sich aber das benötigte Datenfeld aus der Registry.
Also mußte ich ein Script zusammenbasten, welches diese Herausforderung übernahm.
Das sieht dann so aus:
On Error Resume Next
'### Benutzer abfragen ###
set wshshell = createobject("Wscript.shell")
Const strBaseKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Logon User Name"
'### mit ausgabe-anzeige : : : msgbox (wshshell.regread(strbasekey)) ###
'### pager-wert aus ad lesen ###
Set objUser = GetObject_("LDAP://CN=user name,OU=Benutzer,OU=IT,OU=DE,DC=dom.,DC=firma,DC=local")
'### originalzeile mit fix user eintrag : : : Set objUser = GetObject_("LDAP://CN=m.mustermann,OU=Benutzer,OU=IT,OU=DE,DC=dom.,DC=firma,DC=local") ###
'### mit ausgabe-anzeige : : : WScript.Echo GetObject("LDAP://" & CreateObject("ADSystemInfo").UserName).pager ###
Pager = GetObject("LDAP://" & CreateObject("ADSystemInfo").UserName).pager
'### pager-wert in registry setzen ###
RegKey = "HKCU\Software\Tools\Workflow(Urlaub)\PersonalID"
CreateObject("WScript.Shell").RegWrite RegKey, Pager
Ich hoffe vielleicht weiteren Admins damit helfen zu können!?
und sag nochmals besten Dank an alle Supporter!
Grüße
Thomas
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 118841
Url: https://administrator.de/knowledge/activedirectory-felder-des-jeweils-angemeldeten-users-auslesen-um-es-in-die-registry-zu-schreiben-118841.html
Ausgedruckt am: 23.12.2024 um 11:12 Uhr