Discussion :

[developpeurvb]

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

[wallace1]

Bonjour,

Est-ce une erreur mais dans ton code au niveau du paramètre de ta méthode tu nommes ta variable comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ByVal domaine As String

et dans le corps de ta méthode tu appelles :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Mon_domaine()

En bref domaine et Mon_Domaine() retournent peut être deux valeurs différentes ...o_O...

De mon côté j'ai testé ceci sur Windows 10 et ca retourne correctement les objets computer de l'AD :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
  Public Sub ComputersInDomain(domainName As String)
        Using dirEntry As DirectoryEntry = New DirectoryEntry("WinNT://" & domainName)
            dirEntry.Children.SchemaFilter.Add("computer")
            Using txt As New StreamWriter("c:\Computers.txt")
                For Each c As DirectoryEntry In dirEntry.Children
                    txt.WriteLine(c.Name)
                Next
            End Using
        End Using
    End Sub

Une autre question :

Ton programme est-il exécuté avec une élévation de privilèges (en configurant le fichier MANIFEST) ? :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
<requestedExecutionLevel  level="requireAdministrator"  uiAccess="false" />

++

[developpeurvb]

Merci de ta réponse :
Pour : ByVal domaine As String retourne bien le nom de domaine "WORKGROUP".

Mon programme est-il exécuté avec une élévation de privilèges (en configurant le fichier MANIFEST) ? : OUI
avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
<requestedExecutionLevel  level="requireAdministrator"  uiAccess="false" />

Merci pour le code, je vais tester cela, et reviens pour le résultat.

[wallace1]

Merci de ta réponse :
Pour : ByVal domaine As String retourne bien le nom de domaine "WORKGROUP".

En fait tu ne veux pas retourner les postes disponibles dans un DOMAIN mais les postes disponibles dans un Groupe de travail (=LAN local). Ce n'est pas la même chose !!
A moins d'voir nommé ton domain (Active Directory) Workgroup .......o_O

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 Public Sub ComputersInLocal()
        Using dirEntry As DirectoryEntry = New DirectoryEntry("WinNT:")
            dirEntry.Children.SchemaFilter.Add("computer")
            Using txt As New StreamWriter("c:\Computers.txt")
                For Each c As DirectoryEntry In dirEntry.Children
                    txt.WriteLine(c.Name)
                Next
            End Using
        End Using
    End Sub

Bon codage ++

[developpeurvb]

J'ai testé ta solution avant hier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 Public Function GetPCList() As List(Of String)
        Dim PCList As New List(Of String)
        Using dirEntry As System.DirectoryServices.DirectoryEntry = New System.DirectoryServices.DirectoryEntry("WinNT://" & Mon_domaine)
            dirEntry.Children.SchemaFilter.Add("computer")
            For Each c As System.DirectoryServices.DirectoryEntry In dirEntry.Children
                PCList.Add(c.Name)
            Next
        End Using
        Return PCList
    End Function

Celle-ci a fonctionné. mais ne fonctionne plus aujourd'hui !
Alors je teste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Public Function GetPCList() As List(Of String)
        Dim PCList As New List(Of String)
        Using dirEntry As System.DirectoryServices.DirectoryEntry = New System.DirectoryServices.DirectoryEntry("WinNT:")
            dirEntry.Children.SchemaFilter.Add("computer")
            For Each c As System.DirectoryServices.DirectoryEntry In dirEntry.Children
                PCList.Add(c.Name)
            Next
        End Using
        Return PCList
    End Function

Mais pas mieux, la je me pose des questions.
Je n'ais pas Active Directory, pas de domaine de réseau, c'est juste un simple WORKGROUP avec partage de fichiers et imprimantes.

[wallace1]

Bonjour,

C'est bizarre ce comportement o_O""
Retente avec le code qui a fonctionné en mettant un bloc Try Catch et regardes s'il y a une erreur qui pop :

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
 
 Public Function GetPCList() As List(Of String)
        Dim PCList As New List(Of String)
        Try
        Using dirEntry As System.DirectoryServices.DirectoryEntry = New System.DirectoryServices.DirectoryEntry("WinNT://" & Mon_domaine)
            dirEntry.Children.SchemaFilter.Add("computer")
            For Each c As System.DirectoryServices.DirectoryEntry In dirEntry.Children
                PCList.Add(c.Name)
            Next
        End Using
        Catch ex as exception
            Msgbox(ex.tostring)
        End try
        Return PCList
    End Function