Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Generanting a license use
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00598570
Message ID:
00598756
Vues:
16
>Hello my friends;
>I`m writting your because I wonder to know Who has any idea to create a License use number mixing information of the pc where is being installing the aplication.
>TIA

This comes up from time to time, but the problem is how to RELIABLY obtain information from the system. I began by using the Windows API to get the disk volume id, but I found this fails to report on some systems. I suggest it is better to use MS's more recent Windows Scripting class to get this reliably.

For example ...
oFSO = CreateObject("Scripting.FileSystemObject")
nVolumeSerial = oFSO.GetDrive("C:\").SerialNumber

SCRRUN.DLL must be present in the WinSys folder (it is on ME and Win2K, and you can update older versions of Windows with a download from MS). SerialNumber is a long integer. You can convert this to hex to get the familiar ABCD-0123 volume id string. Then encrypt to use as a licence key.

To be really fancy, you might identify other hardware items. A thread a little while back had methods for doing this with the network card.

John Burton
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform