Hi All

I am trying to Authenticate a user from Novell LDAP using the code below. I
can successfully Connect to the LDAP Server, but get the following error
message as soon as I hit the search command:- (a) Server did not send any
data.

Imports System
Imports System.Text
Imports System.Collections
Imports System.DirectoryServices

Public Function AuthenticateUser(ByVal Username As String, ByVal Password As
String) As Collection
       Dim dirSearch As New DirectorySearcher
       Dim resultSet As SearchResultCollection
       Dim result As SearchResult
       Dim resultFields() As String = {"SecurityEquals", "cn"}

       With dirSearch
           .SearchRoot = New DirectoryEntry("server1.com", "username",
"password")
           .PropertiesToLoad.AddRange(resultFields)
           .Filter = "cn=*"
       End With

       Try
           resultSet = dirSearch.FindAll()
           If (resultSet.Count > 0) Then
               For Each result In resultSet
                   '// display results here
               Next
           Else
               '// display error message
           End If
       Catch ex As Exception
           throw ex
       Finally
           dirSearch = Nothing
       End Try
   End Function