Bonjour,
J'ai défini des variables dans un fichier bat, puis j'appelle mon script VBS en lui affectant ces variables pour pouvoir faire mon traitement.

Comment dois-je faire pour passer mes variables et les récupérer dans mon VBS ?

Voici mon fichier batch

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
':variables
set FichierSource=c:\temp\tnsnames.ora
set FichierDest=c:\temp\tnsnames.txt
set NomValeur=CODR
 
':appel du script vbs
"C:\Applis Packagees\script\Supprime_ligne_fichier2.vbs" /%FichierSource% /%FichierDest% /%NomValeur%
Ci-dessous le contenu du
Code VBS : 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
Sub supprimeligne (FichierSource, FichierDest, NomValeur)
 
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fichier_lecture_1, fichier_lecture_2, fichier_ecriture_1, fichier_ecriture_2
Dim fso, fso1
Dim compteur
Dim chaine, machaine
 
fichier_lecture_1 = WScript.Arguments(0)
fichier_ecriture_1 = WScript.Arguments(1)
mot_cherche = WScript.Arguments(3)
compteur = 0
 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set fso1 = CreateObject("Scripting.FileSystemObject") 
set fichier_lecture_2 = fso.opentextfile(fichier_lecture_1, 1, true)
set fichier_ecriture_2 = fso1.opentextfile(fichier_ecriture_1, 2, true)
 
' Copie ligne à ligne du fichier source sans la ligne contenant le mot recherche vers un fichier destination
do until fichier_lecture_2.atendofstream 
  chaine = fichier_lecture_2.readline()
  machaine = chaine  
  if instr(1, chaine, mot_cherche) > 0 then
     compteur = compteur + 1
	 machaine = fichier_lecture_2.readline()
  end if
  fichier_ecriture_2.writeline machaine
loop
 
fichier_lecture_2.close
fichier_ecriture_2.close
 
' Suppression du fichier source puis renommage du fichier destination avec le nom du fichier origine
fso.deletefile fichier_lecture_1
fso.movefile fichier_ecriture_1, fichier_lecture_1
 
set fichier_lecture_2 = nothing
set fso = nothing 
set fichier_ecriture_2 = nothing
set fso1 = nothing 
 
wscript.echo "mot trouvé " & compteur & " fois !!"
end sub
Par avance, merci de votre aide.