FoxPro/Visual FoxPro - numero serie del disco duro

Crea una funcion y llamala asi
***Llamando Funcion
? GetSerial("C:\")

******Funcion aqui
FUNCTION GetSerial( pcRootpath )
private all like l*
DECLARE GetVolumeInformation IN win32api STRING, STRING @, ;
INTEGER, INTEGER @, INTEGER @, INTEGER @, STRING @, INTEGER
*
lcVolName = SPACE(255)
lnVolNameLen = LEN(lcVolName)
lnVolumeSerialNumber = 0
lnMaxFilenameLen = 0
lnFileSystemFlags = 0
lcFileSystemName = SPACE(255)
lnFSNameLen = LEN(lcFileSystemName)
*
=GetVolumeInformation(pcRootpath, @lcVolName, lnVolNameLen, ;
@lnVolumeSerialNumber, @lnMaxFilenameLen, ;
@lnFileSystemFlags, @lcFileSystemName, lnFSNameLen)
*
IF lnVolumeSerialNumber = 0
RETURN ""
ELSE
if lnVolumeSerialNumber < 0
lnVolumeSerialNumber = 4294967296 + lnVolumeSerialNumber
endif
lcSerial = transform(lnVolumeSerialNumber,"@0")
lcSerial = transform(substr(lcSerial,3),"@R XXXX-XXXX")
RETURN lcSerial
ENDIF
endproc