Besoin d'aide VBS

Version imprimable

1 pièce(s) jointe(s)

Besoin d'aide VBS

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:

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...

Pièce jointe 201293

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

Bonjour,

Petite modification pour récupérer toutes les adresses IP de tes cartes réseau. A essayer :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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
	strAllIPAddresses = ""
	If Not IsNull(objAdapter.IPAddress) Then 
		For Each strIPAddress In objAdapter.IPAddress
			strAllIPAddresses = strAllIPAddresses & strIPAddress & " - "
		Next
	Else
		strAllIPAddresses = "No IP Address"
	End If
	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 : " & strAllIPAddresses,vbInformation, strTitre 
next

Bonne continuation

22/02/2016, 14h43
Zankioh91

Bonjour,

Merci de la réponse, il me semble avoir déjà avoir essayé avec ce code et justement il ne me rend pas la bonne adresse.
Pour ce qui est des adresses physique aucun problème, mais l'adresse attribuée par le VPN distant n'apparait pas. Le problème reste inchangé, c'est la déprime ça fait 2 semaine que je planche sur le problème mais je ne voie pas de solution.
Par ailleurs j'ai cru comprendre que la récupération de l'adresse VPN distant n'est pas récupérable si facilement. (toujours une solution, mais laquelle...)

En tout cas je te remercie d'avoir consacré de ton temps pour me donner un coups de main, je vais continuer mes test et mes recherche.
24/02/2016, 19h57
tsuji

C'est une issue assez délicate. Avant toute chose, il vaut mieux de regarder de plus près ce qu'on trouve à la console avec des commandes comme:

Code:

netstat -rn

ou, presque la même avec:

Code:

route print 2>&1

Si on a réussite de trouver la donnée attendue, on peut dans la deuxième étape contempler de faire une redirection de la sortie sur la console vers un fichier temporaire et puis faire sortie la donnée via un objet fso.

Si on a réussite de faire ça, on peut même s'en servir dans le script finalisé pratique. Ou bien, si on a encore du temps, on peut faire une version possible avec des win32_... On peut regarder en plus win32_IP4RouteTable et d'autres aussi pour déterminer si ça pourrait aider ... mais ce serait plus délicat sinon plus difficile.