//----------------------------------------------------------------------------
// JavaScript routines for handling installation of ActiveX controls and 
// Netscape plug-ins.
//----------------------------------------------------------------------------

Function GetActiveXVersion(strControlName)
	' Initialize for not found...
	Dim ver
	ver = 0

	' Need proper version of scripting engine to proceed
	If ScriptEngineMajorVersion >= 2 then

		' Try to create the object
		on error resume next
		Dim zObj
		Set zObj = CreateObject(strControlName)
		If ((Err.Number = 0) AND IsObject(zObj)) Then
		
			' Got a valid control - get the version number
			ver = "1"
			ver = zObj.GetVersionInfo()
			If (Err.Number <> 0) Then
				ver = "0"
			End If
		End If
		Set zObj = Nothing
	end if
	GetActiveXVersion = ver
End Function

Function IsObjectDefined(object)
	IsObjectDefined = IsObject( object )
End Function