difficulté a executer code vbs dans pas xhtml

**rtchi** · 30/08/2010, 10h21

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 :

Code :

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

**ProgElecT** · 30/08/2010, 13h30

A tout hasard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<li><a href="#" onclick="vbscript: call affiche()">Cliquez ici</a></li>

**rtchi** · 30/08/2010, 15h01

Merci pour la reponse mais le call fonctionne bien car quand je remplace le code de la fonction par un code plus simple avec une boite de dialogue cela fonctionne. donc pas d'erreur de syntaxe.

JE pense plutot que le probleme viens du contenu de la fonction. j'ai copié collé le contenu de mon . vbs qui fonctionne dans la fonction et la ca fonctionne pas. Peut etre que tout ce code ne s'intègre pas si simplement dans une fonction ou une procédure (Sub) ??

difficulté a executer code vbs dans pas xhtml

VBScript

Discussions similaires

Partager

Partager