FoxPro/Visual FoxPro - MAC Address y Regedit

Que tal foristas,
Alguien me puede dar una noción de como sacar una MAc Addres y coocar valores en el Regedit?
De antemano gracias a todos

FUNCTION MacAdress
**************************
LOCAL pGUID,rGUID,lnSize
DECLARE INTEGER CoCreateGuid IN 'OLE32.dll' ;
STRING @pguid
DECLARE INTEGER StringFromGUID2 IN 'OLE32.dll' ;
STRING rguid, STRING @lpsz, INTEGER cchMax
pGUID=REPLICATE(CHR(0),16)
rGUID=REPLICATE(CHR(0),80)

IF "5." $ OS() && 2000/XP
DECLARE INTEGER UuidCreateSequential IN 'RPCRT4.dll' STRING @ Uuid
RETURN SUBSTR( IIF( UuidCreateSequential(@pGUID) = 0 ;
and StringFromGUID2(pGUID,@rGUID,40) # 0, ;
STRCONV(LEFT(rGUID,76),6), "" ), 26,12)
ELSE
RETURN SUBSTR( IIF( CoCreateGuid(@pGUID) = 0 ;
and StringFromGUID2(pGUID,@rGUID,40) # 0, ;
STRCONV(LEFT(rGUID,76),6), "" ), 26,12)
ENDIF


Suerte

Gracias lo de la Mac Address funciona muy bien

Exitos

GRACIAS =