VBScript: Dynamically Create GUIDs

Function CreateGUID()
 Set TypeLib = CreateObject("Scriptlet.TypeLib") 
 myGuid = CStr(TypeLib.Guid)
 CreateGUID = Left(myGuid, Len(myGuid)-2)
 Set TypeLib = Nothing
End Function