Rechnernamen aus Liste filtern

[MSeiz5]

Hi

Ich habe folgenden Code, welcher sämtliche Benutzernamen und Computernamen in einem Netzwerk auflistet (z.B. in der Schule ist die Ausgabe riesig)

' Einbindung des Verweises System.DirectoryServices
Imports System.DirectoryServices

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim root As New DirectoryEntry("WinNT:")
        Dim parent As DirectoryServices.DirectoryEntries
        parent = root.Children
        Dim d As DirectoryEntries = parent
        For Each complist As DirectoryEntry In parent
            For Each c As DirectoryEntry In complist.Children
                If (c.Name <> "Schema") Then
                    ComboBox1.Items.Add(c.Name)
                End If
            Next
        Next
    End Sub
End Class

Meine Frage: Wie kann ich da die Rechner in meiner Arbeitsgruppe herausfiltern??


Freundliche Grüsse,
MSeiz5

 

[m374kn1gh7]

Hi,
da System.DirectoryServices ja eine suche im active directory is nehme ich ma an (so kenn ichs jetzt nur aus der powershell) das "c" noch weitere Attribute hat ausser "Name".

For Each complist As DirectoryEntry In parent
            For Each c As DirectoryEntry In complist.Children
                If (c.Name <> "Schema" AND c.Group = "deine Gruppe" ) Then
                    ComboBox1.Items.Add(c.Name)
                End If
            Next
Next

Sorry kann kein VBA xD Aber müsste glaube ich trotzdem funzen ^^

Gruß
m374