Ricardo,

Esta dica foi enviada dia 15/02/2001 por Peter Vagner lá no FoxBrasil:

* Funciona em Win 95, 98se e Win2000 e em rede!
* N° de série do HD
* Drive_Letter = "c:\" ou "\\Boss500\E:\"
parameters Drive_letter
#DEFINE MAX_FILENAME_LEN 256
LOCAL ser,i,j,s,s2
DECLARE integer GetVolumeInformation in Win32API;
 string lpRootPathName,;
 string lpVolumeNameBuffer,;
 integer nVolumeNameSize,;
 integer @lpVolumeSerialNumber,;
 integer @lpMaximumComponentLength,;
 integer @lpFileSystemFlags,;
 string lpFileSystemNameBuffer ,;
 integer nFileSystemNameSize
STORE 0 to ser,i,j
STORE space(128) to s,s2
drive  = Drive_letter
x=GetVolumeInformation(drive,s,MAX_FILENAME_LEN,@ser,@i,@j,s2,MAX_FILENAME_L
EN)
ser = alltrim(str(ser))
RETURN(ser)

Estou somente repassando a mensagem, não testei a dica acima.

[]s