You're welcome. If u think serial number is safe enough than you'd possibly love this one :

*Function SomethingUniqueEnoughForYou :)
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

PS:CoCreateGuid(@pGUID) = 0 check in fact obsolote. No check there.
Cetin

>Hi Cetin Thanks for the trouble.
>
>In the mean time I put in code to ignore when serial.bin returns a blank so to get things going and one thing is for sure that this blank will occur only when accessed from a node, the original installation access will not have a blank. So for the time being I guess it is okay.
>
>