For ix=1 to 10
? getGUID()
endfor
Function getGUID
* Declare part only needs to be done once really but wouldn't matter
Declare Integer StringFromGUID2 In 'OLE32.dll' ;
string rguid, String @lpsz, Integer cchMax
Declare Integer UuidCreate In 'RPCRT4.dll' String @pguid
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