獲取網絡域上的用戶列表

Question

我想回到使用VB.Net獲取網絡域上的用戶列表。

我將擁有可供我使用的域名。

在此先感謝。

Answer 1

像這樣的東西可能指向你在正確的方向，使用的System.DirectoryServices和System.DirectoryServices.ActiveDirectory：

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 

端功能

Answer 2

另一種辦法是探索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 

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程序集的引用？如果你沒有，這樣做：

在VS中，單擊項目菜單>添加引用。
在.Net選項卡上，向下滾動，直到看到System.Management。點擊它選擇，然後點擊確定。
現在回到你的代碼中，在你的班級的最頂層，放入「Imports System.Management」，你應該全部設置好。

來源：

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

它的工作對我來說沒有任何問題。我能夠獲得域的所有用戶名。