Comparaison IP

Résolu
Messages postés
10
Date d'inscription
mardi 5 octobre 2004
Statut
Membre
Dernière intervention
13 septembre 2006
-
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
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

Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
73
"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