Adressage IP

Résolu
Signaler
Messages postés
10
Date d'inscription
mardi 5 octobre 2004
Statut
Membre
Dernière intervention
13 septembre 2006
-
Messages postés
10
Date d'inscription
mardi 5 octobre 2004
Statut
Membre
Dernière intervention
13 septembre 2006
-
Hello tlm :)

Qqun aurait il une idée, pour un script vbs pour compter le nombre d'adressage IP, par exemple si il y à en même temps une connex eth + wifi il y aura 2 adresse. ou permettre une seule à la fois.

Enfin voila si qqun à une petite idée je suis preneur.

merci Bcp

2 réponses

Messages postés
10
Date d'inscription
mardi 5 octobre 2004
Statut
Membre
Dernière intervention
13 septembre 2006

j'ai trouvé :) :)

on error resume next
strComputer = "."
Set objWMIService = GetObject("winmgmts:"   & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

a=1

For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
'WScript.Echo IPConfig.IPAddress(i)
a = a+1
wscript.echo "Nombre d'IP" & a
Next
End If
Next

end if
Messages postés
10
Date d'inscription
mardi 5 octobre 2004
Statut
Membre
Dernière intervention
13 septembre 2006

Mettre la variable ( a ) à 0