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
mais ce deux ligne suivant provoque une exception
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 SubErreur inconnue (0x80005000)pouvez vous m'aider mes amis
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 For Each complist As DirectoryEntry In parent For Each c As DirectoryEntry In complist.Children
et un grand merci d'avance
Partager