Comparaison IP Résolu

Question

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

Renfield · Accepted Answer

"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

Comparaison IP

1 réponse

Votre réponse

Discussions similaires