[VBA] LDAP connectie

Pagina: 1
Acties:

  • Sjakskus
  • Registratie: Maart 2002
  • Laatst online: 05-05 15:26
Ik heb de volgende vraag:

Ik wil via MsWord/VBA het volgende doen:
- Inloggen op LDAP server Novell
- eDirectory gegevens inlezen en bewerken
- Inloggen LDAP server Exchange/Active Directory
- Exchange gegevens bewerken en inlezen

Nu ben ik al even op zoek geweest naar hoe ik dit kan doen, maar ik kom er maar niet uit

Ik heb via google wel een aantal OCX-en gevonden waarmee dit zou moeten kunnen, maar deze waren allemaal betaald en dus niet zomaar te downloaden.

1. Weet iemand hoe ik via VBA connect met een LDAP server?
2. Weet iemand een goede tutorial hierover

Alvast bedankt

Beschikbaar voor ontwikkeling van (webbased) applicaties en dataconversies


  • RobIII
  • Registratie: December 2001
  • Niet online

RobIII

Admin Devschuur®

^ Romeinse Ⅲ ja!

(overleden)
http://www.google.com/search?hl=en&q=vba+ldap :?
http://groups-beta.google...ff=1&safe=off&sa=N&tab=wg :?
http://groups-beta.google...ang_de&safe=off&c2coff=1& :?
http://groups-beta.google...ff=1&safe=off&sa=N&tab=wg :?
http://www.google.com/sea...ang_de&safe=off&c2coff=1& :?
http://groups-beta.google...ff=1&safe=off&sa=N&tab=wg :?

LDAP RFC's
Oppassen ;)

en dan wat stukjes code:
Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
12
SQLquery = "SELECT * FROM 'LDAP://172.16.0.1:389'" 
    Set Conn = CreateObject("ADODB.Connection­") 
    With Conn 
        .provider = "ADSDSOObject" 
        '.Properties("User Id").Value = "" 
        '.Properties("Password").Value = "" 
        .Open "ADs Provider" 
    End With 
    Set rs = Conn.Execute(SQLquery) 
    Do While Not rs.EOF Or rs.BOF 
        ReturnValue = rs.Fields(0) 
    Loop 


Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
      'VB6 code, maar die is relatief makkelijk om te zetten in VBA
      Dim conn As ADODB.Connection
      Dim rs As ADODB.Recordset

      Set conn = New ADODB.Connection
      conn.Provider = "ADSDSOObject"
      conn.Open "ADs Provider"

      Set rs = conn.Execute( _
            "<LDAP://server/o=organization/ou=site/cn=recipients>;" _
            & "(objectClass=*);ADsPath,objectClass,cn;subtree")

      While Not rs.EOF
         Debug.Print rs.Fields(0).Value, rs.Fields(1).Value, _
               rs.Fields(2).Value
         rs.MoveNext
      Wend

      conn.Close


Je vraag is wel heel erg breed, en er lijkt me zat over te vinden. Kun je wat specifieker zijn?
Bij mijn weten kun je gewoon ADO gebruiken om LDAP te benaderen (zie ook bovenstaande voorbeelden)

Overigens, als je VBA code zoekt, kun je vaak ook wegkomen met zoeken naar VB code: http://www.google.com/sea...ng_nl%7Clang_en%7Clang_de
Ook google specifiek naar door Microsoft.com site laten zoeken scheelt weer lang bladeren.

[ Voor 151% gewijzigd door RobIII op 08-03-2005 16:56 ]

There are only two hard problems in distributed systems: 2. Exactly-once delivery 1. Guaranteed order of messages 2. Exactly-once delivery.

Je eigen tweaker.me redirect

Over mij


  • Sjakskus
  • Registratie: Maart 2002
  • Laatst online: 05-05 15:26
je bent een schatje... ik ga er mee aan de slag

idd VBA en LDAP in google heb ik niet geprobeert (DOM DOM DOM)
"visual basic"en ldap etc .....

Beschikbaar voor ontwikkeling van (webbased) applicaties en dataconversies


  • RobIII
  • Registratie: December 2001
  • Niet online

RobIII

Admin Devschuur®

^ Romeinse Ⅲ ja!

(overleden)
Wat heeft het Document Object Model hiermee te maken :? :+
Graag gedaan :>

[ Voor 7% gewijzigd door RobIII op 08-03-2005 17:05 ]

There are only two hard problems in distributed systems: 2. Exactly-once delivery 1. Guaranteed order of messages 2. Exactly-once delivery.

Je eigen tweaker.me redirect

Over mij