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

Einen Wert aus ldap mit Authentifikation per VBS-Script auslesen.

Frage Entwicklung VB for Applications

Mitglied: kaffebone

kaffebone (Level 1) - Jetzt verbinden

16.04.2010 um 13:27 Uhr, 7050 Aufrufe, 2 Kommentare

Hallo,

ich muss einen Wert (Telefonnummer) aus Ldap auslesen. Leider kenne ich mich mit VB nicht aus.
Es gibt im Internet viele Beispiele, doch es muss eine Authentifizierung für die Verbindungsaufbau/Query stattfinden, was die Sache für mich sehr verkompleziert...
Was nicht funktioniert ist die Authentifikation. Ich bekomme die Fehlermeldung "die Tabelle ist nicht vorhanden".

gegeben sind:
Loginname, Passwort
"SELECT * FROM 'LDAP://bla.bla.de:389/ou=bla,o=bla' WHERE objectClass='person' AND uid='uidwert'"

Für jeden Tipp bin ich dankbar:
Mitglied: dog
16.04.2010 um 17:04 Uhr
Warum liest du LDAP über WMI aus?
Dafür gibt es ADSI.

http://web.archive.org/web/20071123064000/http://www.geocities.com/cali ...
Bitte warten ..
Mitglied: kaffebone
19.04.2010 um 08:04 Uhr
erst mal Danke für das Link! Es hat mich schon weiter gebracht.

Es funktioniert schon wie ich möchte:

01.
  
02.
Set args = WScript.Arguments 
03.
set WshShell = WScript.CreateObject("WScript.Shell")  
04.
 
05.
userName = "loginname" 
06.
userPass = "password" 
07.
ldapServer = "ldapserver.de:389/ou=ouwert,o=owert" 
08.
sRoot = "LDAP://" & ldapServer 
09.
 
10.
Set dso = GetObject("LDAP:") 
11.
Set objRS = CreateObject("adodb.recordset") 
12.
 
13.
On Error Resume Next 
14.
 
15.
Set xResult = dso.OpenDSObject(sRoot, userName, userPass, ADS_SECURE_AUTHENTICATION) 
16.
 
17.
'WScript.Echo "Result: " & Err.number 
18.
 
19.
For Each obj In xResult 
20.
	if obj.uid = UserName then 
21.
	strTel = obj.telephonenumber 
22.
    WScript.Echo obj.uid & " " & obj.name & " " & strTel 
23.
	end if 
24.
Next 
25.
 



leider weiß ich nicht so recht wie ich einen Filter (uid) früher einbauen kann, damit die Abfrage noch am Server bearbeitet wird. Im Moment leidet die Performance dadurch sehr, ich warte auf ein Ergebnis ca. halbe Minute.
Danke im Voraus!
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Sticky Notes - Autostart unterbinden

Tipp von Pedant zum Thema Windows 10 ...

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

Frage von Sentinel87 zum Thema VB for Applications ...

Batch & Shell
gelöst VBS Script in eine Textdatei ausgeben (VBS mit Batch zusammenführen) (5)

Frage von Luuke257 zum Thema Batch & Shell ...

VB for Applications
gelöst Bestimmte Spalten aus CSV-Datei auslesen (VBS) (9)

Frage von Gurkenhobel zum Thema VB for Applications ...

Batch & Shell
Eventlog Druckjobs mit VBS auslesen (4)

Frage von joni2000de zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Batch & Shell
gelöst Base64 Decode (Batch,VBS) (26)

Frage von clragon zum Thema Batch & Shell ...

Flatrates
DeutschlandLAN der Telekom - welche internen IPs? (19)

Frage von qualidat zum Thema Flatrates ...