DECLARE long UuidCreateSequential in "rpcrt4.dll" string @
DECLARE long StringFromGUID2 in "ole32.dll" string,string @,long
STORE "" TO mGuid,cGuid
STORE 0 TO nRet
mGuid=REPLICATE(CHR(0),16)
cGuid=REPLICATE(CHR(0),100)
IF 0=UuidCreateSequential(@mGuid)
nRet=StringFromGUID2(mGuid,@cGuid,LEN(cGuid)/2)
?STRCONV(LEFT(cGuid,nRet*2),6)
ENDIF