>clear >local lcguid >lcguid = GetGUID() >return substr(lcguid,26,2)+'-'+substr(lcguid,28,2)+'-'+substr(lcguid,30,2); > +'-'+substr(lcguid,32,2)+'-'+substr(lcguid,34,2)+'-'+substr(lcguid,36,2) > >function GetGUID >local lcStrucGUID, lcGUID, lnsize >declare integer CoCreateGuid in Ole32.dll string @lcGUIDStruc >declare integer StringFromGUID2 in Ole32.dll string lcGUIDStruc, string @lcGUID, long lnSize > >lcStrucGUID=space(16) >lcGUID=space(80) >lnSize=40 > >if CoCreateGuid(@lcStrucGUID) # 0 then > return "" >endif >if StringFromGUID2(lcStrucGUID,@lcGuid,lnSize) = 0 then > return "" >endif >return strconv(left(lcGUID,76),6)>GetGUID code was posted by John Koziol (who I believe got it from Rick Strahl) here last year.