Executer un Batch depuis une URL + parametre

Version imprimable

07/02/2019, 12h10
Trabe

Executer un Batch depuis une URL + parametre
Bonjour a tous,

Je viens vers vous car après plusieurs heures de tests et de recherches je suis un peu perdu et sans réponse ...

Mon problème est le suivant,
J'ai un script VBS en local, et j’aimerais que celui-ci puisse être appelé depuis un liens dans un mail que j’enverrais à mes collaborateurs.
la difficulté étant que j'ai besoin de l’exécuter avec un paramètre, donc mon idée étant d'utiliser un petit fichier bat pour appeler mon script.
Quand le paramètre est en dur dans le .bat tout s’exécute normalement,

Mais ma question est la suivante : es-t’il possible de passer un paramètre directement dans l'url ?
voici mon code dans le .bat :
Code:

1 2 3 4 5 @echo off call C:\Users\dell\Desktop\test4.vbs 550 pause
J'ai essayé de faire :
Code:

1 2 3 4 @echo off set URL = %1 call C:\Users\dell\Desktop\test4.vbs %URL% pause
en l'appelant avec :

Code:

<a href="C:\Users\dell\Desktop\Tout sur le script\new1.bat" "%5%">Mon lien ...</a>

Mais ça n'abouti pas,

J'espère que j'ai été clair, et si jamais vous avez une autre idée pour mon problèmes je suis preneur !

Merci a vous
07/02/2019, 18h55
hackoofr

:salut:
Pouvez-vous nous poster le code du vbscript ?

Merci de votre réponse Hackoor !
Voici :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Dim wb, ws, lig, Valeur, Odate, xlapp, args
 
 
set xlapp = CreateObject ("Excel.Application")
Set net = WScript.CreateObject("WScript.Network")
Set args = Wscript.Arguments
 
'ouverture du classeur compteur de logs
Set wb = xlapp.Workbooks.Open("M:\path\Liste.xlsm")
Set ws = xlapp.Worksheets("Feuil1")
 
lig = 1
 
'set temp
ws.Range("J1") = args(0)
ws.Range("J2") = net.username
 
 
Do While Not IsEmpty(ws.Range("A" & lig))
	if ws.Range("J2") = ws.Range("C" & lig) And ws.Range("A" & lig) = ws.Range("J1") Then	
 
		'date
		ws.Range("B" & lig) = (Day(Now) & "/" & Month(Now) & "/" & Year(Now))
 
		'compteur d'ouverture 
		Valeur = ws.Range("D" & lig)
		ws.Range("D" & lig) = Valeur + 1
 
 
		'clear  temp
		ws.Range("J1") =""
		ws.Range("J2") =""
 
		xlapp.DisplayAlerts = False
 
		wb.Close True
		xlapp.Visible = True
		'stop le script
		wscript.Quit
 
	end if
	lig = lig +1
loop
 
if ws.Range("A" & lig) ="" Then
 
	'envoi num procédure
	ws.Range("A" & lig) = ws.Range("J1")
 
	'date
	ws.Range("B" & lig) = (Day(Now) & "/" & Month(Now) & "/" & Year(Now))
 
	'nom
	ws.Range("C" & lig) = ws.Range("J2")
 
	'compteur d'ouverture 
	ws.Range("D" & lig) =  1
 
	'date première ouverture
	ws.Range("E" & lig) = (Day(Now) & "/" & Month(Now) & "/" & Year(Now))
 
 
	'clear temp
	ws.Range("J1") =""
	ws.Range("J2") =""
 
	xlapp.DisplayAlerts = False
 
	wb.Close True
	xlapp.Visible = True
	wscript.Quit
 
end if