Discussion :

[Mario Rousson]

Bonjour à tous

j'étudie les informations de mon réseau, j'ai lu la documentation
"Framework .Net 2.0 : les nouveautés pour le réseau" de Ronald Vasseur

Ce que je recherche maintenant c'est à savoir le SSID ou network identifer
Ainsi que le nom de tous ce que j'ai de connecté sur mon réseau Ex: Ordi de Mario, Ordi ami, I-pod


Merci de votre soutiens

[Pol63]

wmi peut etre

[Mario Rousson]

Merci Pol63 pour ton intervention mais je comprend pas ce que tu veux dire par WMI pourrais-tu me pister d'avantage vers la solution. moi, je recherche un tuto la dessus.

merci

[Sankasssss]

Bonsoir,
concernant :

Ainsi que le nom de tous ce que j'ai de connecté sur mon réseau Ex: Ordi de Mario, Ordi ami, I-pod

je pense que la réponse se trouve dans la FAQ comme dit dans un précédent post ^^
Bien à toi

[Mario Rousson]

j'étais justement en train de lire ce poste

je ne suis pas capable d'importer le "Imports system.DirectoryServices"??

[Mario Rousson]

j'ai réussi a importer le directoryService

[Mario Rousson]

Dans la function suivante j'ai une erreur avec DomaineEntry

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Private Function GetPCList(ByVal DomainPath As String) As ArrayList
 
        Dim PCList As Arraylist
        Dim DomainEntry As New DirectoryEntry(DomainPath)
        Dim Entry As DirectoryEntry
 
        DomainEntry.Children.SchemaFilter.Add("Computer")
        For Each entry In DomaineEntry.Children
            ComputerList.Add(entry.Name)
        Next
 
        Return PCList
    End Function

L'erreur est soulignée au niveau de la ligne

Code :

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

For each entery in DomaineEntry.children

Puis je me demande le domaine path est-ce le nom de la machine?

[Mario Rousson]

Excusez mon dernier post car c'étais une erreur d'orthographe dans le code copié

maintenant, encore faut-il
j'ai modifié légerement le code ainsi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Function GetPCList(ByVal DomainPath As String) As ArrayList
 
        Dim PCList As Arraylist
        Dim DomainEntry As New DirectoryEntry(DomainPath)
        Dim Entry As DirectoryEntry
 
        DomainEntry.Children.SchemaFilter.Add("Computer")
        For Each Entry In DomainEntry.Children
            PCList.Add(Entry.Name)
        Next
 
        Return PCList
    End Function

à la ligne

Code :

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

DomainEntry.Children.SchemaFilter.Add("Computer")

j'ai une erreur qui dit

L'exception System.Runtime.InteropServices.COMException n'a pas été gérée
ErrorCode=-2147467259
Message="Erreur non spécifiée "
Source="System.DirectoryServices"
StackTrace: Bla bla bla