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
GELÖST

Lotus Notes LDAP abfrage

Frage Entwicklung VB for Applications

Mitglied: skid

skid (Level 1) - Jetzt verbinden

07.04.2008, aktualisiert 08.04.2008, 11732 Aufrufe, 2 Kommentare

Hi,

Wer kann mir sagen wie ich mit VB-Skript das LDAP von Lotus Notes abfragen kann ?
Bräuchte ein Beispiel in dem ich z.B. den Usernamen eingebe und dann als Ergebnis die Emailadresse zurück bekomme.

LDAP Abfragen im AD bekomme ich soweit hin - nur mit Notes komme ich nicht so klar.
Vielleicht kann mir jemand helfen ?!

Gruss
SKID
Mitglied: RDiller
08.04.2008 um 16:19 Uhr
Hi Skid,

ich habe folgenden Code für Dich. Er ist zwar in/für VBA, aber ich denke du solltest damit klarkommen.


sqls = "SELECT NotesAddr.Nname, NotesAddr.Vname, NotesAddr.Shortname, NotesAddr.eMail, NotesAddr.Gruppe, NotesAddr.Tel " _
& "FROM NotesAddr;"
Set rstemp = CurrentDb.OpenRecordset(sqls)
adressbuch = "names.nsf"
'Das Adressbuch PEOPLE auslesen
ansicht = "People"
Server = "<Dein Servername>" 'z.B.: mail01/xxxx/xxxx
i = 0
Set objNotes = GetObject("", "Notes.NotesSession")
If objNotes Is Nothing Then
Set objNotes = CreateObject("Notes.NotesSession")
End If
Set LNdb = objNotes.GetDatabase(Server, adressbuch)
Set LNview = LNdb.GetView(ansicht)
Call LNview.Refresh
Set LNdoc = LNview.GetFirstDocument
ReDim lnarray(100, 50)
On Error Resume Next
Do While Not LNdoc Is Nothing
Set item = LNdoc.GetFirstItem("lastname")
Set item1 = LNdoc.GetFirstItem("firstname")
Set item2 = LNdoc.GetFirstItem("shortname")
Set item3 = LNdoc.GetFirstItem("InternetAddress")
Set item4 = LNdoc.GetFirstItem("OfficePhoneNumber")
array1 = item.Values
array2 = item1.Values
array3 = item2.Values
array4 = item3.Values
array5 = item4.Values
rstemp.AddNew
rstemp.Fields(0) = array1(0)
rstemp.Fields(1) = array2(0)
If UBound(array3) > 0 Then
rstemp.Fields(2) = array3(1)
Else
rstemp.Fields(2) = array3(0)
End If
rstemp.Fields(5) = array5(0)
rstemp.Fields(3) = array4(0)
rstemp.Update
Set LNdoc = LNview.GetNextDocument(LNdoc)
Loop
'Verteilergruppen ermitteln
ansicht = "Groups"
Set LNdb = Nothing
Set LNview = Nothing
Set LNdoc = Nothing
i = 0
Set LNdb = objNotes.GetDatabase(Server, adressbuch)
Set LNview = LNdb.GetView(ansicht)
Call LNview.Refresh
Set LNdoc = LNview.GetFirstDocument
ReDim lnarray(100, 50)
On Error Resume Next
Do While Not LNdoc Is Nothing
Set item = LNdoc.GetFirstItem("Listname")
array1 = item.Values
rstemp.AddNew
rstemp.Fields(0) = array1(0)
rstemp.Fields(2) = array1(0)
rstemp.Fields(3) = array1(0)
rstemp.Fields(4) = True
rstemp.Update
Set LNdoc = LNview.GetNextDocument(LNdoc)
Loop
On Error GoTo 0
rstemp.Close
Set rstemp = Nothing
Set LNdoc = Nothing
Set LNview = Nothing
Set LNdb = Nothing
Set objNotes = Nothing



Gruß

Ralf
Bitte warten ..
Mitglied: skid
08.04.2008 um 16:34 Uhr
Hi,

danke für den Code.
Damit komme ich jetzt schon mal etwas weiter.

Gruss
SKID
Bitte warten ..
Ä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 ...

Multimedia & Zubehör
Esker Fax Services für Lotus Notes

Frage von Hendrik2586 zum Thema Multimedia & Zubehör ...

E-Mail
Lotus Notes Traveler- Benutzer einrichten im Admin (8)

Frage von Hendrik2586 zum Thema E-Mail ...

E-Mail
Lotus Notes 8.3.5 Deinstallation (5)

Frage von Hendrik2586 zum Thema E-Mail ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(29)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Windows Server

Exchange 2010 Active Directory und Windows Server 2016

(4)

Erfahrungsbericht von Herbrich19 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Internet
gelöst Mitarbeiter surft auf unerwünschter Seite - Wie damit umgehen? (52)

Frage von sabines zum Thema Internet ...

Netzwerke
LAN2LAN Verbindung sehr langsam flaschenhals gesucht (27)

Frage von PixL86 zum Thema Netzwerke ...

Router & Routing
PFsense - Netzverbindung steht, aber kein Internet vorhanden (25)

Frage von aschmid zum Thema Router & Routing ...

Windows Server
gelöst Windows 2016 Hyper-V und VHDS (19)

Frage von emeriks zum Thema Windows Server ...