Comparaison d'adresse mac
Résolu/Fermé
menojulien
Messages postés
38
Date d'inscription
jeudi 27 décembre 2007
Statut
Membre
Dernière intervention
22 août 2008
-
20 août 2008 à 15:16
menojulien Messages postés 38 Date d'inscription jeudi 27 décembre 2007 Statut Membre Dernière intervention 22 août 2008 - 21 août 2008 à 14:10
menojulien Messages postés 38 Date d'inscription jeudi 27 décembre 2007 Statut Membre Dernière intervention 22 août 2008 - 21 août 2008 à 14:10
A voir également:
- Comparaison d'adresse mac
- Adresse mac - Guide
- Darkino nouvelle adresse - Guide
- Rechercher ou entrer l'adresse - Guide
- Darkino : le grand site pirate change d'adresse et d'interface - Accueil - Services en ligne
- Changer adresse dns - Guide
2 réponses
fiddy
Messages postés
11069
Date d'inscription
samedi 5 mai 2007
Statut
Contributeur
Dernière intervention
23 avril 2022
1 844
20 août 2008 à 16:24
20 août 2008 à 16:24
Salut
mon adresse mac n'est pas 00:13:F9:2B:36
Normal, une adresse mac est sur six octets.
Sinon essaie :
Cdt
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
menojulien
Messages postés
38
Date d'inscription
jeudi 27 décembre 2007
Statut
Membre
Dernière intervention
22 août 2008
1
21 août 2008 à 14:10
21 août 2008 à 14:10
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
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