function getUUID32(){
	Set objTypeLib = CreateObject("Scriptlet.TypeLib")  
	str = objTypeLib.Guid
	set objTypeLib = nothing
	uuid = replace(str,"-","")
	uuid = mid(uuid, 2, 32)
	getUUID32 = uuid
}