bonjour a vous

voila j'ai un fichier .vbs qui fonctionne quand je le lance directement par l'explorateur. je souhaite l'inclure dans mon code xhtml. N'etant pas pro je suis parti d'un exemple simple qui fonctionne. Par contre quand je remplace le code de la fonction exemple et que je le remplace par le code de mon .vbs cela ne fonctionne pas.

j'ai peut etre mal declare la fonction, je suis pas un spécialiste du VBS.

Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
<head>
 
	   <script language ="vbscript">
		sub affiche()
Dim fso, theFile, retstring, Myfile, f, f2, f3
   Const ForReading = 1, ForWriting = 2
   Set WshShell = WScript.CreateObject("WScript.Shell")
   Set fso = CreateObject("Scripting.FileSystemObject")
 
   'Nom du site web proposé par défaut
 
    Site_name = "http://10.144.28.815/in/?codeclient=nono"
 
	WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Print_Background", "yes", "REG_SZ"
 
   'Lancement du  site web sur IE avec Inetset modifié
   	Return = WshShell.Run("c:\Progra~1\intern~1\IEXPLORE.EXE " & Site_Name, 1, True)
 
   'Modification du fichier Ineset pour revenir au paramètre initial
 
 
	WshShell.RegDelete  "HKCU\Software\Microsoft\Internet Explorer\Main\Print_Background"
 
		end sub
 
		</script> 
   </head>
   <body>
<div id="en_tete">
 
<div id="menu">
 
	<li><a href='#' onclick='vbscript: call affiche()'>Cliquez ici</a></li>

ce script a pour but de lancer une page I.E en changeant les proprietes de 'I.E pour accepter l'edtion des fonds de page.


Merci pour votre aide