Utilisation d'un VBScript
Moderator: Modérateurs francophones
Utilisation d'un VBScript
J'ai mis dans une page web un code VBscript destiné à ouvrir le lecteur CD mais quand j'ouvre la page le script ne fonctionne pas, ni hébergé ni en local.
J'ia utilisé comme hébérgeur pour le test iFrance. Est-ce que ifrance supporte le VBS ?
Quand au local, j'ai un message d'alerte (machin bidule les scripts activeX et gnagnagna) mais quand j'autorise le contenu, rien ne se passe...
Voici le script :
<SCRIPT LANGUAGE="VBScript">
<!--
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
-->
</SCRIPT>
Est-ce que quelqu'un pourrait m'expliquer pourquoi ça ne marche pas ?
J'ia utilisé comme hébérgeur pour le test iFrance. Est-ce que ifrance supporte le VBS ?
Quand au local, j'ai un message d'alerte (machin bidule les scripts activeX et gnagnagna) mais quand j'autorise le contenu, rien ne se passe...
Voici le script :
<SCRIPT LANGUAGE="VBScript">
<!--
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
-->
</SCRIPT>
Est-ce que quelqu'un pourrait m'expliquer pourquoi ça ne marche pas ?
-
Romano

- Posts: 3954
- Joined: Fri Aug 08, 2003 10:17 pm
- Location: Aix-en-Provence, France
- Contact:
- Tings: 70724
Re: Utilisation d'un VBScript
Le VBS s'éxecutant côté client, je ne pense pas que l'hébergeur y puisse quelque choseDesLife wrote:=Est-ce que ifrance supporte le VBS ?
Cela prouve que ton VBS est bien lu par le navigateur (en l'occurence Internet Explorer).Deslife wrote:Quand au local, j'ai un message d'alerte (machin bidule les scripts activeX et gnagnagna) mais quand j'autorise le contenu, rien ne se passe...
J'ai peur que ce genre de script ne soit guère apprécié des antivirus, qui bloquent le VBS le plus souventDeslife wrote:<SCRIPT LANGUAGE="VBScript">
<!--
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
-->
</SCRIPT>
Who's your daddy?
