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