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

Ldap-Abfrage via VBS-Script liefert einen falschen Wert

Frage Entwicklung VB for Applications

Mitglied: kaffebone

kaffebone (Level 1) - Jetzt verbinden

14.06.2010 um 09:42 Uhr, 4428 Aufrufe

ich stehe vor einem Burnout mit dem Problem!

Hallo zusammen!

ich habe es hingekriegt die richtigen Werte aus Ldap auszulesen. Das funktioniert aber nicht immer.
Wir haben in der Firma einen Benutzer Herrn Mustermann, der gleich zwei UID's hat und an der Stelle stolpert mein Script.
Alle Benutzer, die vor Herrn Mustermann vorkommen, bekommen richtige Werte zurück. Alle die nach Herrn Mustermann vorkommen, vererben die Telefonnummer von Hr. Mustermann.

Erkennt jemand einen Fehler im Script? Ist es ein Fehler des Skriptes oder ist es strick unzulässig zwei UID's bei einem Benutzer zu haben?
Zum Script: UID in Ldap = %username%


01.
 
02.
set WshShell = WScript.CreateObject("WScript.Shell")  
03.
UserName = WshShell.ExpandEnvironmentStrings("%username%") 
04.
UserName = UCase(UserName)  
05.
 
06.
'----------------------------------------------------------------- 
07.
'Zugangsdaten zum Ldap:  
08.
ldapName = "ldapserver" 
09.
ldapPass = "ldappwd" 
10.
ldapServer = "bar.foo.org:389/ou=ouwert,o=owert" 
11.
'----------------------------------------------------------------- 
12.
sRoot = "LDAP://" & ldapServer 
13.
Set dso = GetObject("LDAP:") 
14.
Set objRS = CreateObject("adodb.recordset") 
15.
 
16.
On Error Resume Next 
17.
Set xResult = dso.OpenDSObject(sRoot, ldapName, ldapPass, ADS_SECURE_AUTHENTICATION) 
18.
 
19.
For Each obj In xResult 
20.
	 if obj.uid = UserName then	 
21.
		strTel = obj.telephonenumber 
22.
       		WScript.Echo "UserName:" & UserName & vbCrLF & "Tel:" & strTel  & vbCrLF & "name:" & " " & obj.name 
23.
Exit For 
24.
 
25.
	end if 
26.
Next 
27.
 
28.
Set WshShell = Nothing 
29.
Set objServer = Nothing 
30.
 

Danke für jeden Tipp!!!
Ähnliche Inhalte
Windows Server
LDAP Abfrage einrichten (4)

Frage von hscheip zum Thema Windows Server ...

Batch & Shell
gelöst Hilfe Bei einem vbs Script (19)

Frage von Hattori-Hanzo zum Thema Batch & Shell ...

VB for Applications
VBS Script zum versenden mehrerer Verknüpfungen zu Dateien per Lotus Notes

Frage von Sentinel87 zum Thema VB for Applications ...

Linux Tools
gelöst Linux Script mit dreifacher If Abfrage verschachteln (9)

Frage von OIOOIOOIOIIOOOIIOIIOIOOO zum Thema Linux Tools ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Windows Update
gelöst MS: Update-Server-Adressen OHNE Wildcards (17)

Frage von mrserious73 zum Thema Windows Update ...

Viren und Trojaner
Ransomware .nm4 (14)

Frage von Zyklo92 zum Thema Viren und Trojaner ...

Microsoft Office
+1.000 Ordner in Outlook: Wie besser? (11)

Frage von Matsushita zum Thema Microsoft Office ...