Passer des parametres à un VbScript

'Parse the command line.
call ParseCommand()


wscript.echo "Script Done."

Function ParseCommand()
	'
	' Parses the command line and fills the script variables 
	' with the appropriate values.
	'
	Dim ArgCount
	Dim objArgs

	Set objArgs = Wscript.Arguments

	ArgCount = 0
	if objArgs.Count = 0 then
		wscript.echo "No arguments specified."
		wscript.echo
		call Help()
	end if

	While ArgCount < objArgs.Count
		Select Case LCase(objArgs(ArgCount))
			Case "-source"
			ArgCount = ArgCount + 1
			CheminFichierSource=LCase(objArgs(ArgCount))
			wscript.echo "CheminFichierSource : " & CheminFichierSource

			Case "-cible"
			ArgCount = ArgCount + 1
			CheminFichierCible=LCase(objArgs(ArgCount))
			wscript.echo "CheminFichierCible : " & CheminFichierCible

			Case Else:
			wscript.echo "Invalid command."
			wscript.echo
			call Help()
			wscript.quit
		End Select
		ArgCount = ArgCount + 1
	Wend
End Function

sub Help()
	'
	' Display command-line syntax for the script.
	'
	wscript.echo "Script Function details"
	wscript.echo "Syntax:"
	wscript.echo
	wscript.echo "-source ""patch to the source file"""
	wscript.echo "-cible ""patch to the result file"""
	wscript.echo
	wscript.echo "Example"
	wscript.echo
	wscript.echo "C:\ModifierFichier2.vbs -source ""c:\ZZZ.txt"" -cible ""c:\ZZZFichierModifie.txt"""
	wscript.quit
End Sub