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