C# 和 VB.NET LDAP 搜索有何不同？

Question

有谁知道 C# 和 VB.NET 中 DirectorySearcher 对象上 FindAll() 方法的实现是否有区别？据我了解，它们都被“编译”为 MSIL，并由 CLR 以相同的方式处理。针对我们的 ADAM/LDAP 系统，下面的 C# 代码会引发错误，而下面的 VB.NET 不会。

这是 C# 异常堆栈：

at System.DirectoryServices.DirectoryEntry.Bind(Boolean throwIfFail)
  at System.DirectoryServices.DirectoryEntry.Bind()
  at System.DirectoryServices.DirectoryEntry.get_AdsObject()
  at System.DirectoryServices.DirectorySearcher.FindAll(Boolean findMoreThanOne)
  at System.DirectoryServices.DirectorySearcher.FindAll()

这是 C# 错误：

System.Runtime.InteropServices.COMException was unhandled
Message="The parameter is incorrect.\r\n"
Source="System.DirectoryServices"
ErrorCode=-2147024809

C#代码：

private void button1_Click(object sender, EventArgs e)
{
    DirectoryEntry root = new DirectoryEntry("LDAP://directory.corp.com/OU=Person,OU=Lookups,O=Corp,C=US", null, null, AuthenticationTypes.Anonymous);
    DirectorySearcher mySearcher = new DirectorySearcher(root);

    mySearcher.Filter = "(uid=ssnlxxx)";
    mySearcher.PropertiesToLoad.Add("cn");
    mySearcher.PropertiesToLoad.Add("mail");

    SearchResultCollection searchResultCollection = null;
    searchResultCollection = mySearcher.FindAll(); //this is where the error occurs

    try
    {
        foreach (SearchResult resEnt in searchResultCollection)
        {
            Console.Write(resEnt.Properties["cn"][0].ToString());
            Console.Write(resEnt.Properties["mail"][0].ToString());
        }
    }
    catch (DirectoryServicesCOMException ex)
    {
        MessageBox.Show("Failed to connect LDAP domain, Check username or password to get user details.");
    }
}

这是有效的 VB.NET 代码：

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

    Dim root As New     DirectoryEntry("LDAP://directory.corp.com/OU=People,OU=Lookups,O=corp,C=US", vbNull, vbNull, authenticationType:=DirectoryServices.AuthenticationTypes.Anonymous)
    Dim searcher As New DirectorySearcher(root)
    searcher.Filter = "(uid=ssnlxxx)"
    searcher.PropertiesToLoad.Add("cn")
    searcher.PropertiesToLoad.Add("mail")

    Dim results As SearchResultCollection

    Try
        results = searcher.FindAll()

        Dim result As SearchResult
        For Each result In results
            Console.WriteLine(result.Properties("cn")(0))
            Console.WriteLine(result.Properties("mail")(0))
        Next result
    Catch ex As Exception
        MessageBox.Show("There was an error")
    End Try
End Sub

Answer 1

我猜想在 VB.NET 代码中，您在 DirectoryEntry 构造函数和 C# 代码中为 DirectoryEntry 构造函数中的两个参数传入 vbNull（而不是 Nothing） null。 vbNull 可能来自邪恶的 Microsoft.VisualBasic 程序集，不应使用。

DirectoryEntry 的构造函数检查用户名和密码参数以查看它们是否为空。如果vbNull != Nothing，构造函数不会将它们视为null，并且会表现不同。

如果您使用Nothing，请查看VB.NET 代码是否引发异常，或者使用String.Empty 而不是null 来查看C# 代码是否有效。

此外，在您的 C# 代码中，对 FindAll 的调用位于 try 块之外。

Answer 2

C# 和 VB.NET 都没有实现 DirectorySearcher 或 .NET 的任何其他部分。它们都是 .NET Framework 的一部分。