FORUM WINDEV

Pour récupérer l'adresse MAC du PC...

Déclarations globales de fenêtre....

Code: Tout sélectionner

sAdresseMAC est une chaîne
sActivation est une chaîne
//Appel de la procédure local
AdresseMAC(sAdresseMAC,sActivation)

Affichage dans la fenêtre.....

Code: Tout sélectionner

//Initialisation de LIB_libellé1
LIB_libellé1 = "Adresse physique . . . . . . . . .: "+sAdresseMAC

Code: Tout sélectionner

//Initialisation de LIB_lbellé2
LIB_libellé2 = "DHCP activé. . . . . . . . . . . : "+sActivation

Procédure local...

Code: Tout sélectionner

PROCEDURE AdresseMAC(sAdrMAC,sActiv)
sConfiguration est une chaîne
sFichierBAT est une chaîne = fRepEnCours()+"\AdrMAC.BAT"
sFichierTXT est une chaîne = fRepEnCours()+"\AdrMAC.TXT"
//On sauve dans le fichier AdresseMAC.TXT les données lus
fSauveTexte(sFichierBAT, "IPCONFIG /ALL " + ">" +sFichierTXT)
//On lance le fichier DOS "AdesseMAC.BAT"
LanceAppli(sFichierBAT, exeIconise, exeBloquant)
//On charge dans la variable sConfiguration le fichier précédemment créé
sConfiguration = fChargeTexte(sFichierTXT)
//On extrait l'adresse MAC de la variable
//(Attention! ne pas modifier les séparateurs, expl.:"Adresse physique . . . . . . . . .:")
sAdrMAC = ExtraitChaîne(sConfiguration, 2, "Adresse physique . . . . . . . . .:")
//Optionnelle
sActiv = ExtraitChaîne(sConfiguration, 2, "DHCP activé. . . . . . . . . . . :")
//On suprimme les fichiers créés
fSupprime(fRepEnCours()+sFichierBAT)
fSupprime(fRepEnCours()+sFichierTXT)

RENVOYER sAdrMAC + sActiv

lepirate a écrit:merci .... mais ca marche pas

ca me donne pas l'adresse MAC, mais un symbole à la c***

Eh bien chez-moi ça fonctionne.... Windows XP Pro.




Qu'as tu comme plateforme ?

lepirate a écrit:j'ai win xp pro aussi :S
bizarre que ce ne fonctionne pas :S

tu veux que je t'envoie le projet ?

Tu peux m'envoyer ton projet par: http://dl.free.fr

Ca fonctionne très bien et sans rien changé à ton code...
C'est sûrement du à la configuration de Windows.

Essayes de changer le mode de sauvegarde ">" sliencieux en mode affichage "&" dans la ligne ci-dessous de la procédure.

//Silencieux
fSauveTexte(sFichierBAT, "IPCONFIG /ALL " + ">" +sFichierTXT)

//Affichage de la récupération
fSauveTexte(sFichierBAT, "IPCONFIG /ALL " + "&" +sFichierTXT)

Si les données ont bien été récupérées. (Le bloc-notes de Windows doit s'ouvrir)

Voilà, j'ai retrouvé la procédure pour l'adresse MAC qui va sans doute fonctionner sur vos postes.

Tenez-moi au courant...

Code bouton d'appel de la procédure

Code: Tout sélectionner

sErreur est une chaîne
sAdresseIP est une chaînes = NetAdresseIP()
sRetour est une chaîne
MAC_Adresse (sErreur, sRetour, sAdresseIP)
SI sErreur <> "" ALORS
   Info(sErreur)
SINON
   SAI_Saisie1 = sRetour
FIN

Procédure local

Code: Tout sélectionner

PROCEDURE MAC_Adresse(sErreur, sRetour, sAdresseIP)

SI sAdresseIP ~="" ALORS sAdresseIP = NetAdresseIP()
SI SysVersionWindows(sysVersionPlateForme)<>"NT" ALORS
   sErreur = "Cette fonction n'est pas disponible avec la version de Windows installée."
   RENVOYER ""
FIN
szAdresseIP est une chaîne ASCIIZ sur 255 = sAdresseIP
eAdresseIP est un entier sans signe
eAdresseMAC est un entier sans signe
teAdresseMAC est un tableau fixe de 6 entiers sans signe sur 1 octet
eNbAdrPhys est un entier sans signe
eRet est un entier
c est un entier
// Conversion de l'adresse IP en entier long
eAdresseIP = AppelDLL32("wsock32.dll", "inet_addr", &szAdresseIP)
SI eAdresseIP <> 0 ALORS
   eNbAdrPhys = 6
   //récupération de l'adresse MAC
   eRet = AppelDLL32("iphlpapi.dll", "SendARP", eAdresseIP, 0, &eAdresseMAC, &eNbAdrPhys)
   SI eRet=0 ALORS
      SI eAdresseMAC<>0 ET eNbAdrPhys<>0 ALORS
         Transfert(&teAdresseMAC, &eAdresseMAC, 6)
         POUR c=1 A eNbAdrPhys
            sRetour += NumériqueVersChaîne(teAdresseMAC[c],"02X")+"-"
         FIN
         sRetour = Gauche(sRetour, Taille(sRetour)-1)
         sErreur = ""
      SINON
         sErreur = "La récupération de l'adresse MAC à partir de l'IP "+ sAdresseIP+" a échoué."
      FIN
   SINON
      sErreur = "La récupération de l'adresse MAC à partir de l'IP "+ sAdresseIP+" a échoué."
   FIN
SINON
   sErreur = "L'adresse IP "+sAdresseIP+" n'a pas pu être convertie. Vérifier le format."
FIN

RENVOYER sErreur + sRetour