|
|
|
|
Configuration: Windows XP Internet Explorer 6.0
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 Google is your friend |
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 |
Résultats pour Comparaison d'adresse mac
Résultats pour Comparaison d'adresse mac
Résultats pour Comparaison d'adresse mac
Résultats pour Comparaison d'adresse mac