Prueba esto
* obtener la mac macadress de una pc
**************************
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
