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