Thank you Hilmar. The funny thing is that before asking that question I went to News2News. But I did'nt look at the right place.

>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) &&"C:"
>>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?