用bat下载文件

@echo off & title Bat+Vbs 下载器 By 依梦琴瑶

::设置要下载的文件链接，仅支持http协议。必写项。

set Url=

::设置文件保存目录，若下载至当前目录，请留空

set Save=D:\document

for %%a in ("%Url%") do set "FileName=%%~nxa"

if not defined Save set "Save=%cd%"

(echo Download Wscript.Arguments^(0^),Wscript.Arguments^(1^)

echo Sub Download^(url,target^)

echo  Const adTypeBinary = 1

echo  Const adSaveCreateOverWrite = 2

echo  Dim http,ado

echo  Set http = CreateObject^("Msxml2.ServerXMLHTTP"^)

echo  http.open "GET",url,False

echo  http.send

echo  Set ado = createobject^("Adodb.Stream"^)

echo  ado.Type = adTypeBinary

echo  ado.Open

echo  ado.Write http.responseBody

echo  ado.SaveToFile target

echo  ado.Close

echo End Sub)>DownloadFile.vbs

DownloadFile.vbs "%Url%" "%Save%\%FileName%"

del DownloadFile.vbs

    前几天笔者遇到一个需求，在windows平台下使用ftp来远程获取交换机的配置文件。鉴于每一次都需要在命令行里面手动输入，过程繁琐，于是想着使用脚本来完成这个重复性的工作，实现自动化。python的ftplib库也可以解决这个问题，但是笔者未来和其他bat脚本揉在一起，直接windows平台下使用批处理bat来完成。

    ftp -s可以指定包含ftp命令的文本文件，ftp启动后这些命令将自动运行。

主批处理文件：ftp_main.bat 

ftp命令批处理文件：ftp_task.bat，文件放置于D盘下。

    除了FTP之外，date修改电脑日期，time修改电脑时间，echo ^G测试电脑声音。注意，“^G”是在命令行中使用ctrl + g输入的，可以使用echo ^G >test.txt来获取这个字符。

    最后这个脚本东凑西凑，界面如下：

---