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, 7039 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

Powershell 5 BSOD

(3)

Tipp von agowa338 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 VBS Script kann Prgramm nicht starten (15)

Frage von C.Boerner zum Thema VB for Applications ...

Windows Server
Aufgabenplanung bringt bei VBS Script immer 0x41301 (14)

Frage von 116480 zum Thema Windows Server ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...