当用户没有组时，在 Active Directory 中搜索特定组的成员失败

问题描述

以下代码应该遍历活动目录中的所有用户并找到特定组中的每个人。 一旦获得用户，它会将他们添加到数据表中，该数据表将成为 gridview 的来源，最终导出到 Excel。

但是，在运行和单步执行时，我注意到它在某个没有组的用户上停止了。 我尝试添加一个条件语句来跳过该实例，但它不起作用，当它找到没有组的用户时，代码仍然停止运行。

有人可以告诉我我可以做些什么不同的事情吗？ 警告：这是我继承的一个遗留站点，对活动目录知之甚少，并且是一个新手 vb 编码器。

Dim entry As DirectoryEntry = New DirectoryEntry("LDAP://DOMAIN.EDU", "USERNAME", "PASSWORD", AuthenticationTypes.Secure)
    Dim search As DirectorySearcher = New DirectorySearcher(entry) With {
        .Filter = "(&(objectCategory=User)(objectClass=person))",
        .PageSize = 4000
    }
    search.PropertiesToLoad.Add("userPrincipalName").ToString
    search.PropertiesToLoad.Add("name").ToString
    Dim mySearchResultColl As SearchResultCollection = search.FindAll
    Dim results As DataTable = New DataTable
    results.Columns.Add("User ID")        
    results.Columns.Add("Full Name")
    Dim CurrRow = 0

    For Each sr As SearchResult In mySearchResultColl

        Dim dr As DataRow = results.NewRow
        Dim de As DirectoryEntry = sr.GetDirectoryEntry
        !!!! line below is the problem !!!!
        If de.Properties("memberOf") IsNot Nothing AndAlso de.Properties("memberOf").Value.ToString = "CN=MYGROUP,OU=Security Groups,OU=Students,DC=DOMAIN,DC=edu" Then 
            dr("User ID") = de.Properties("userPrincipalName").Value           
            dr("Full Name") = de.Properties("name").Value
            results.Rows.Add(dr)
            de.Close
        End If
    Next

    gvNot.DataSource = results
    gvNot.DataBind()
    gvNot.Visible = True
    gvAgreed.Visible = False
    ExportToExcel("notagreed", gvNot)

尝试使用 String.Equals function 和 StringComparer.OrdinalIgnoreCase 参数，而不是使用 equals 运算符。 另外你得到的错误是什么？