1: Uselsx "lsxldap"

   2: Option Explicit

   3:  

   4:  

   5: Sub Initialize

   6:     

   7: '---------------------------------------------------------------- 

   8: ' Variable definition

   9: '

  10:     Dim session As LDAPSession

  11:     Dim search As  LDAPSearch

  12:     Dim result As  LDAPResultSet

  13:     Dim entry  As LDAPEntry

  14:     

  15:     Dim status As  Variant

  16:     Dim num As  Long

  17: '---------------------------------------------------------------

  18: ' Object instances

  19: '

  20:     Set session = New LDAPSession

  21:     Set search =  New LDAPSearch

  22:     Set result =  New LDAPResultSet

  23:     

  24: '--------------------------------------------------------------

  25: ' Connect to LDAP server

  26: ' 

  27:     session.dn = "cn=Cristian D'Aloisio,o=MyOrg,c=It"

  28:     session.password = "xxxx"

  29:     

  30:  'using anonymouse here

  31:     session.Host = "172.30.10.25"

  32:     Print "Connecting to..." , session.Host

  33:     

  34:     status = session.Connect

  35:     

  36:     If  status  Then

  37:         Print "Connected to ", session.Host

  38:     Else

  39:         Print "Can't connect to", session.Host

  40:         Exit Sub

  41:     End If

  42:     

  43:     

  44:     

  45: '------------------------------------------------------------

  46: ' Object instances

  47: '

  48:     Set search.Session = session

  49:     Set search.ResultSet = result

  50:     

  51: '-------------------------------------------------------------

  52: ' Perform a search - search specified entry

  53: '

  54:     search.filter = "(objectclass=*)"

  55:     search.base  = "cn=Cristian D'Aloisio,o=MyOrg,c=It"

  56:     search.scope  = LDAP_SCOPE_BASE

  57:     

  58:     status = search.Execute

  59:     Print "Search.Execute",   status

  60:     

  61:     num = result.count

  62:     Print "Result.count",  num

  63:     

  64: '-------------------------------------------------------------

  65: 'Iterate search result using LDAPResultSet.GetNextEntry

  66: '

  67:     ' Dim entry   As LDAPEntry

  68:     Dim attr_name  As String

  69:     Dim valuestr   As String

  70:     Dim avalue  As Variant

  71:     

  72:     

  73:     Set entry = result.GetFirstEntry()

  74:     

  75:     While Not (entry Is Nothing)

  76:   'print "DN=", entry.DN

  77:         

  78: '-------------------------------------------------------------

  79: 'Iterate all attributes of this entry using GetNextAttr

  80: '

  81:         attr_name = entry.getFirstAttr()

  82:         While Not (attr_name = "")

  83:             

  84: '-------------------------------------------------------------   

  85: 'Get an array of values from LDAPEntry.GetValue

  86: '

  87:             Dim i As Integer

  88:             

  89:             Print "Attribute: ", attr_name

  90:             avalue = entry.getValue(attr_name)

  91:             For i=Lbound(avalue) To Ubound(avalue) 

  92:                 Print ,, avalue(i)

  93:             Next

  94:             

  95:             attr_name = entry.getNextAttr()

  96:         Wend

  97:         

  98:         Set entry = result.GetNextEntry(entry)

  99:     Wend

 100:     

 101: '--------------------------------------------------------------

 102: 'Disconnect the session

 103:     

 104:     session.disconnect

 105:     

 106:     

 107: End Sub