用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来获取这个字符。

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

1. ftp.tmp 是用命令产生的一个ftp命令文本，轿返这个文本在运行ftp命令之后会自动运行。

ftp.tmp 的内容是

open 192.168.10.10

bak

bak

mget * （团帆迟这句就是下载所有文件）

bye

2. 要达到你上传d:/1.txt，把批处理内容改为

@echo off

@echo xp的任务开始le...................

echo open 192.168.10.10>>ftp.tmp

echo bak>>ftp.tmp

echo bak>>ftp.tmp

echo put d:/1.txt>>ftp.tmp

echo bye>塌李>ftp.tmp

ftp -i -s:ftp.tmp

del ftp.tmp

@echo 搞定收工。

@echo on

还有问题Q 7841983

---