VB.NET与LDAP的连接失败未知用户名或错误密码

我真的很希望在这个问题上得到一些帮助。我们有一个php代码，可以工作并连接到LDAP。当我尝试使用VB.NET 2010进行连接时，由于登录失败，无法绑定未知用户名或错误密码。下面是连接信息。当我与运行ldap服务器的人员交谈时，他们说我绑定成功，下面是成功绑定的日志文件？如果我继续并尝试执行搜索，则不会得到任何结果。服务器在linux服务器上运行openLDAP 2.3.39版，服务器要求在端口636上连接以实现安全连接，或在端口389上连接以实现匿名连接

在代码中使用以下导入：

Imports System.DirectoryServices
Imports System.DirectoryServices.Protocols
Imports System.Data.SqlClient
Imports System.Net.NetworkCredential

我的连接：

Dim dirEntry As DirectoryEntry = New DirectoryEntry("LDAP://xxx.MyDomain.xxx/cn=users,dc=MyDomain,dc=xxx", "uid=my-bind,cn=users,dc=MyDomain,dc=xxx", "MyPassword")
 dirEntry.AuthenticationType = AuthenticationTypes.SecureSocketsLayer

我的BindLog：

3月16日15:10:17 ldap4 slapd[17391]： conn=110556 op=0结果标签=97错误=0 text=Mar 16 15:10:17 ldap4 slapd[17391]：conn=110555 op=0绑定 dn=“uid=mybind，cn=users，dc=myDomain，dc=xxx” 方法=128 Mar 16 15:10:17 ldap4 slapd[17391]：conn=110555 op=0绑定 dn=“uid=my bind，cn=users，dc=myDomain.xxx” 机械=简单ssf=0 3月16日15:10:17 ldap4 slapd[17391]：conn=110555 op=0 结果标记=97错误=0文本=

我的搜索：

Try
            Dim search As New DirectorySearcher(enTry)
            search.Filter = ("(&(objectClass=users)(cn=" & myUser & "))")

            Dim result As SearchResult = search.FindOne()
            Dim myResult As Boolean = Nothing
            If result Is Nothing Then
                myResult = False
            Else
                myResult = True
            End If
            .... do some processing here

        Catch f As Exception
            Console.WriteLine(f.Message & vbCrLf & f.HelpLink.ToString)
        End Try

“uid=my bind，cn=users，dc=MyDomain，dc=xxx”，“MyPassword”）

你尝试使用的构造函数可能是

Public Sub New(ByVal path As String, ByVal username As String, ByVal password As String)

---

但是您将“uid=my bind，cn=users，dc=MyDomain，dc=xxx”作为用户名传递。

如果我对以下内容进行更改，我将收到以下错误：如果我将Dim dirEntry更改为DirectoryEntry=New DirectoryEntry（“LDAP://xxx.MyDomain.xxx/cn=users，dc=MyDomain，dc=xxx”，“我的绑定”，“我的密码”）我收到以下错误：指定了无效的dn语法。如果我将dn更改为path=（“LDAP://xxx.myDomain.xxx:636:/cn=users，dc=myDomaon，dc=xxx”，“myBind”，“myPassword”），我将收到的错误是登录失败，或者连接到系统的设备不再工作。我无法连接LDAP。在发帖之前，我曾努力在网上搜索。我检查、更改并尝试了所有可能的解决方案。我最终能够进入，但我从sourceForge这里下载了代码并编译了它。对于ldap_net.dll，将其作为参考添加到我的程序中，并为我的导入导入导入ldap_net。这就像一个冠军！搜索功能运行良好，但我花了一秒钟的时间修改它以满足我的需要。谢谢你的回复。霍利斯，很高兴知道有人在找你。

Public Sub New(ByVal path As String, ByVal username As String, ByVal password As String)