Adressage IP
Résolu
djarnaldoo
Messages postés
10
Date d'inscription
mardi 5 octobre 2004
Statut
Membre
Dernière intervention
13 septembre 2006
-
7 août 2006 à 11:05
djarnaldoo Messages postés 10 Date d'inscription mardi 5 octobre 2004 Statut Membre Dernière intervention 13 septembre 2006 - 9 août 2006 à 16:08
djarnaldoo Messages postés 10 Date d'inscription mardi 5 octobre 2004 Statut Membre Dernière intervention 13 septembre 2006 - 9 août 2006 à 16:08
A voir également:
- Tag ip ouvrir une session
- Tag ip session ✓ - Forum C# / .NET
- Comment connaître et mémoriser l'adresse IP des visiteurs de mo, site ✓ - Forum PHP
- Session en JSP - Forum Java
- Ouverture d'une session Windows ✓ - Forum C# / .NET
- [C#] Récupérer l'index ou la valeur propriété Tag d'un contrôle ✓ - Forum C# / .NET
2 réponses
djarnaldoo
Messages postés
10
Date d'inscription
mardi 5 octobre 2004
Statut
Membre
Dernière intervention
13 septembre 2006
9 août 2006 à 16:07
9 août 2006 à 16:07
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
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
djarnaldoo
Messages postés
10
Date d'inscription
mardi 5 octobre 2004
Statut
Membre
Dernière intervention
13 septembre 2006
9 août 2006 à 16:08
9 août 2006 à 16:08
Mettre la variable ( a ) à 0