Есть некоторая функция, которая проверяет авторизацию (LDAP):
Public Function IsAuthenticated(ByVal username As String, ByVal pwd As String) As Boolean
Dim entry As DirectoryEntry = New DirectoryEntry(_path, username, pwd)
Try
Dim search As DirectorySearcher = New DirectorySearcher(entry)
search.Filter = "(SAMAccountName=" & username & ")"
search.PropertiesToLoad.Add("cn")
Dim result As SearchResult = search.FindOne ' <-------
If (result Is Nothing) Then Return False
_path = result.Path
_filterAttribute = CType(result.Properties("cn")(0), String)
Catch ex As Exception
Throw New Exception(ex.Message)
End Try
Return True
End Function
Все работало, но с некоторых пор перстает на указанном вызове.
После перегрузки сервера опять работает, но ...
Интересен тот факт, что перестает работать как на сервере, так и на локальном компе.
Толкните в нужном направлении куда смотреть, или может есть другой метод авторизации через Active Directory.
------------------------
С уважением, Denis Uskov