* VolSerial.prg * Returns the volume serial number of the C: drive for this machine local lnSerial, lcSerial declare integer GetVolumeInformation in Win32API ; string lpRootPathName, ; string @lpVolumeNameBuffer, ; integer nVolumeNameSize, ; integer @lpVolumeSerialNumber, ; integer @lpMaximumComponentLength, ; integer @lpFileSystemFlags, ; string @lpFileSystemNameBuffer, ; integer nFileSystemNameSize lnSerial = 0 GetVolumeInformation("C:\",.null.,0,@lnSerial,0,0,.null.,0) If lnSerial < 0 lnSerial = lnSerial + 2^32 Endif lcSerial = substr(transform(lnSerial,"@0"),3) return left(lcSerial,4)+'-'+right(lcSerial,4) *-------------------------------------------------------------------------------