function DetectUnityWebPlayerActiveX
on error resume next
dim tControl
dim res
res = 0
set tControl = CreateObject("UnityWebPlayer.UnityWebPlayer.1")
if IsObject(tControl) then
	res = 1
	end if
	DetectUnityWebPlayerActiveX = res
end function