[VBS] Rilevare plugin di Flash

[sidvizioso]

ciao a tutti.
ho trovato nel web questo script:

<SCRIPT LANGUAGE="VBScript">
     Private i, x
     IEFlashInstalled = False
     Set x = CreateObject("ShockwaveFlash.ShockwaveFlash")
     IEFlashInstalled = IsObject(x)
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
<!--
FlashInstalled=false;
if (navigator.plugins && navigator.plugins["Shockwave Flash"] || IEFlashInstalled != null)
     FlashInstalled = true;

if (FlashInstalled)
     self.location.replace("PaginaFlash.html");
     else
     self.location.replace("PaginaNOFlash.html");
//-->
</SCRIPT> 

al posto delle istruzioni "self.location.replace" ho usato document.write("etc etc") in modo che se il client ha installato l'oggetto shockwave flash visualizza lìoggetto flash altrimenti inserisce una immagine con il relativo collegamento per entrare nel sito.
Funziona tutto correttamente su Firefox 2.0,IE7, netscape ultima versione e Opera, e viene tutto convalidato correttamente dal W3C. L'unico problema è che IE7 nella status bar visualizza un errore relativo a questa istruzione ,

Set x = CreateObject("ShockwaveFlash.ShockwaveFlash") 

. Tutto però ripeto funziona correttamente...
Come faccio ad eliminare questo errore molto fastidioso? Altrimenti esiste un mwetodo alternativo? Avevo provato anche ad usare direttamente "navigator.plugins["Shockwave Flash"] " ma così non funziona...
Spero mi possiate aiutare...
Grazie

[alka]

Lascio aperta questa discussione, ma ho segnalato le altre per la chiusura: il crossposting è vietato su tutto il forum.

[MItaly]

Un consiglio OT: non usare VBS nelle pagine web, non è standard e non è supportato da molti browser.

[sidvizioso]

io non conosco VB però avevo trovato questo script per risolvere il problema e funziona apparte qeull'errore che ho segnalato... cmq on sapete darmi un consiglio su come usare la rilevazione dei plugin?
grazie di nuovo