[Débutant] liste des ordinateurs connecter a un reseau local

bonjour a tous
j'ai besoin de votre aide je travaille en vb.net j'aimerai bien que mon combobox1 sera rempli par la liste des ordinateur connecter sur le réseau local
s'essaye avec ce code la

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        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.item.add(c.Name)
                End If
            Next
        Next
    End Sub

mais ce deux ligne suivant provoque une exception

Citation:

Erreur inconnue (0x80005000)

Code:

1
2
3
 
For Each complist As DirectoryEntry In parent
            For Each c As DirectoryEntry In complist.Children

pouvez vous m'aider mes amis
et un grand merci d'avance