//*********** file name	: lib_detectplugin.vbs
//*********** summary	: script for detecting plugin
//*********** maker		: DaeHo Yu
//*********** created	: 7/08/02
//*********** modified	: 

Function dhDetect_detectIE(strClassID)
	On Error Resume Next
	
	Dim bResult
	bResult = False

	dhDetect_detectIE = IsObject(CreateObject(strClassID))
	On Error Goto 0
End Function


' strClassID¿¡ Version Number°¡ ¾ø´Â °æ¿ì »ç¿ë ÁÖÀÇ
Function dhDetect_detectIEVersion(strClassID, nTopVersion)
	On Error Resume Next

	Dim strNoVerID
	strNoVerID = Left(strClassID, Len(strClassID) - 1)
	Dim nVersion, nTotalVersion
	For nVersion = nTopVersion To 1 Step -1
		If Not IsObject(CreateObject(strNoVerID & nVersion)) Then
			dhDetect_detectIEVersion = -1
		Else
			dhDetect_detectIEVersion = nVersion
			Exit For
		End If
	Next
	
	On Error Goto 0
End Function