'FIX ME, make me clean
'Touch ME, oh the wizard is calling you back home

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