hola
prueba con esto
alasleos@televicabe.net.mx Declare LONG GetVolumeInformation IN Win32API String, String, Integer, Long @, Long, Long, String, Long
mser = -1 && serie
hd = Sys(5) && letra unidad de disco
If Upper(Subs(hd,1,1))$"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
discohd = Allt(hd)+"\"
GetVolumeInformation(discohd," ",1,@mser,0,0," ",1)
EndIf
WAIT ALLTRIM(STR(mser)) WINDOW TIMEOUT 10
Clear DLLS