asp 檢測服務器所安裝組件

　　asp 檢測服務器所安裝組件
==================================

　　函數名IsObjInstalled
作  用檢查組件是否已經安裝
參  數strClassString 組件名
返回值True  已經安裝
      False 沒有安裝
==================================

　　Function IsObjInstalled(strClassString)
 On Error Resume Next
 IsObjInstalled = False
 Err =
 Dim xTestObj
 Set xTestObj = ServerCreateObject(strClassString)
 If = Err Then IsObjInstalled = True
 Set xTestObj = Nothing
 Err =
End Function

From:http://tw.wingwit.com/Article/program/net/201311/14051.html