Perhaps the GetVolumeInformation() API function?
http://news2news.com/vfp/?group=29&function=145>I have that code which does the job
>
>
>oFS = CREATEOBJECT("Scripting.FileSystemObject")
>cDrive = SUBSTR(SYS(16,1),1,2)
>If oFS.DriveExists(cDrive)
> oDrv = oFS.Drives.Item(cDrive)
> lnvol=oDrv.SerialNumber
> lnvolhex=substr(transform(lnvol,"@0"),3,4)+right(transform(lnvol,"@0"),4)
> ?lnvolhex
>ENDIF
>
>
>What would be an alternative if WSH is not installed on a given machine?
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)