Bonjour à tous,

alors voici un petit code vbs qui me donne le "name" d'une carte réseau en fonction de son NetConnectionId. et stock le résultat dans une variable :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Option Explicit
 
Dim objWMIService, colItemsnet, objItem, strNetworkAddress, Name, MACAddress
 
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 
Set colItemsnet = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter Where NetConnectionId = 'Connexion réseau sans fil'")
 
For Each objItem in colItemsnet
 
    If (objItem.NetEnabled = True) Or (objItem.NetEnabled = False) Then 
 
        Name = objItem.Name
        Wscript.Echo Name
 
    End If
 
Next
je souhaiterai réutiliser cette variable dans une autre commande pour récupérer cette fois ci l'adresse IP de cette carte. Mais je n'y arrive pas.

j'ai tenté de faire comme ceci mais cela ne fonctionne pas :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Option Explicit
 
Dim objWMIService, colItemsnet, objItem, strNetworkAddress, Name, MACAddress
 
 
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 
Set colItemsnet = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter Where NetConnectionId = 'Connexion réseau sans fil'")
 
For Each objItem in colItemsnet
 
    If (objItem.NetEnabled = True) Or (objItem.NetEnabled = False) Then 
 
        Name = objItem.Name
        Wscript.Echo Name
 
    End If
 
Next
 
Dim myIPAddressWIFI, objWMIServ, colAdapters, objAdapter
 
Set colAdapters = objWMIServ.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where Description = name")
 
For Each objAdapter in colAdapters
 
  myIPAddressWIFI = objAdapter.IPAddress
 
  exit for
 
Next
 
    Wscript.Echo myIPAddressWIFI
Si l'un d'entre vous à une idée s'il vous plait je suis preneur.

Merci d'avoir pris le temps de me lire.

Cordialement,