Discussion :

[raphxyz]

Salut à tous,

Je rencontre un petit soucis avec une requête WMI.
J'aimerais lister mes adresse ip concernant une de mes cartes réseau seulement je n'arrive qu'a en récupérer une seule. (qui n'est meme pas ma principale).

Voici ma petite fonction:

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
19
20
21
22
23
24
 
Private Function getIPs() As Object
        Dim moOS As ManagementObjectSearcher
        Dim reponse(0) As String
        Dim i As Integer = 0
 
        Try
            moOS = New ManagementObjectSearcher("SELECT IPAddress FROM Win32_NetworkAdapterConfiguration WHERE Description = '" & AdapateurReseau & "'")
        Catch ex As Exception
            moOS = Nothing
        End Try
 
        If moOS Is Nothing Then
            Return moOS
        End If
 
        For Each moIP As ManagementObject In moOS.Get
            ReDim Preserve reponse(i + 1)
            reponse(i) = moIP("IPAddress")(i).ToString
            i += 1
        Next
 
        Return reponse
    End Function

Ai-je mal compris ?

Merci d'avance pour votre aide qui me sera on ne peut plus précieuse! :-)

[Pol63]

il n'y a pas besoin de wmi pour connaitre les ips du poste, dans system.net il y a ce qu'il faut (dns quelque chose la classe)

[raphxyz]

Ok merci bien pour ta réponse mais comme je le disais, je doit le faire en requête WMI.
C'est d'office possible puisque elle est sensée me retourner un array d'ip comprenant toutes les ip que j'ai pu définir à cette carte réseau.

Je pense que mon erreur de compréhension se situe au niveau de la boucle.

Code :

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

For Each moIP As ManagementObject In moOS.Get

Pour retourner ma liste de cartes réseau mon code resemble à ceci, et il fonctionne parfaitement.

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
19
20
21
22
23
24
Private Function setListeBoxCartesReseau() As Object
        Dim ListeDesCartes(0) As String
        Dim i As Integer = 0
        Dim moOS As ManagementObjectSearcher
 
        Try
            moOS = New ManagementObjectSearcher("SELECT Description FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
        Catch ex As Exception
            moOS = Nothing
        End Try
 
        If moOS Is Nothing Then
            Return moOS
        End If
 
        For Each moIP As ManagementObject In moOS.Get
            ReDim Preserve ListeDesCartes(i + 1)
            ListeDesCartes(i) = moIP("Description")
            i += 1
        Next
 
        Return ListeDesCartes
 
    End Function

Une idée?

[Pol63]

si tu passes par wmi code creator tu peux voir ce que retourne les requetes wmi et tu peux obtenir le code qui va avec

[raphxyz]

Ok merci j'ai fini par trouver ma baitise! :-)

j'ai pas envie de dire que j'ai été con sur ce coup mais bon... ;-)

Voila la solution pour ceux que cela intéraissent

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
19
20
21
22
23
Private Function getIPs() As Object
        Dim moOS As ManagementObjectSearcher
        Dim reponse(0) As String
        Dim i As Integer = 0
 
        Try
            moOS = New ManagementObjectSearcher("SELECT IPAddress FROM Win32_NetworkAdapterConfiguration WHERE Description = '" & AdapateurReseau & "'")
        Catch ex As Exception
            moOS = Nothing
        End Try
 
        If moOS Is Nothing Then
            Return moOS
        End If
 
        For Each moIP As ManagementObject In moOS.Get
            ReDim Preserve reponse(i + 1)
            reponse = moIP("IPAddress")
            i += 1
        Next
 
        Return reponse
    End Function

Merci et a bientôt :-)

[Pol63]

redim preserve c'est interdit de nos jours ^^

utilise plutot un list(of ) qui permet de faire des .add

[raphxyz]

ok pas faux... merci

[_Ez3kiel]

il n'y a pas besoin de wmi pour connaitre les ips du poste, dans system.net il y a ce qu'il faut (dns quelque chose la classe)

Pour ceux qui voient ce topic et ne passe pas obligatoirement par Wmi : Dns.GetHostEntry retourne une liste d'ip si on lui passe le hostname (effet retro aussi).

[raphxyz]

Re,

Me voici avec un autre problème. :-(
Me voici avec un problème de tri des arrays retournés.

En effet,

Lorsque je récupère mes ip avec la requête précédente et que je fais de même avec les masques de sous-réseaux, ceux-ci ne sont apparemment pas triés de la même façon

requête de liste d'ip

Code :

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

SELECT IPAddress FROM Win32_NetworkAdapterConfiguration WHERE Description = '" & AdapateurReseau & "'

requete des masques de sous-réseaux:

Code :

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

SELECT IPSubnet FROM Win32_NetworkAdapterConfiguration WHERE Description = '" & AdapateurReseau & "'

EXEMPLE:
Ma config :
IP1 : 10.0.0.2
MASQUE1 : 255.255.0.0
IP2 : 192.168.0.2
MASQUE2 : 255.255.255.0
IP3 : 192.168.1.2
MASQUE3 : 255.255.255.0

Résultat de requête :
IP1 : 192.168.0.2
MASQUE1 : 255.255.0.0
IP2 : 10.0.0.2
MASQUE2 : 255.255.255.0
IP3 : 192.168.1.2
MASQUE3 : 255.255.255.0

Avez-vous une idée ou une solution en WMI?

Merci d'avance :-)

[raphxyz]

Re,

Bon ben autant pour moi, c'est dans le même ordre :-S
C'est juste qu'après être passé par liste(Of String) puis un toArray(), le tableau se mélangeait... Je ne sais trop pourquoi.

donc, problème résolu. :-)