Netzwerk Computer auflisten

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von manni4545.

    alle computer im lokalen netzwerk finden

    hallo jogl,

    diesen code habe ich auf vbarchiv.net gefunden !
    dazu brauchst du ein treeview auf deiner form
    den verweis setzen nicht vergessen !!!

    VB.NET-Quellcode

    1. 'verweis auf System.DirectoryServices setzen
    2. Imports System.DirectoryServices
    3. Public Class Form1
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. Dim childEntry As DirectoryEntry
    7. Dim ParentEntry As New DirectoryEntry
    8. Try
    9. ParentEntry.Path = "WinNT:"
    10. For Each childEntry In ParentEntry.Children
    11. Dim newNode As New TreeNode(childEntry.Name)
    12. Select Case childEntry.SchemaClassName
    13. Case "Domain"
    14. Dim ParentDomain As New TreeNode(childEntry.Name)
    15. TreeView1.Nodes.AddRange(New TreeNode() {ParentDomain})
    16. Dim SubChildEntry As DirectoryEntry
    17. Dim SubParentEntry As New DirectoryEntry
    18. SubParentEntry.Path = "WinNT://" & childEntry.Name
    19. Dim x
    20. x = childEntry.AuthenticationType()
    21. For Each SubChildEntry In SubParentEntry.Children
    22. Try
    23. Select Case SubChildEntry.SchemaClassName
    24. Case "Computer"
    25. Dim newNode1 As New TreeNode("Name : " + SubChildEntry.Name + " IP: " + System.Net.Dns.Resolve(SubChildEntry.Name).AddressList(0).ToString())
    26. ParentDomain.Nodes.Add(newNode1)
    27. End Select
    28. Catch ex As Exception
    29. Debug.WriteLine(SubChildEntry.Name)
    30. End Try
    31. Next
    32. End Select
    33. Next
    34. Catch Ex As Exception
    35. MessageBox.Show(Ex.ToString)
    36. Finally
    37. ParentEntry = Nothing
    38. End Try
    39. End Sub
    40. End Class

    gruss

    mikeb69

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

    gibts das auch für Framework 2 -> VB05, DirectoryEntry scheints da nicht zu geben und ich hab keine Ahnung wie dass dann in VB05 heißen muss... Gibts da was vergleichbares dafür oder muss man dann den Code umschreiben?

    hallo lupus,

    liess mal die erste zeile des beispielcodes (kommentar)
    einfach referenz auf system.directoryservices zu deinem projekt hinzufügen dann sollte es funktionieren.
    diese referenz gibt es auch schon im 2er framework

    gruss

    mikeb69

Facebook
Telefonspende