FoxPro/Visual FoxPro - como genera el No de serie este codigo?

FUNCTION RutaWindows

DECLARE LONG GetWindowsDirectory  ;

        IN kernel32 AS MiRuta  ;

        STRING @, LONG

car = SPACE(128)

STORE 0 TO longitud, es

camino = ""

longitud = 128

es = miruta(@car,longitud)

camino = RTRIM(UPPER(LEFT(car,  ;

         es)))

RETURN camino

ENDFUNC

*

FUNCTION RutaSystem

DECLARE LONG GetSystemDirectory  ;

        IN kernel32 AS MiSystem  ;

        STRING @, LONG

car = SPACE(128)

STORE 0 TO longitud, es

camino = ""

longitud = 128

es = misystem(@car,longitud)

camino = RTRIM(UPPER(LEFT(car,  ;

         es)))

RETURN camino

ENDFUNC

*

FUNCTION MiSerie

DECLARE GetVolumeInformation IN  ;

        kernel32 AS Serie STRING  ;

        @, STRING @, LONG, LONG @,  ;

        LONG @, LONG @, STRING @,  ;

        LONG

STORE SPACE(256) TO cad1, cad2

numserie = 0

longitud = 0

flag = 0

unidad = SYS(5) + "\"

serie(@unidad,@cad1,256,@numserie, ;

     @longitud,@flag,@cad2,256)

RETURN STR(numserie)

ENDFUNC

*

FUNCTION MiEquipo

DECLARE LONG GetComputerName IN  ;

        kernel32 AS MiPC STRING @,  ;

        LONG @

ulmemoria = 40

lsequipo = SPACE(ulmemoria)

mipc(@lsequipo,@ulmemoria)

RETURN lsequipo

ENDFUNC

*

FUNCTION ElUsuario

DECLARE LONG GetUserName IN  ;

        advapi32 AS MiUsuario  ;

        STRING @, LONG @

ulmemoria = 50

lsusuario = SPACE(ulmemoria)

miusuario(@lsusuario,@ulmemoria)

RETURN lsusuario

ENDFUNC