这个方法是从GOOGLE上搜到的,不过,还是分享给大家吧
Set TypeLib = server.CreateObject("Scriptlet.TypeLib") 
    strGUID = TypeLib.Guid
简单易用