On Error Resume Next
hasActiveX = ScriptEngineMajorVersion >= 2 AND NOT IsNull(CreateObject("AutoUpdate.AULoader"))