difficultés a executer vbs dans html
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:
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
