>Local pGUID,rGUID,lpVersionInfo >Declare integer CoCreateGuid in 'OLE32.dll' string @pguid >Declare integer StringFromGUID2 in 'OLE32.dll' ; > string rguid, string @lpsz, integer cchMax >declare short GetVersionEx in win32API ; > string @ lpVersionInfo >lpVersionInfo = chr(128+5*4)+replicate(chr(0),128+5*4-1) >GetVersionEx(@lpVersionInfo) > >pGUID=replicate(chr(0),16) >rGUID=replicate(chr(0),80) > >If ASC(substr(lpVersionInfo, 5))>4 && 2000/XP or later > Declare integer UuidCreateSequential in 'RPCRT4.dll' string @ Uuid >ENDIF > >RETURN substr( iif( ; > IIF(ASC(substr(lpVersionInfo, 5))>4, ; > UuidCreateSequential(@pGUID), CoCreateGuid(@pGUID)) = 0 ; > and StringFromGUID2(pGUID,@rGUID,40) # 0, ; > StrConv(left(rGUID,76),6), "" ), 26,12) >>