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 :
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.
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
j'ai tenté de faire comme ceci mais cela ne fonctionne pas :
Si l'un d'entre vous à une idée s'il vous plait je suis preneur.
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
Merci d'avoir pris le temps de me lire.
Cordialement,
Partager