我在VBScript中有一个使用URL下载文件的函数。由于下载文件需要一些时间,我计划将此功能移至单独的vbs文件,我打算使用.cmd文件运行。
VBScript文件:
sUrl = WScript.Arguments(0)
sFilePath = WScript.Arguments(1)
sBarcode = WScript.Arguments(2)
DownloadInvoiceToLocal sUrl, sFilePath, sBarcode
Public Sub DownloadInvoiceToLocal1(sUrl, sFilePath, sBarcode)
Dim Url
Url = sUrl
Dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
Dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", Url, False
xHttp.Send
With bStrm
.Type = 1 '//binary
.Open
.Write xHttp.responseBody
.SaveToFile sFilePath & sBarcode & ".pdf", 2 '//overwrite
End With
End Sub
我想将三个参数从vbscript文件传递到此vbs文件到.cmd文件。
批处理文件:
C:\Windows\SysWOW64\cscript downloader.vbs argument1, argument2, argument3
如何在此处访问这些参数?
如何使用VBScript文件中的参数调用.cmd文件?