vbs & hta - lien vbs

Version imprimable

Bonjour, je voudrai faire un lien html avec un fonction vbs qui lance un fichier bat:

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
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Document sans nom</title>
 
 
<SCRIPT Language="VBScript">
 
function MajCadre() {
 
set WshShell = WScript.CreateObject("WScript.Shell")               
 
   WshShell.Run "Z:\KooKaTix_Interface\Interface\lunnatick_Menu\lunnatick\_ 0 - MS-DOS VBScipt Reg\0 - Batches - ( Outils et scripts batches )\Bloquer le PC pour Maxime.bat"               
   WScript.Sleep 2000
 
   WshShell.SendKeys "{Enter}" 
 
}
 
</script>
 
 
</head>
 
<body>
 
<A href="#" onclick="MajCadre();">Ton lien</A>
 
 
</body>
</html>

mais ce ne marche pas sauriez vous m'aider ?

15/09/2008, 09h43
ced600

A tous les coups run essaye de te lancer : "Z:\KooKaTix_Interface\Interface\lunnatick_Menu\lunnatick\_"

Il faut que tu mette entre " le chemin car il contient des espaces.

Essayce cela :

Code:

WshShell.Run """Z:\KooKaTix_Interface\Interface\lunnatick_Menu\lunnatick\_ 0 - MS-DOS VBScipt Reg\0 - Batches - ( Outils et scripts batches )\Bloquer le PC pour Maxime.bat"""
15/09/2008, 10h19
koKoTis

salut et merci ;)

ca me renvoi toujours une erreur
15/09/2008, 13h56
ced600

quoi comme erreur ?
on ira plus vite ainsi que si j'essaye de deviner les erreurs ;)
15/09/2008, 13h57
koKoTis

http://i36.tinypic.com/28i98oi.jpg
15/09/2008, 16h42
ced600

il n'y a pas 11 lignes dans ton bout de script, à quoi correspond donc la 11ème ligne ?
15/09/2008, 17h41
koKoTis

Code:

function MajCadre() {
15/09/2008, 19h43
SfJ5Rpw8

b'soir, c'est quoi les {..} .:koi:.? du javascript ?
15/09/2008, 19h45
koKoTis

b'soir, je sais plu
16/09/2008, 09h40
ced600
tiens oui j'avais pas vu, tu m'étonnes que tu sois jeté !!!!

Un rappelle très basique du VBS sur la structure d'une fonction :
Code:

1 2 Function toto(param1) End Function
Et pas autre chose !!!!

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
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Document sans nom</title>
 
 
<SCRIPT Language="VBScript">
 
function MajCadre(
 
set WshShell = WScript.CreateObject("WScript.Shell")               
 
   WshShell.Run """Z:\KooKaTix_Interface\Interface\lunnatick_Menu\lunnatick\_ 0 - MS-DOS VBScipt Reg\0 - Batches - ( Outils et scripts batches )\Bloquer le PC pour Maxime.bat"""               
 )
End Function
 
</script>
 
 
</head>
 
<body>
 
<A href="#" onclick="MajCadre();">Ton lien</A>
 
 
</body>
</html>

ca marche toujour pas

Ne faisant pas de VbScript, mais au vue de ce que t'a donné ced600 , moi je ferai comme sa

Code:

1
2
3
4
5
6
Function MajCadre()
 
	set WshShell = WScript.CreateObject("WScript.Shell")               
	WshShell.Run """Z:\KooKaTix_Interface\Interface\lunnatick_Menu\lunnatick\_ 0 - MS-DOS VBScipt Reg\0 - Batches - ( Outils et scripts batches )\Bloquer le PC pour Maxime.bat"""               
 
End Function

16/09/2008, 12h48
koKoTis

j'ai essayer aussi mais j'ai toujours une erreur :?

et ainsi ?

Code:

1
2
3
4
5
6
Function MajCadre()
 
	set WshShell = CreateObject("WScript.Shell")               
	WshShell.Run """Z:\KooKaTix_Interface\Interface\lunnatick_Menu\lunnatick\_ 0 - MS-DOS VBScipt Reg\0 - Batches - ( Outils et scripts batches )\Bloquer le PC pour Maxime.bat"""               
 
End Function

16/09/2008, 13h51
koKoTis

ben c'est comme m'a dit ProgElecT, et ca marche pas
16/09/2008, 14h01
ced600

non j'ai enlevé le WScript.

Cela ne marche pas, mais tu as toujours la même erreur ?
16/09/2008, 14h03
koKoTis

Avec ton code j'ai l'erreur:

http://i37.tinypic.com/2cht9n7.jpg