获取网络域上的用户列表

Question

我想返回使用 VB.Net 获取网络域上的用户列表。

我将拥有可供我使用的域名。

提前致谢。

Answer 1

它可能会在选择查询中引发错误。

请检查：

您是否向项目中添加了对 System.Management 程序集的引用？如果还没有，请执行以下操作：

在 VS 中，单击“项目”菜单 >“项目”>“项目”。添加参考。
在 .Net 选项卡上，向下滚动直至看到 System.Management。单击它进行选择，然后单击“确定”。
现在回到您的代码，在类的最顶部，输入“Imports System.Management”，您应该已准备就绪。

来源：

http://www.vbforums.com/showthread.php?t=560422

它对我来说没有任何问题。我能够获取该域的所有用户名。

Answer 2

可能会为您指明正确的方向

Private Function GetDomainUsers(ByVal domainDirectoryEntry As DirectoryEntry, ByRef userList As IList) As Integer
Try
    userList = New ArrayList()

    Using domainDirectoryEntry
        Dim ds As New DirectorySearcher(domainDirectoryEntry, "(&(objectCategory=person)(objectClass=user))", New String() {"distinguishedName"})

        Using src As SearchResultCollection = ds.FindAll()
            For Each sr As SearchResult In src
                userList.Add(sr.Properties("distinguishedName")(0))
            Next
        End Using
    End Using

    Return userList.Count
Catch generatedExceptionName As Exception
    userList = Nothing
    Return -1
Finally
    domainDirectoryEntry = Nothing
End Try

使用 System.DirectoryServices 和 System.DirectoryServices.ActiveDirectory: End Function

Answer 3

Imports System.Management
Imports System.Management.Instrumentation  

Sub PrintDomainUsers()  

        Dim domainName As String = System.Environment.UserDomainName.ToString
        Dim userQuery As SelectQuery = New SelectQuery("Win32_UserAccount", "Domain='" & domainName & "'")
        Try
            Dim userSearch As ManagementObjectSearcher = New ManagementObjectSearcher(userQuery)
            For Each domainUser In userSearch.Get
                Console.WriteLine(domainUser("Name"))
            Next

        Catch ex As Exception
            Throw ex
        End Try

End Sub

这可行，但我如何按特定组进行过滤。我收到了数千个结果

Answer 4

另一种选择是探索 System.Management 和 System.Management.Instrumentation。以下是一个简短的代码片段您可以使用这些命名空间拉取特定域的用户。

Imports System.Management
Imports System.Management.Instrumentation  

Sub PrintDomainUsers()  

        Dim domainName As String = System.Environment.UserDomainName.ToString
        Dim userQuery As SelectQuery = New SelectQuery("Win32_UserAccount", "Domain='" & domainName & "'")
        Try
            Dim userSearch As ManagementObjectSearcher = New ManagementObjectSearcher(userQuery)
            For Each domainUser In userSearch.Get
                Console.WriteLine(domainUser("Name"))
            Next

        Catch ex As Exception
            Throw ex
        End Try

End Sub