>is there any way in vfp to obtain the serial nos of the hard disk.

Yes. Here's a sample

DECLARE INTEGER GetVolumeInformation IN Win32API;
  STRING @lpRootPathName,;
  STRING @lpVolumeNameBuffer,;
  INTEGER nVolumeNameSize,;
  INTEGER @lpVolumeSerialNumber,;
  INTEGER @lpMaximumComponentLength,;
  INTEGER @lpFileSystemFlags,;
  STRING @lpFileSystemNameBuffer,;
  INTEGER nFileSystemNameSize
STORE SPACE(260) TO lcvolname, lcfilename
STORE 0 TO lnserialno, lnmaxlen, lnsysflags
STORE 260 TO lnvolsize, lnfilesize
lcroot = "C:\"
lnresult = GetVolumeInformation(@lcroot, @lcvolname, lnvolsize, @lnserialno, @lnmaxlen, lnsysflags, @lcfilename, lnfilesize)
? lnserialno

hth,