This might help

drvPath="c:\"
ofs=CreateObject('Scripting.FilesystemObject')
drv = ofs.GetDrive(ofs.GetDriveName(drvPath))
? drv.SerialNumber

Or if more information is needed, this link might help

http://www.news2news.com/vfp/?example=98&function=145


>I dont remember how to get the HD serial from VFP
>
>can any one helpme?
>
>Thanks.