函数如下
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
使用方法
IsObjInstalled(组建),返回一个boole值
本文介绍了一个用于检测指定组件是否已安装的VBScript函数IsObjInstalled。该函数接收一个字符串参数,表示要检测的组件类名,并返回一个布尔值,指示该组件是否已成功安装。
836

被折叠的 条评论
为什么被折叠?



