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