Comparaison d'adresse mac
Résolu
menojulien
Messages postés
38
Statut
Membre
-
menojulien Messages postés 38 Statut Membre -
menojulien Messages postés 38 Statut Membre -
Bonjour,
Je souhaiterai comparer deux chaine de caractère qui sont des adresses mac.
Voici un bout de mon code
on error resume next
set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")
If Err.Number<>0 Then
wscript.echo " - non accessible -"
Else
for each IPConfig in IPConfigSet
wscript.echo IPConfig.MACAddress
Next
If IPConfig.MACAddress = "00:13:F9:2B:36" Then
wscript.echo "ok"
Else
wscript.echo "nOK"
End If
End If
Le problème c'est que mon adresse mac n'est pas 00:13:F9:2B:36 mais il m'envoi tout le temps la réponce OK
D'ou vient le problème ???
Merci beaucoup
Je souhaiterai comparer deux chaine de caractère qui sont des adresses mac.
Voici un bout de mon code
on error resume next
set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")
If Err.Number<>0 Then
wscript.echo " - non accessible -"
Else
for each IPConfig in IPConfigSet
wscript.echo IPConfig.MACAddress
Next
If IPConfig.MACAddress = "00:13:F9:2B:36" Then
wscript.echo "ok"
Else
wscript.echo "nOK"
End If
End If
Le problème c'est que mon adresse mac n'est pas 00:13:F9:2B:36 mais il m'envoi tout le temps la réponce OK
D'ou vient le problème ???
Merci beaucoup
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
Salut
mon adresse mac n'est pas 00:13:F9:2B:36
Normal, une adresse mac est sur six octets.
Sinon essaie :If StrComp(IPConfig.MACAddress, "00:13:F9:2B:36")=0 Then
Cdt -
C'est bon j'ai réussi voici mon code pour ceux que ça interesserai
on error resume next
set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")
'******Test si la connexion reseau est active**************
If Err.Number<>0 Then
wscript.echo " - non accessible -"
Else
for each IPConfig in IPConfigSet
mac1 = IPConfig.MACAddress
mac = CStr (mac1)
Next
'******Liste des différentes adresses MAC********
test = CStr ("00:13:D3:F9:2B:36")
test1 = CStr ("00:13:D3:F9:2B:37")
test2 = CStr ("00:13:D3:F9:2B:45")
test3 = CStr ("00:13:D3:F9:2B:39")
test4 = CStr ("00:13:D3:F9:2B:42")
test5 = CStr ("00:13:D3:F9:2B:25")
test6 = CStr ("00:1C:C4:92:0F:41")
'********Liste des tests (attention a bien rajouter les End If *************
If mac = test Then
name = "CNERBSN"
else
If mac = test1 Then
name = "CNERBPM"
else
If mac = test2 Then
name = "CNERBJU"
else
If mac = test3 Then
name = "CNERBER"
else
If mac = test4 Then
name = "CNERBFG"
else
If mac = test5 Then
name = "CNERBVC"
else
If mac = test6 Then
name = "CNERBLK"
End If
End If
End If
End If
End If
End If
End If
End If
