Bonjour à tous,
Je me permets de poster car depuis hier il m'est impossible de trouver la réponse à ma question.
Je vous la soumets en espérant que quelqu'un pourra m'aiguiller.
Voici mon le bout du code impacté par ma requête :
Code :
- 'Info Réseau
- Dim cpt As String
- Dim WMIService As Object
- Dim Items As Object
- Dim ItemsObj As Object
- Dim ip As String
- cpt = "."
- Set WMIService = GetObject("winmgmts:\\" & cpt & "\root\cimv2" )
- Set Items = WMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True", , 48)
- For Each ItemsObj In Items
- If Not IsNull(ItemsObj.IPAddress) Then
- ip = Trim(ItemsObj.IPAddress(0))
- If IsEmpty(Cells(15, LastCol)) Then
- Cells(15, LastCol).Value = ip
- Else
- Cells(15, LastCol).Value = Cells(15, LastCol).Value & Chr(10) & ip
- End If
- End If
- Next
|
Ma question :
Comment récupérer la passerelle?
J'ai trouvé la class DefaultIPGateway mais impossible de l'intégrer dans mon code sans avoir une erreur...
Je vous remercie par avance.