4

我尝试使用 LDAP 匹配规则，但无法使用 LDAP 匹配规则过滤器检索搜索条目。

这就是我发送过滤器的方式： filter (&(objectclass=*)(memberof:1.2.840.113556.1.4.1941:=)(cn=gasaxena))

我也将过滤器转储到 ldap 服务器上收到的 pcap 中，这就是它的样子：过滤器：(&(&(objectclass=*)(memberof:1.2.840.113556.1.4.1941:=[NULL]))(cn=gasaxena))

有人可以指出，如果我错过了什么？服务器是AD

4

4 回答 4

4

您应该对类似于以下的组执行搜索：

(member:1.2.840.113556.1.4.1941:=CN=John Smith,DC=MyDomain,DC=NET)

不是用户的 memberOf。

-吉姆

于 2012-09-25T10:27:23.907 回答
4

要了解 Active-Directory 过滤器，只需查看Search Filter Syntax。

要查找“user1”所属的所有组：

在您的搜索中，将基数设置为组容器 DN；例如根 DN (dc=dom,dc=fr)

将范围设置为子树

使用以下过滤器：(member:1.2.840.113556.1.4.1941:=cn=user1,cn=users,DC=x)

LDIFDE.EXE示例（Windows 上的本机命令行 AD 搜索）：

ldifde -f t.txt -d "DC=dom,DC=fr" -r "(member:1.2.840.113556.1.4.1941:=CN=jblanc,OU=MonOu,DC=dom,DC=fr)"

这会找到 jpblanc 所属的所有组。

于 2012-09-25T04:00:29.503 回答
2

使用memberOf:1.2.840.113556.1.4.1941:=在我的情况下，您必须使用组的完整可分辨名称CN=MyGroup,OU=User,OU=Groups,OU=Security,DC=domain,DC=com是整个专有名称

(&(objectCategory=person)(objectClass=user)(memberOf:1.2.840.113556.1.4.1941:=CN=MyGroup,OU=User,OU=Groups,OU=Security,DC=domain,DC=com))

您可以通过运行以下代码并放入此过滤器(&(objectClass=group)(name=MyGroup))来获取组的专有名称

    Imports System.DirectoryServices

    Module Module1

        Sub Main()
            Dim run As Boolean = True
            Dim Filter As String
            While run
                Console.WriteLine("Enter Filter:")
                Filter = Console.ReadLine()
                If Filter = "exit" Then
                    run = False
                Else
                    checkFilter(Filter)
                End If
            End While
        End Sub

        Function checkFilter(Filter As String) As Boolean
            Dim search As New DirectorySearcher("LDAP://dc=Domain,dc=com")
            Try
                search.Filter = Filter
                search.PropertiesToLoad.Add("name")
                search.PropertiesToLoad.Add("distinguishedName")
                search.SearchScope = SearchScope.Subtree
                Dim results As SearchResultCollection = search.FindAll()
                If results Is Nothing Then
                    Console.WriteLine("Nothing")
                    Return False
                Else
                    If results.Count() = 0 Then
                        Console.WriteLine("non found")
                    End If
                    Dim result As SearchResult
                    For Each result In results
                        Console.WriteLine(result.Properties("name")(0).ToString())
                        Console.WriteLine(result.Properties("distinguishedName")(0).ToString())
                        'For Each prop In result.Properties("members")
                        '    Console.WriteLine(prop.ToString())
                        'Next
                    Next
                    Console.WriteLine(String.Format("{0} Users Found", results.Count()))
                End If
            Catch ex As Exception
                Console.WriteLine(ex.Message)
            End Try
            Return True
        End Function
    End Module
于 2016-02-08T19:27:35.853 回答
0

此组件不正确：(&(objectclass=*)(memberof:1.2.840.113556.1.4.1941:=)(cn=gasaxena))。

也许你的意思是：

(&(objectclass=*)(memberOf:1.2.840.113556.1.4.1941:=cn=gasaxena,<superior-portion-of-distinguished-name-here>))

于 2012-09-24T10:31:48.467 回答