FoxPro/Visual FoxPro - validar numero de serie

Como puedo validar un numero de serie del disco duro es decir si capturo el
volumen(disco duro) que es:284D-12E0, darle un codigo al cliente de acceso al programa que genere un numero de autorizacion a partir de ese dato. Para evitar que lo instalen en otro computador.
JOSE

Aqui obtienes el numero del volumen

FUNCTION GetVolumeNumber( lcVolume )

LOCAL lcFileSystemName, lcVolumeName, lnFileSystemFlags, lnFileSystemNameLen, ;
lnMaxFileNameLen, lnVolumeNameLen, lnVolumeSerialNumber

#DEFINE ccNULL CHR(0)
#DEFINE cnFS_CASE_SENSITIVE 0
#DEFINE cnFS_CASE_IS_PRESERVED 1
#DEFINE cnFS_UNICODE_STORED_ON_DISK 2
#DEFINE cnFS_PERSISTENT_ACLS 3
#DEFINE cnFS_FILE_COMPRESSION 4
#DEFINE cnFS_VOL_IS_COMPRESSED 15

* Declare the API function and constants.

DECLARE GetVolumeInformation IN Win32API ;
STRING lpRootPathName, STRING @lpVolumeNameBuffer, ;
INTEGER nVolumeNameSize, INTEGER @lpVolumeSerialNumber, ;
INTEGER @lpMaximumComponentLength, INTEGER @lpFileSystemFlags, ;
STRING @lpFileSystemNameBuffer, INTEGER nFileSystemNameSize

lcVolumeName = SPACE(255)
lnVolumeNameLen = LEN(lcVolumeName)
lnVolumeSerialNumber = 0
lnMaxFileNameLen = 0
lnFileSystemFlags = 0
lcFileSystemName = SPACE(255)
lnFileSystemNameLen = LEN(lcFileSystemName)

GetVolumeInformation(lcVolume, @lcVolumeName, lnVolumeNameLen, ;
@lnVolumeSerialNumber, @lnMaxFileNameLen, @lnFileSystemFlags, ;
@lcFileSystemName, lnFileSystemNameLen)

RETURN lnVolumeSerialNumber
ENDFUNC

Suerte