Api GetVolumeInformation

Desde ya agradezco su atencion.

Mi problema es el siguiente : deseo obtener el numero de
serie del disco fijo ,para ello recurro a la funcion api
GetVolumeInformation(), la declaro de la siguiente forma

Declare short GetVolumeInformation in Win32api;
string,string,integer,string,string,string,;
string,integer

Las variables que defini como string las cargo con una
cadena de 255 blancos y las integer con el 255
Ahora el tema es que la que defini como
lPvolumeSerialNumber que seria la cuarta variable y que es
string ,me devuelve caracteres raros.

Buscando encontre una nota que decia que ocurre eso porque
devuelve un valor decimal y que si lo quiero en
Hexadecimal, debo primero convertirlo en binario y luego a
hexadecimal.

Me dan una funcion para convertir a binario y es en la que
tengo problemas ya que le paso ese supuesto valor decimal
o sea la variable lPvolumeSerialNUmber para transformarlo
en binario y me da error la funcion es la siguiente

function dec2Bin
parameters nValue
private nValue,cBinstr,nRest

cbinstr=""
do while .t.
nrest=mod(nvalue,2) && aca me da el error
nvalue=int(nvalue/2)
cbinstr=str(nrest,1)+cbinstr
if nValue=0
exit
endif
enddo

y no paso de esta funcion ,por lo que no puedo obtener el
nro.de serie