Discussion :

[Trabe]

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 Batch :

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

1
2
3
4
5
@echo off
 
call C:\Users\dell\Desktop\test4.vbs 550
 
pause

J'ai essayé de faire :

Code Batch :

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

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

en l'appelant avec :

Code HTML :

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

<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

[hackoofr]

Pouvez-vous nous poster le code du vbscript ?

[Trabe]

Merci de votre réponse Hackoor !
Voici :

Code vb :

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