Discussion :

[viking7]

Bonjour à tous,

J'ai récupéré un code vbs sur internet qui fonctionne à merveille. Il affiche l'adresse IP d'un client VPN. J'aimerai pouvoir le transcrire en Visual Basic Express 2010. Je débute en Visual basic et le problème c'est que l'adresse IP est intégré dans un tableau. J'ai bien trouvé des exemples sur internet utilisant WMI / Visual basic mais je ne n'y arrive pas.

Voici le code VBS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objAdapter In colAdapters
 
	If InStr(objAdapter.IPAddress(0), PPTPNetwork) > 0 Then VPNIPAddress = objAdapter.IPAddress(0)
	wscript.echo "VPNIPAddress"
Next
 
Set colAdapters = Nothing
Set objWMIService = Nothing

Merci pour vos réponses

[tomlev]

En VB.NET ça donne un truc comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim searcher As New ManagementObjectSearcher("root\CIMV2", "Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each result As ManagementObject In searcher.[Get]()
	Dim addresses As String() = DirectCast(result("IPAddress"), String())
        If addresses(0).Contains(PPTPNetwork) Then VPNIPAddress = addresses(0)
	Console.WriteLine(VPNIPAddress)
Next

Jette un coup d'oeil à WMI Code Creator, c'est très pratique pour générer automatiquement ce genre de code

[viking7]

En VB.NET ça donne un truc comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim searcher As New ManagementObjectSearcher("root\CIMV2", "Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each result As ManagementObject In searcher.[Get]()
	Dim addresses As String() = DirectCast(result("IPAddress"), String())
        If addresses(0).Contains(PPTPNetwork) Then VPNIPAddress = addresses(0)
	Console.WriteLine(VPNIPAddress)
Next

Jette un coup d'oeil à WMI Code Creator, c'est très pratique pour générer automatiquement ce genre de code

Merci beaucoup pour cette réponse rapide et avec un code clair.
J'ai essayé cela me renvoie l'adresse IP de ma carte Ethernet. Je ne suis pas en VPN. J'essaierai en VPN et je te donnerai le résultat de mes tests.

J'utilise WMI Code creator mais là je m'en suis pas sorti du fait que l'IP Adresse est dans un tableau. Je dois pioché également du côté de WMI Code creator qui est très utile.

Le code que tu m'as transmis a-t-il été généré par WMI Code creator?

[tomlev]

Le code que tu m'as transmis a-t-il été généré par WMI Code creator?

Pas exactement, je me suis juste inspiré du code généré et j'ai adapté par rapport à ton code à toi

Par contre, il n'y a rien dans ta requête WMI qui limite les résultats aux interfaces VPN... il faudrait sans doute rajouter une autre condition, mais je sais pas trop laquelle.

Le fait que ça renvoie un tableau ne devrait pas être un problème, il suffit de prendre le premier élément du tableau

[viking7]

Pas exactement, je me suis juste inspiré du code généré et j'ai adapté par rapport à ton code à toi

Par contre, il n'y a rien dans ta requête WMI qui limite les résultats aux interfaces VPN... il faudrait sans doute rajouter une autre condition, mais je sais pas trop laquelle.

Le fait que ça renvoie un tableau ne devrait pas être un problème, il suffit de prendre le premier élément du tableau

Bonjour,

Effectivement rien ne dit que c'est une interface VPN. Si tu as une solution, je suis preneur.

Par contre la valeur PPTPnetwork est égale au trois premiers octets de l'adresse IP que le DHCP du serveur VPN donne au client. La commande inStr cherche, dans le tableau IPAddress, l'adresse IP qui contient cette valeur.

J'ai essayé avec un client VPN, ton code marche à merveille.

Encore Merci

[Idjabou]

Bonjour!
Il est bien vrai que l'adresse IP est recupéré dans un tableau, alors pour l'afficher dans un textbox par exemple, il faut indexé un élement du tableau. et en plus, il faut convertir en string si vs voulez l'afficher:
expl:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dim strg as IPAddress=net.IPAddress(localHost).TosTring
 
 textbox1.text=strg(index)

je crois que ça doit marcher !!!!!!!!!!!!
bonne chance

[viking7]

Bonjour!
Il est bien vrai que l'adresse IP est recupéré dans un tableau, alors pour l'afficher dans un textbox par exemple, il faut indexé un élement du tableau. et en plus, il faut convertir en string si vs voulez l'afficher:
expl:

dim strg as IPAddress=net.IPAddress(localHost).TosTring

textbox1.text=strg(index)

je crois que ça doit marché!!!!!!!!!!!!
bne chance

Bonjour,

Je vais tester. Par contre quel indice du tableau correspond à l'adresse IP du VPN. Est-ce toujours l'indice 0, l'indice 1.

@+

[tomlev]

dim strg as IPAddress=net.IPAddress(localHost).TosTring

textbox1.text=strg(index)

je crois que ça doit marché!!!!!!!!!!!!

Ca m'étonnerait vu que ça va même pas compiler
- ToString renvoie une chaine, tu ne peux pas l'affecter à une variable de type IPAddress
- Si strg est une chaine, strg(index) renvoie un caractère ; je vois mal comment un caractère pourrait contenir une adresse IP