detectableWithVB = false
if ScriptEngineMajorVersion >= 2 then
	detectableWithVB = true
end if

function detectActiveXControl(activeXControlName)
	on error resume next
    detectActiveXControl = false
    If detectableWithVB then
		detectActiveXControl = IsObject(CreateObject(activeXControlName))
    end if
end function

function detectJavaWebStart()
	on error resume next
	detectJavaWebStart = false
	if (IsObject(CreateObject("JavaWebStart.IsInstalled"))) then
		detectJavaWebStart = true
	end if
end function