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