Local pGUID,rGUID 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 lcMacAddress = iif( UuidCreateSequential(@pGUID) = 0 ; and StringFromGUID2(pGUID,@rGUID,40) # 0, ; substr(StrConv(left(rGUID,76),6),26,12), "" ) * VFP7 * CLEAR DLLS 'UuidCreateSequential' Else lcMacAddress = iif( CoCreateGuid(@pGUID) = 0 ; and StringFromGUID2(pGUID,@rGUID,40) # 0, ; substr(StrConv(left(rGUID,76),6),26,12), "" ) ENDIF ? lcMacAddress *VFP7 *CLEAR DLLS 'WNetGetUser','GetComputerName','CoCreateGuid','StringFromGUID2'