Récupération d'adresse Mac avec VBS Résolu/Fermé

Question

Bonjour,

J'aimerais récuperer certaines informations(constructeur du pc, modèle du pc, seria du pc, adresse mac...)  lors de la connexion d'une personne sur un poste, et ensuite les envoyées vers un serveur Syslog.
Ce n'est pas l'envoi des infos qui me bloque, mais la récupération de l'adresse mac. Le code que j'utilise me renvoi soit une adresse Mac fausse (il en trouve parfois 4 - 5 par poste, alors qu'il n'y a qu'une seule carte réseau, et rarement la bonne adresse) soit pas du tout d'adresse Mac. J'ai utilisé plusieurs code différents, mais le problème persiste. Cela fonctionne sur mon poste, mais lorsque j'essaye sur d'autres machines, ça ne fonctionne pas.

Voici le code:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _ 
 & "{impersonationLevel=impersonate}!\" & strComputer & "oot\cimv2")
'Récupération de l'adresse MAC
Set colSettings = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_NetworkAdapter")
For Each objSystem in colSettings
 mac_adress = objsystem.MACAddress
Next
Wscript.Echo mac_adress

Merci d'avance pour vos réponses,
Driel

Utilisateur anonyme · Answer

Salut, pour l'adresse MAC, essaies ceci : 


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 " Adresse MAC " & vbtab & " : " & IPConfig.MACAddress
Next 
End If


A+

Driel · Answer

ça marche super!

Merci beaucoup

Récupération d'adresse Mac avec VBS

2 réponses

Discussions similaires