>Yes... Is True... ;)
>
>.... And afford add uno more metod, for get MAC Address
>
>PROCEDURE GetMACAddress
>
> Local pGUID,rGUID,lcOldError, lnResult
> Declare integer CoCreateGuid in 'OLE32.dll' string @pguid
> Declare integer StringFromGUID2 in 'OLE32.dll' ;
> string rguid, string @lpsz, integer cchMax
> Declare integer UuidCreateSequential in 'RPCRT4.dll' string @ Uuid
>
> pGUID = replicate(chr(0),16)
> rGUID = replicate(chr(0),80)
>
> lnResult = CoCreateGuid(@pGUID)
> lnResult = UuidCreateSequential(@pGUID)
>
> return substr( iif( lnResult = 0 and ;
> StringFromGUID2(pGUID,@rGUID,40) # 0, StrConv(left(rGUID,76),6), "" ), 26,12)
>
>ENDPROC
:) Add 1854 to lnResult (or was it 1824-local only for standalone computers)
Update : Mixed with UniqueID. This was sequential. Mine version looks like :
pGUID=replicate(chr(0),16)
rGUID=replicate(chr(0),80)
lcOldError = On('error')
On Error lnResult = CoCreateGuid(@pGUID)
lnResult = UuidCreateSequential(@pGUID)
On Error &lcOldError
return substr( iif( lnResult = 0 and ;
StringFromGUID2(pGUID,@rGUID,40) # 0, ;
StrConv(left(rGUID,76),6), "" ), 26,12)
Cetin