Procedure getUniqueID() As String Declare Integer UuidCreate In 'RPCRT4.dll' String @pguid Declare Integer StringFromGUID2 In 'Ole32.dll' ; string rguid, String @lpsz, Integer cchMax Local pguid,rguid pguid=Replicate(Chr(0),16) rguid=Replicate(Chr(0),80) Return Iif(Inlist(UuidCreate(@pguid),0,1824),; Iif(StringFromGUID2(pguid,@rguid,40) # 0, ; Strconv(Left(rguid,76),6), ""),"") && 1824 = LOCAL_ONLY EndprocCetin