Récupérer IP lorsque le réseau est débranché

Question

Bonjours,
Sur un poste j'ai 2 carte réseau, les deux sont en IP fixe, je voudrais récupérer les IP de chaques carte, mais je n'ai seulement que celle de la carte branché, l'autre est à 0.0.0.0...

Dim objWMIService
    Dim colNetAdapters
    Dim objNetAdapter
    Dim idx As Integer
    
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & "." & "\root\cimv2")
    Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    
    For Each objNetAdapter In colNetAdapters
        formMain.listCard.AddItem ("Carte : " & objNetAdapter.Caption)
        formMain.listCard.AddItem ("Index : " & objNetAdapter.index)
        formMain.listCard.AddItem ("Adres : " & objNetAdapter.IPAddress(0))
    Next


Merci de votre aide

cs_pluplu · Answer

Un truc m'&#233;chappe si tes IP sont fixe cela veut dire que tu connais ces adresses donc par d&#233;duction pour savoir l'adresse de l'interface qui est d&#233;branch&#233;e il suffit de connaitre l'adresse de celle qui est branch&#233;e non ?



Pascal Lauren&#231;on

Récupérer IP lorsque le réseau est débranché

1 réponse

Discussions similaires