DECLARE INTEGER GetVolumeInformation IN Kernel32.DLL;
  STRING @,STRING @,INTEGER,INTEGER @,INTEGER @,INTEGER @,STRING @,INTEGER

lcRoot="c:\"+CHR(0)
lcVolume=SPACE(255)
liVolume=LEN(lcVolume)
liSerNum=0
liMaxComp=0
liFlags=0
lcFileSystemName=SPACE(255)
liFileSystemName=LEN(lcFileSystemName)

liErr=GetVolumeInformation(@lcRoot,@lcVolume,liVolume,@liSerNum,@liMaxComp,@liFlags,@lcFileSystemName,liFileSystemName)

MartinJ
>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?