Bonjour,
j'utilisais sous windows 7 cette fonction pour récupérer la liste des pc sur le réseau :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Public Function Liste_Ordi_Domaine(ByVal domaine As String) As String()
        Dim dirs, dir As System.DirectoryServices.DirectoryEntry
        Dim buf(-1) As String
        Dim ans As New System.Collections.Specialized.StringCollection()
        dirs = New System.DirectoryServices.DirectoryEntry("WinNT://" & Mon_domaine())
        For Each dir In dirs.Children
            ' collect data on all of our Domain PCs
            If dir.SchemaClassName = "Computer" Then
                ans.Add(dir.Name)
            End If
        Next
        If ans.Count > 0 Then
            ReDim buf(ans.Count - 1)
            ans.CopyTo(buf, 0)
        End If
        Return buf
    End Function
Mais depuis windows 10, celle ci ne retourne plus rien.
Malgré mes recherches sur System.DirectoryServices rien y fait.
De plus toutes les solutions que j'ai pus trouver date de 2017.
Je suis sous Windows 10 Professionnel build 19043.1165 avec visual studio 2017.

Merci de vos suggestions