dim objTypeLib
set objTypeLib = CreateObject("Scriptlet.TypeLib")
'获取guid值
guid = cstr(mid(objTypeLib.Guid, 2 ,len(objTypeLib.Guid)-4))
dim objTypeLib
set objTypeLib = CreateObject("Scriptlet.TypeLib")
'获取guid值
guid = cstr(mid(objTypeLib.Guid, 2 ,len(objTypeLib.Guid)-4))