Accessing LDAP using VB.NET

Category:

C#, VB.NET, ASP.NET

Type:

Snippets

Difficulty:

Advanced

Author:

Winanjaya

Version Compatibility: Visual Basic.NET

More information:

I use OpenLDAP 2.0 on my RedHat Advance Server 2.1 and I can access it by using this VB.NET codes below, I never use to access LDAP which running on another O/S .. try it for free!

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Option Explicit On 
Imports System.DirectoryServices

Public Function GetLDAPUsers(ByVal ldapServerName As String, ByVal pFindWhat As String) As ArrayList
        Dim oSearcher As New DirectorySearcher
        Dim oResults As SearchResultCollection
        Dim oResult As SearchResult
        Dim RetArray As New ArrayList
        Dim mCount As Integer
        Dim mIdx As Integer
        Dim mLDAPRecord As String

Dim ResultFields() As String = {"securityEquals", "cn"}

Try
            With oSearcher
                .SearchRoot = New DirectoryEntry("LDAP://" & ldapServerName & _
          "/dc=lippogeneral,dc=com")
                .PropertiesToLoad.AddRange(ResultFields)
                .Filter = "cn=" & pFindWhat & "*"
                oResults = .FindAll()
            End With

mCount = oResults.Count
            If mCount > 0 Then
                For Each oResult In oResults
                    mLDAPRecord = oResult.GetDirectoryEntry().Properties("cn").Value & "  " & oResult.GetDirectoryEntry().Properties("mail").Value
                    RetArray.Add(mLDAPRecord)
                Next
            End If
        Catch e As Exception

MsgBox("Error is " & e.Message)
            Return RetArray

End Try

Return RetArray

End Function