Well thanks to whoever gave it to me/us here on the UT.


>This is perfect!
>
>THANK YOU.
>Cyrus
>
>
>>>In an effort to implement some sort of copy protection, I am currently registering the Computer Name
>>>(using SYS(0) or GETENV() functions).. But that's kind of rudimentary. It can easily be changed.
>>>
>>>Is there a better way in VFP to retrieve some sort of Hardware or Windows Serial number?
>>>I will even settle for Network WorkGroup, or anything else that's unique for a given computer.
>>>
>>>Thanks.
>>
>>
>>Here is some code which I got from someone here on the UT which gets the hard disk serial number (the 3rd array item has the serial number):
>>
>>

>>CLEAR
>>?
>>
>>PUBLIC TARRAY
>>DECLARE TARRAY(10)
>>
>>TARRAY = ""
>>
>>=GETVOLINFO( "c:\", @TARRAY )
>>
>>FOR I = 1 TO ALEN( TARRAY )
>>  ? TARRAY(I)
>>NEXT
>>
>>
>>
>>Function GetVolInfo
>>
>>Lparameters lcRoot, taInfo && Root of drive ie: "c:\", InfoArray passed by ref
>>
>>Declare SHORT GetVolumeInformation IN Win32API;
>>  STRING @lpRootPathName, STRING @lpVolumeNameBuffer,;
>>  INTEGER nVolumeNameSize, integer @lpVolumeSerialNumber,;
>>  INTEGER @lpMaximumComponentLength, INTEGER @lpFileSystemFlags,;
>>  STRING @lpFileSystemNameBuffer, INTEGER nFileSystemNameSize
>>
>>Store 0 TO lncomplen, lnsysflags, lnserialno
>>Store SPACE(260) TO lcvolname, lcsysname
>>Store LEN(lcvolname) TO lnvolsize, lnnamesize
>>
>>If (GetVolumeInformation(@lcRoot, @lcvolname,;
>>    lnvolsize, @lnserialno, @lncomplen, @lnsysflags,;
>>    @lcsysname, lnnamesize) # 0)
>>
>>  Dimension taInfo[3]
>>
>>  taInfo[1] = substr(lcvolname, 1, at(chr(0),lcvolname)-1) && Volume name
>>  taInfo[2] = substr(lcsysname, 1, at(chr(0),lcsysname)-1) && Par.type
>>  taInfo[3] = trans(right(trans(iif(lnSerialNo < 0, 0x7FFFFFFF-abs(lnSerialNo)+0x7FFFFFFF, lnSerialNo),'@0'),8) ) && Serial  
>>
>>Else
>>
>>  taInfo = ""
>>
>>Endif
>>
>>Return
>>