Ce matin quelqu’un m’a demandé comment connaître l’adresse MAC de la carte réseau. Voici un petit bout de code que j’avais dans mes tablettes…

 

sIPConfig est une chaîne

sFichierBat est une chaîne = "C:\ADRMAC.BAT"

sFichierTrace est une chaîne = "C:\ADRMAC.TXT"

sAdresseMAC est une chaîne

n est un entier

 

fSauveTexte(sFichierBat, "IPCONFIG /ALL " + ">" +sFichierTrace)

LanceAppli(sFichierBat, exeActif, exeBloquant)

sIPConfig = fChargeTexte(sFichierTrace)

sAdresseMAC = ExtraitChaîne(sIPConfig, 2, "Adresse physique . . . . . . . . .:")

sAdresseMAC = ExtraitChaîne(sAdresseMAC,1, "DHCP activé. . . . . . . . . . . :")

fSupprime(sFichierBat)

fSupprime(sFichierTrace)

 

Info("Adresse physique de la carte réseau : "+ sAdresseMAC)