La Web del Programador: Comunidad de Programadores
 
    Pregunta:  32922 - OBTENER SERIE DEL DISCO DURO
Autor:  Enrique Calderon Palomino
Hola Amigos:
Necesito saber como puedo capturar el numero de serie del disco duro, existe algun DLL q me de dicha informacion o desde el mismo power lo puedo obtener con alguna funcion????.

Gracias a todos.

  Respuesta:  Adolfo Chairez
Deberas declarar una External Local Function:

FUNCTION long VolSerialNum (string lpRootPathName, string pVolumeNameBuffer, long nVolumeNameSize, REF long lpVolumeSerialNumber, long lpMaximumComponentLength, long lpFileSystemFlags, string lpFileSystemNameBuffer, long nFileSystemNameSize) LIBRARY "kernel32.dll" ALIAS FOR "GetVolumeInformationA"

////Este es codigo que utilizaras:
long numSerie,longitud,flag
string unidad,cad1,cad2,ls_num_serie

unidad = "C:\"
numSerie = 0
VolSerialNum(unidad, cad1, 256, numSerie, longitud, flag, cad2, 256)
ls_num_serie = string(numSerie)