Comparaison IP

Résolu
djarnaldoo Messages postés 10 Date d'inscription mardi 5 octobre 2004 Statut Membre Dernière intervention 13 septembre 2006 - 31 août 2006 à 09:19
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 31 août 2006 à 09:41
Bonjour tlm...

J'ai fais un petit script mais je trouve pas de solution.
Je voudrais, comparer mon address IP à 0.0.0.0, par exemple si mon IP = 0.0.0.0 alors .....
Mais je dois avoir un pb de type ou de variable. Je précise, je suis un débutant en VBS.

Qqun aurait-il une solution ou une idée .

Merci d'avance ..

Ci-dessous le script qui ne fonctionne pas trés bien.. j'arrive à afficher les IP. mais pas comparer
_________________________________________________________________________

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 "IP address: "& vbTab & objadapter.IPAddress(i) &vbnewline & "Description: " &_ vbTab_& objAdapter.Description & vbnewline&"DHCP enabled: " & vbTab  &_ objAdapter.DHCPEnabled
n = n+1
next

'comparaison de l'IP
For Each objAdapter in colAdapters
if objadapter.IPAddress(i) = 0.0.0.0 then
Msgbox "erreur "
end if
next

msgbox "Nombre d'IP : " & n-1

1 réponse

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
31 août 2006 à 09:41
"débutant"....
tu as tout de même effectué une requete WMI....

ton code n'est pas logique avec lui même...
tu utilises tantôt i, tantôt n

aaahhh.... les joies du copier coller....

pour ton test :
if objadapter.IPAddress(i) = "0.0.0.0" then
     Msgbox "erreur "
end if

Renfield
Admin CodeS-SourceS- MVP Visual Basic
3
Rejoignez-nous