Bonjour,

Alors voila je sais que le VBS n'est pas très apprécié de tous (sous-programmation et j'en passe ^^), mais bon.
Mon problème est le suivant. j'ai récemment mis en place pour la société dans laquelle je travail un .vbs qui permet aux utilisateurs d'obtenir les informations qui sont susceptible de leur êtres demandées (IP Adress, hostname, ID, etc...), ça fonctionne très bien sur le fond, mais, certaines personne sont en télétravail... et impossible via mon .vbs de récupérer l'ip du VPN qui est sensiblement du " 10.10.*.* ", soit je me retrouve avec un blank line soit il me sort une locale adress en "192.168.*.*" selon les commandes utilisée.
Voici le fichier en question (rien de transcendant):


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
set wshnetwork=wscript.createobject("wscript.network")
Dim strTitre
strTitre = "Informations de l'ordinateur"
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\"&  strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
n = 1
For Each objAdapter in colAdapters
msgbox "Utilisateur Connecté : "  &wshnetwork.username & vbcr & vbcr & _
    "Domaine : " &wshnetwork.userdomain & vbcr & vbcr & _
    "Nom de l'ordinateur : "  &wshnetwork.computername & vbcr & vbcr & _
    "Description : " & objAdapter.Description & vbcr & vbcr & _
    "Adresse MAC : "   & objAdapter.MACAddress & vbcr& vbcr & _
    "Adresse IP : " & objAdapter.IPAddress(i),vbInformation, strTitre 
next
quand on clic sur ok le script bascule sur les carte suivantes (si il y en a) mais jamais on ne voie apparaitre d'info sur le VPN avec ces commandes...

Nom : vbs.PNG Affichages : 403 Taille : 11,8 Ko

Voila ce que ça donne, si quelqu'un avait une idée, car la je séchè, je lui en serait très reconnaissant.
Merci par avance