Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

ActiveDirectory-Felder des jeweils angemeldeten Users auslesen um es in die Registry zu schreiben

Tipp Entwicklung VB for Applications

Mitglied: mjchiphazard

mjchiphazard (Level 1) - Jetzt verbinden

23.06.2009, aktualisiert 19:21 Uhr, 8820 Aufrufe, 3 Danke

Ü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:

01.
On Error Resume Next 
02.
 
03.
'### Benutzer abfragen ### 
04.
 
05.
set wshshell = createobject("Wscript.shell") 
06.
Const strBaseKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Logon User Name" 
07.
'### mit ausgabe-anzeige : : : msgbox (wshshell.regread(strbasekey)) ### 
08.
 
09.
 
10.
 
11.
 
12.
'### pager-wert aus ad lesen ### 
13.
 
14.
Set objUser = GetObject_("LDAP://CN=user name,OU=Benutzer,OU=IT,OU=DE,DC=dom.,DC=firma,DC=local") 
15.
'### originalzeile mit fix user eintrag : : : Set objUser = GetObject_("LDAP://CN=m.mustermann,OU=Benutzer,OU=IT,OU=DE,DC=dom.,DC=firma,DC=local") ### 
16.
'### mit ausgabe-anzeige : : : WScript.Echo GetObject("LDAP://" & CreateObject("ADSystemInfo").UserName).pager ### 
17.
Pager = GetObject("LDAP://" & CreateObject("ADSystemInfo").UserName).pager 
18.
 
19.
 
20.
 
21.
 
22.
'### pager-wert in registry setzen ### 
23.
 
24.
RegKey = "HKCU\Software\Tools\Workflow(Urlaub)\PersonalID" 
25.
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
Ähnliche Inhalte
Batch & Shell
gelöst Variable per Batch auslesen und in Registry schreiben (3)

Frage von Zendara zum Thema Batch & Shell ...

Windows Server
gelöst Account-Sperrungen eines AD-Users auslesen (2)

Frage von MissJones zum Thema Windows Server ...

Batch & Shell
Per Batch aktuell angemeldete User auslesen (1)

Frage von Peter32 zum Thema Batch & Shell ...

Neue Wissensbeiträge
Entwicklung

Exploit Development

Anleitung von burhanudinn123 zum Thema Entwicklung ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(2)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
Netzwerkprotokolle
Leiten "dumme" Switches VLAN-Tags mit durch? (19)

Frage von coltseavers zum Thema Netzwerkprotokolle ...

Batch & Shell
Batch zum suchen und verschieben von Verknüpfungen (12)

Frage von zeroblue2005 zum Thema Batch & Shell ...

Windows Server
gelöst Neues KB für W10 1607 und W2K16 wieder mal nicht im WSUS 3.0, hat das noch jemand? (12)

Frage von departure69 zum Thema Windows Server ...

Windows Server
Terminalserver starten willkürlich neu (12)

Frage von thaefliger zum Thema Windows Server ...