如何使用VB.NET在AD中搜索整个域的用户

时间:2012-04-04 18:01:27

标签: vb.net active-directory ldap

我了解如何使用确切的LDAP网址

查找用户
LDAP://domain/CN=Username,OU=Users,DC=domain,DC=com

但如果我需要在不查看特定OU的情况下找到用户,该怎么办?如何搜索整个域名?

2 个答案:

答案 0 :(得分:3)

如果您使用的是.NET 3.5或更高版本,则应查看PrincipalSearcher类:

' create your domain context
Dim ctx As New PrincipalContext(ContextType.Domain)

' define a "query-by-example" principal - here, we search for a UserPrincipal 
' and with the first name (GivenName) of "Bruce" and a last name (Surname) of "Miller"
Dim qbeUser As New UserPrincipal(ctx)
qbeUser.GivenName = "Bruce"
qbeUser.Surname = "Miller"

' create your principal searcher passing in the QBE principal    
Dim srch As New PrincipalSearcher(qbeUser)

' find all matches
For Each found As var In srch.FindAll()
    ' do whatever here - "found" is of type "Principal" - it could be user, group, computer.....          
Next

如果您还没有 - 绝对阅读MSDN文章Managing Directory Security Principals in the .NET Framework 3.5,该文章很好地展示了如何充分利用System.DirectoryServices.AccountManagement中的新功能。或者查看MSDN documentation on the System.DirectoryServices.AccountManagement命名空间。

当然,根据您的需要,您可能希望在您创建的“按示例查询”用户主体上指定其他属性:

  • DisplayName(通常:名字+空格+姓氏)
  • SAM Account Name - 您的Windows / AD帐户名称
  • User Principal Name - 您的“username@yourcompany.com”样式名称

您可以在UserPrincipal上指定任何属性,并将其用作PrincipalSearcher的“按示例查询”。

或者如果您只想找到特定用户 - 请尝试以下方法:

' find a user
Dim user As UserPrincipal = UserPrincipal.FindByIdentity(ctx, "SomeUserName")

' do something here....     
If user IsNot Nothing Then
   . .....
End If

答案 1 :(得分:0)

只需从LDAP路径中省略OU结构即可。这将在域的根目录设置搜索。

LDAP://DC=domain,DC=com

并使用过滤器查找特定用户:

(&(objectClass=User)(cn=" & susername & "))