Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1622 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2284827
Nol1T1
Posté le 07-07-2016 à 09:47:44  profilanswer
 

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

mood
Publicité
Posté le 07-07-2016 à 09:47:44  profilanswer
 

n°2284857
Chelmi18
Posté le 07-07-2016 à 18:28:02  profilanswer
 

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

n°2284870
Nol1T1
Posté le 08-07-2016 à 08:28:50  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
VBA - appliquer ce code à deux graph au lieu de unVBA Lien entre 2 cellules feuille différente
[VBA] Problème avec tableauTouche "CTRL" du clavier en VBA
[EXCEL] Problème avec la fonction SOMME.SI.ENSNuméros de téléphone google vers excel
[VBA] Travail sur fichier excel en arrière planVBA AIDE
Fusion de lignes sur excel 
Plus de sujets relatifs à : [Excel / VBA] Récupérer la passerelle par défaut


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR