Originariamente inviato da als
Ciao Oronze,
stavo provando il tuo script per il detect del Flash Player (v.6).
Se non ho il player IE mi da questo errore "il server di automazione non può creare l'oggetto" alla riga 9 ossia "var a=new ActiveXObject(ProgId); ", mentre su netscape tutto funziona.
Puoi aiutarmi?
Grazie mille.
Als
Prova in quest'altro modo:
(http://www.gemal.dk/browserspy/flash.html)

codice:
var i_flash;
var a_flash;
var v_flash;
var i_flash2;
var v_flash2;
var i_flash3;
var v_flash3;
var i_flash4;
var v_flash4;
var i_flash5;
var v_flash5;
var i_flash6;
var v_flash6;
var i_shock;
var v_shock;
var i_shock6;
var v_shock6;
var i_shock7;
var v_shock7;
var i_shock8;
var v_shock8;
var fv = verCaps("{D27CDB6E-AE6D-11CF-96B8-444553540000}");
if (fv)
a_flash = fv;
if (navigator.plugins) {
  for (var i=0; i < navigator.plugins.length; i++) {
    if (navigator.plugins[i].name.toLowerCase().indexOf("shockwave flash") >= 0) {
      i_flash = true;
      v_flash = navigator.plugins[i].description.substring(navigator.plugins[i].description.toLowerCase().lastIndexOf("flash ") + 6, navigator.plugins[i].description.length);
    }
    if (navigator.plugins[i].name.indexOf("Shockwave for Director") >= 0) {
      i_shock = true;
      v_shock = navigator.plugins[i].description.substring(navigator.plugins[i].description.toLowerCase().lastIndexOf("version ") + 8, navigator.plugins[i].description.length);
    }
  }
}
// --></script>
<script language="vbscript"><!--
on error resume next
set f = CreateObject("ShockwaveFlash.ShockwaveFlash")
if IsObject(f) then
  i_flash = true
  v_flash = hex(f.FlashVersion())
end if
i_flash2 = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.2"))
i_flash3 = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3"))
i_flash4 = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4"))
i_flash5 = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5"))
i_flash6 = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6"))
set s = CreateObject("SWCtl.SWCtl")
if IsObject(s) then
  i_shock = true
  v_shock = s.ShockwaveVersion("")
end if
i_shock6 = IsObject(CreateObject("SWCtl.SWCtl.1"))
i_shock7 = IsObject(CreateObject("SWCtl.SWCtl.7"))
i_shock8 = IsObject(CreateObject("SWCtl.SWCtl.8"))
_____________________________________

P.S.
Mi permetto di darti qualche idea per migliorare e/o integrare il lavoro che hai fatto:
1.Credo che sia conveniente, nello sniffing del browser, trasformare le stringhe in lower-case... tanto per essere più sicuri.
2.Inoltre: i Mac lavorano alle stesse risoluzioni grafiche dei pc? non ne ho la più pallida idea... però se così non è conviene utilizzare una struttura del tipo if-else nel test della risoluzione grafica.
3.Mi è capitato di dover effettuare test incrociati di tipo-versione browser, sistema operativo e player per flash. Può essere una buona idea avere dei flag per semplificare i test.
______________________________________

OTTIMO LAVORO, BRAVO!!