#DefineFunction udfCreateGUID ()
objTypeLib = ObjectCreate ("Scriptlet.TypeLib")
Return objTypeLib.Guid
#EndFunction


; Test.

While @TRUE
   strGUID = udfCreateGUID ()
   Pause ("GUID", strGUID)
EndWhile

:CANCEL
Exit