вызывать .vbs из пакетного скрипта

В продолжение сценария, предоставленного rojo в экранируйте двойные кавычки в параметре файла в пакетный сценарий, после того как я проанализировал исходный файл данных, мне нужно вызвать сценарий .vbs из пакета. Сценарий .vbs должен быть снабжен двумя маркерами, сгенерированными путем синтаксического анализа исходного файла данных. Один из токенов — это URL-адрес файла на сервере, а другой — путь на локальном диске. Сценарий .vbs загружает указанный файл, указанный маркером один, по локальному пути, указанному маркером два. Что я хочу сделать, так это вызвать сценарий .vbs в приведенном выше сценарии и передать ему токены в качестве параметров. myvbscript.vbs /FileURL:"https://abc.com/a.pdf" /HDРасположение: "C:\a.pdf"

Вот файл .bat, который у меня есть.

    @if(@a==@b) @end
/* :: batch portion
@ECHO OFF
setlocal if exist "%~1"
 ( cscript /nologo /e:jscript "%~f0" < "%~1" )
 else ( cscript /nologo /e:jscript "%~f0" )
 exit /b 
:: JScript portion */ 
while (!WSH.StdIn.AtEndOfLine) {
 var line=WSH.StdIn.ReadLine();
 var st_token = line.split('\t');
 var FileUR="abc.com/a.pdf";
 var HDLocation="C:\a.pdf"; 
WSH.Echo(req_id); 
WSH.Echo(att_tokens[i]);
 <<INVOKE VBSCRIPT WITH PARAMETERS>> 

Мне нужно вызвать vbscript вместо <<INVOKE VBSCRIPT WITH PARAMETERS>> Пожалуйста, помогите}

Пожалуйста, помогите мне вызвать сценарий .vbs в приведенном выше сценарии с передачей токенов в качестве параметров.

Сценарий .vbs выглядит следующим образом:

'Set your settings

Set colNamedArguments = WScript.Arguments.Named

strFileURL = colNamedArguments.Item("FileURL")
strHDLocation = colNamedArguments.Item("HDLocation")

' Fetch the file

Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()

If objXMLHTTP.Status = 200 Then
  Set objADOStream = CreateObject("ADODB.Stream")
  objADOStream.Open
  objADOStream.Type = 1 'adTypeBinary

  objADOStream.Write objXMLHTTP.ResponseBody
  objADOStream.Position = 0    'Set the stream position to the start

  Set objFSO = Createobject("Scripting.FileSystemObject")
    If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
  Set objFSO = Nothing

  objADOStream.SaveToFile strHDLocation
  objADOStream.Close
  Set objADOStream = Nothing
End if

Set objXMLHTTP = Nothing