[VBS] MBAM VBScript

Bonjour,
Ce script est testé avec la version V1.75.0.1300 et je l'ai testé et il marche 5/5 chez moi pour un scan rapide, mais ce que j'ai remarqué quand j'ai téléchargé la dernière version aujourd'hui V2.0.1.1004 il ne marche pas avec les switches en ligne de commande càd /quickscan etc ...
peut-être ils ont changé quelques choses, donc il faut se renseigné.
Qui as une idée pour ce changement ou bien ou on peut se renseigner pour ce nouveau changement ? Merci !
Remarque :
Pour les anciennes versions le chemin de Mbam.exe est :
"%ProgramFiles%\Malwarebytes' Anti-Malware\"
Pour la dernière version :
"%ProgramFiles%\Malwarebytes Anti-Malware\" sans '

Option Explicit
'© Hackoo 17/05/2014
Dim MalwareBytes,MaCommande
MalwareBytes = "%ProgramFiles%\Malwarebytes Anti-Malware\"
MaCommande = "CD /D " & DblQuote(MalwareBytes) & " & Start mbam.exe /quickscan"
Call Run(MaCommande,0,False)'Sans afficher la console MS-DOS
'*********************************************************************************
Function Run(StrCmd,Console,bWaitOnReturn)
	Dim ws,MyCmd,Result
	Set ws = CreateObject("wscript.Shell")
'A value of 0 to hide the MS-DOS console
	If Console = 0 Then
		MyCmd = "CMD /C " & StrCmd & ""
		Result = ws.run(MyCmd,Console,bWaitOnReturn)
		If Result = 0 Then
			'MsgBox "Success"
		Else
			MsgBox "An unknown error has occurred!",16,"An unknown error has occurred!"
		End If
	End If
'A value of 1 to show the MS-DOS console
	If Console = 1 Then
		MyCmd = "CMD /K " & StrCmd & ""
		Result = ws.run(MyCmd,Console,bWaitOnReturn)
		If Result = 0 Then
			'MsgBox "Success"
		Else
			MsgBox "An unknown error has occurred!",16,"An unknown error has occurred!"
		End If
	End If
	Run = Result
End Function
'*********************************************************************************
Function DblQuote(Str)
	DblQuote = Chr(34) & Str & Chr(34)
End Function
'*********************************************************************************