Me renvoie l'adresse mac sous forme xx:xx:xx:xx:xx Mais le souci c'est que cette dernière lit la MAC virtuelle c'est elle activée
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens! Toute commande qui ne demande pas de droits spécifiques sont exécutables dans WD. Allez, je te donne ça : Code (Text): PROCEDURE AdressesMAC() nPos est un entier sInfoCom est une chaîne sCarte est une chaîne sDescription est une chaîne sRepTmp est une chaîne = fRepTemp() sFichier est une chaîne = "FindIp.txt" sCommande est une chaîne = "cmd /c ipconfig /all > " + sFichier tabResultat est un tableau de chaînes LanceAppli(sCommande, exeIconise, exeBloquant, sRepTmp) sInfoCom = fChargeTexte(sRepTmp + sFichier) sCarte = ExtraitChaîne(sInfoCom, rangPremier, "Carte") TANTQUE sCarte <> EOT sDescription = ExtraitChaîne(sCarte, rangPremier, CR) TANTQUE sDescription <> EOT SELON Minuscule(ChaîneSupprime(ExtraitChaîne(sDescription, 1, ":"), [".", " "])) CAS "description" Ajoute(tabResultat, ExtraitChaîne(sDescription, 2, ":")) nPos++ CAS "adressephysique" tabResultat[nPos] += ";" + SansEspace(ExtraitChaîne(sDescription, 2, ":")) CAS "netbiossurtcpip" tabResultat[nPos] += ";" + SansEspace(ExtraitChaîne(sDescription, 2, ":")) AUTRE CAS FIN sDescription = ExtraitChaîne(sCarte, rangSuivant, CR) FIN sCarte = ExtraitChaîne(sInfoCom, rangSuivant, "Carte") FIN RENVOYER tabResultat Code (Text): POUR TOUT sCarte DE AdressesMAC() Info(sCarte) FIN Edit : J'ai supprimé les espaces sur l'adresse MAC et l'activation.
Merci Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens! Je vais tester ton code
Pourquoi pas un fichier INI en cryptant les infos suivants: ADRESSE MAC de la machine + un identifiant L'identifiant est unique à chaque ordinateur Ensuite tu utilise les fonctions de gestion de la licence sous windev Au démarrage de l'application il faut juste lire le fichier ini NB: Crypter le contenu du fichier ini