XL 2016 Licence classeur

[Bilna]

Bonsoir à tous

J’aimerai créer un système de licence, sous forme de suite de caractère composé à partir de la MAC ADRESSE ainsi que du nom de compte Windows ou MAC.

Un premier fichier envoyé au client, qui récupère ces 2 informations les enregistres puis les HASH en MD5 par exemple ? Ou qui les stock dans un fichier.txt

Ensuite j’insère manuellement (ou place le .txt dans le même dossier que mon tableau) le hash dans mon projet excel qui autorise ou non la lecture du tableau.

Si vous avez des pistes pour commencer je vous en remercie.

 

[James007]

Bonjour,

Retrouvé dans mes archives ... une fonction pour trouver adresse MAC

Function GetMACAddress() As String
    Dim sComputer As String
    Dim oWMIService As Object
    Dim cItems As Object
    Dim oItem As Object
    Dim myMacAddress As String
    
    sComputer = "."
    
    Set oWMIService = GetObject("winmgmts:\\" & sComputer & "\root\cimv2")
    
    Set cItems = oWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
        
    For Each oItem In cItems
        If Not IsNull(oItem.IPAddress) Then myMacAddress = oItem.macAddress
        Exit For
    Next
    'Format MM:MM:MM:SS:SS:SS
    MsgBox myMacAddress
    GetMACAddress = myMacAddress

End Function

 

[Bilna]

Bonjour,

merci pour ce début de piste je continuee creuser

 

[James007]

De rien ...🙂