Benutzer auf AD-Domänecomputern herausfinden

  • VB.NET
  • .NET (FX) 4.5–4.8

    Benutzer auf AD-Domänecomputern herausfinden

    Hey VB-Paradise Community!

    ich will die Benutzer auf den AD-Domänecomputern(o. Clients) finden.

    Mein bisheriges Werk:

    VB.NET-Quellcode

    1. Option Explicit On
    2. Imports System.DirectoryServices
    3. Imports System.Net
    4. Public Class Form1
    5. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    6. GetComputer()
    7. DomainSearcher(Environment.UserDomainName)
    8. End Sub
    9. Private Sub GetComputer() 'sucht alle compter in der domäne
    10. Dim result As String = ""
    11. Dim IPProperties As NetworkInformation.IPGlobalProperties =
    12. NetworkInformation.IPGlobalProperties.GetIPGlobalProperties
    13. Dim Domain As String = IPProperties.DomainName
    14. Dim DomainEntry As DirectoryEntry = New DirectoryEntry("WinNT://" + Domain)
    15. DomainEntry.Children.SchemaFilter.Add("computer")
    16. For Each Computer As DirectoryEntry In DomainEntry.Children
    17. ListBox1.Items.Add(result & " | " & Computer.Name)
    18. Next
    19. End Sub
    20. Private Sub ListUsers(ByVal Item As String)
    21. Dim name() As String = Item.Split("|")
    22. 'hier wird funktion, zum auslesen der benutzer aufgerufen
    23. End Sub
    24. Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
    25. ListUsers(ListBox1.SelectedItem)
    26. End Sub
    27. Sub DomainSearcher(ByVal Domain As String) 'soll benutzer in domäne finden
    28. Dim Entry As New System.DirectoryServices.DirectoryEntry("LDAP://" & Domain)
    29. Dim Searcher As New System.DirectoryServices.DirectorySearcher(Entry)
    30. Searcher.SearchScope = DirectoryServices.SearchScope.OneLevel
    31. Dim Result As System.DirectoryServices.SearchResultCollection = Searcher.FindAll
    32. For i As Integer = 0 To Result.Count - 1
    33. Dim newNode As New TreeNode
    34. newNode.Text = Result(i).GetDirectoryEntry.Username
    35. TreeView1.Nodes.Add(newNode)
    36. Next
    37. End Sub
    38. End Class


    Leider, komme ich nicht weiter.
    Nach folgendem Schema soll das Programm laufen:
    Programm wir gestartet -> Alle Computer werden aufgelistet(in ListBox) -> Benutzer wählt einen Computer aus -> Alle Benutzer dieses Computer werden angezeigt(in TreeView)

    Hat da iwer ne kleine Idee oder einen Tipp wie ich das machen kann??

    VG
    revenant :)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „n7revenant“ ()