En VBscript repérer Real Audio & Winamp

Bonjour J'ai un script en VBscript qui me permet de repérer les plugins de real audio et si ces plug n'existe pas sur la machine, l'internaute est renvoyé sur la page pasok1.htm.

Je souhaiterai que quelqu'un puisse m'aider .

En plus du repérage de Real Audio, je souhaiterai que le script repère Winamp sinon que l'internaute soit dirigé vers pasok2.htm

Le mieux en fait plutôt que des redirection vers les pages pasok1.htm ou pasok2.htm ce soit des message qui s'inscrivent du style:

document.write('<A>Real audio n'est pas présent sur votre ordinateur , veuillez utiliser la version MP3 du titres</A>')

document.write('<A>Winamp n'est pas présent sur votre ordinateur , veuillez utiliser la version Real Audio du titres</A>')

Voici déja le bout du script pour repérer les plug de Real Audio

<script LANGUAGE="VBScript">
on error resume next
RealPlayerG2 = not IsNull(CreateObject("rmocx.RealPlayer G2 Control"))
RealPlayer5 = not IsNull(CreateObject("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)"))
RealPlayer4 = not IsNull(CreateObject("RealVideo.RealVideo(tm) ActiveX Control (32-bit)"))
if (RealPlayerG2 or RealPlayer5 or RealPlayer4) then
document.location.replace("http://www.chinchillas.freesurf.fr/popupreal/carnet.htm")
else
document.location.replace("http://www.chinchillas.freesurf.fr/testreal/pasok1.htm")
end if
</script>

Je vous remercie beaucoup pour votre aide.
gillescoste
gilles_webmaster@ifrance.com
http://gillescoste.ue.st