>Rick,
>
>I just tried your function but the ID I get every time I run it is
>different all the time. What I am trying to get is a unique ID for
>a computer. i.e. The serial number of a hard drive. Do you know how
>can I get this? Any API functions maybe?
>
>Thank you

Hi Morys,

The following will get you the volume number:

DECLARE SHORT GetVolumeInformation IN Win32API;
  STRING @lpRootPathName, STRING @lpVolumeNameBuffer,;
  INTEGER nVolumeNameSize, INTEGER @lpVolumeSerialNumber,;
  INTEGER @lpMaximumComponentLength, INTEGER @lpFileSystemFlags,;
  STRING @lpFileSystemNameBuffer, INTEGER nFileSystemNameSize
lcrootpath = "C:\"
STORE SPACE(260) TO lcvolumename, lcfilesystem
STORE 260 TO lnvolumesize, lnsystemsize
STORE 0 TO lnserialno, lnmaxlen, lnsysflags
lnresult = GetVolumeInformation(@lcrootpath, @lcvolumename,;
  lnvolumesize, @lnserialno, @lnmaxlen, lnsysflags,;
  @lcfilesystem, lnsystemsize)

If the function succeeds, lnresult will not equal zero.

The value in the lnserialno variable is the volume's serial number. This corresponds directly to the value you see when you do a DIR from a DOS prompt. The difference is that the DOS prompt show the hexidecimal value of the number returned here.

hth,