executer cobde vbs sur onclick

bonjour,

j aimerai executer ce code sur on click :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

<script language="vbscript">   Dim WshShell   ' déclaration d'un objet WshShell Set WshShell = CreateObject("Wscript.Shell")   ' lancement de notepad sur le client WshShell.Run "%SystemRoot%\system32\calc.exe "   ' destruction de l'objet WshShell Set WshShell = nothing   </script>

---

c 'est pour des test dans wss qui utilise asp

donc j ai un bouton et sur le click je souhaite lancer la calculette .

je ne sais ou placer le code ni comment l appeler..

merci
a+

Salut,
tu peux utiliser la méthode: Page.RegisterStartupScript et le mettre dans le gestionnaire d’événement du bouton.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim MyScriptVbs As String = "<script language="vbscript"> <script language="vbscript"> Dim WshShell ' déclaration d'un objet WshShell Set WshShell = CreateObject("Wscript.Shell") ' lancement de notepad sur le client WshShell.Run "%SystemRoot%\system32\calc.exe " ' destruction de l'objet WshShell Set WshShell = nothing   </script>" Page.RegisterStartupScript("MyScriptVbs", MyScriptVbs)

---

Bonjour,
merci pour la réponse :)

a+