[Excel / VBA] Récupérer la passerelle par défaut

Récupérer la passerelle par défaut [Excel / VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 07-07-2016 à 09:47:44    

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 :
  1. 'Info Réseau
  3. Dim cpt                As String
  4. Dim WMIService     As Object
  5. Dim Items             As Object
  6. Dim ItemsObj         As Object
  7. Dim ip                  As String
  10. cpt = "."
  12. Set WMIService = GetObject("winmgmts:\\" & cpt & "\root\cimv2" )
  13. Set Items = WMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True", , 48)
  14.     For Each ItemsObj In Items
  15.         If Not IsNull(ItemsObj.IPAddress) Then
  16.             ip = Trim(ItemsObj.IPAddress(0))
  17.             If IsEmpty(Cells(15, LastCol)) Then
  18.                 Cells(15, LastCol).Value = ip
  19.             Else
  20.                 Cells(15, LastCol).Value = Cells(15, LastCol).Value & Chr(10) & ip
  21.             End If
  22.         End If
  23.     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.

Reply

Marsh Posté le 07-07-2016 à 09:47:44   

Reply

Marsh Posté le 07-07-2016 à 18:28:02    

Salut,
 
Chez moi, juste en changeant ItemsObj.IPAddress par ItemsObj.DefaultIPGateway en lignes 15 et 16, ca marche tout seul ... :??:

Reply

Marsh Posté le 08-07-2016 à 08:28:50    

Je suis trop **** je l'ai fait 25 millions de fois, mais j'oubliais juste le (0) après le DefaultIPGateway...
 
Bon ben un très grand merci Chelmi18

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed