asp代码实现检测组件是否安装的函数

<%
'
'函数IsObjInstalled(strClassString)
'参数strClassString,组件对象名
'作者阿里西西
'日期2007/7/13
'描述检测组件是否安装
'示例<%=IsObjInstalled(strClassString)%>
'
Function IsObjInstalled(strClassString)
    On Error Resume Next
    IsObjInstalled = False
    'Err = 0
    Dim xTestObj
    Set xTestObj = Server.CreateObject(strClassString)
    If Err<>-2147221005 Then IsObjInstalled = True Else IsObjInstalled = False End IF
    Set xTestObj = Nothing
    'rr = 0
End Function
%>