vbs & hta - lien vbs

**koKoTis** · 13/09/2008, 09h29

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

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
<!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 ?

**ced600** · 15/09/2008, 09h43

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 :

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

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"""

**koKoTis** · 15/09/2008, 10h19

salut et merci

ca me renvoi toujours une erreur

**ced600** · 15/09/2008, 13h56

quoi comme erreur ?
on ira plus vite ainsi que si j'essaye de deviner les erreurs

**koKoTis** · 15/09/2008, 13h57

**ced600** · 15/09/2008, 16h42

il n'y a pas 11 lignes dans ton bout de script, à quoi correspond donc la 11ème ligne ?

**koKoTis** · 15/09/2008, 17h41

Code :

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

function MajCadre() {

**SfJ5Rpw8** · 15/09/2008, 19h43

b'soir, c'est quoi les {..} .

.? du javascript ?

**koKoTis** · 15/09/2008, 19h45

b'soir, je sais plu

**ced600** · 16/09/2008, 09h40

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 :

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

1
2
Function toto(param1)
End Function

Et pas autre chose !!!!

**koKoTis** · 16/09/2008, 11h05

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
<!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

**ProgElecT** · 16/09/2008, 12h46

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

Code :

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

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

**koKoTis** · 16/09/2008, 12h48

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

**ced600** · 16/09/2008, 13h49

et ainsi ?

Code :

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

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