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! :-)