function isActiveXInstalled(progId)
		Dim isInstalled, activeXObj
		isInstalled = false
		On Error Resume Next
		Set activeXObj = CreateObject(progId)
		isInstalled = IsObject(activeXObj)
		'alert("progId = " & progId & "; isInstalled = " & isInstalled)
		'alert (activeXObj.GetVersion)
		isActiveXInstalled = isInstalled
end function


function isActiveXInstalledAndCurrent(progId, progVersion)
		Dim isInstalled, isCurrent, activeXObj
		isInstalled = false
		isCurrent = false
		On Error Resume Next
		Set activeXObj = CreateObject(progId)
		isInstalled = IsObject(activeXObj)
		isCurrent = (progVersion = activeXObj.GetVersion)
		'alert("progId = " & progId & "; progVersion = " & progVersion & "; activeXObj.GetVersion = " & activeXObj.GetVersion &"; isInstalled = " & isInstalled & "; isCurrent = " & isCurrent)
		isActiveXInstalledAndCurrent = (isInstalled AND isCurrent)
end function