La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  25742 - CóMO SABER EL NúMERO INTERNO DEL MICRO
Autor:  Daniel Alberto Pochettino
Necesito conocer el número interno del microprocesador para que un programa funcione solamente en una PC determinada.
  Respuesta:  José G Samper
Esto te devuelve el # de serial del disco duro

LOCAL lnRet, lcString, lpVolName, nVolSize, lpVolNumber, lpMaxComp, lpFlags, ;
lpFSName, nFSSize, lpRoot

IF EMPTY(lpRoot)
lpRoot = "C:\"
ENDIF

lpVolName = SPACE(256)
nVolSize = 256
lpVolNumber = 0
lpMaxComp = 256
lpFlags = 0
lpFSName = SPACE(256)
nFSSize = 256

DECLARE INTEGER GetVolumeInformation IN Win32API AS GetVolInfo ;
STRING @lpRoot, ;
STRING @lpVolName, ;
INTEGER, ;
INTEGER @lpVolNumber, ;
INTEGER @lpMaxComp, ;
INTEGER @lpFlags, ;
STRING @lpFSName, ;
INTEGER nFSSize

lnRet = GetVolInfo(@lpRoot, @lpVolName, nVolSize, @lpVolNumber, ;
@lpMaxComp, @lpFlags, ;
@lpFSName, nFSSize)

IF lnRet > 0
lcString = ALLT(STR(lpVolNumber))
ENDIF

=MESSAGEBOX("El Serial de la Unidad de Disco " + lpRoot + " es " + lcString,64,"Serial de Disco ")