Someone shared this with me yersterday. Cool for generating GUIDS in VBScript.
Code:
	function GetNewGUID()
		set TypeLib = server.CreateObject("Scriptlet.TypeLib")
		GetNewGUID = TypeLib.Guid
		Set TypeLib = nothing
	end function