windows下ftp自动化

iamwind

下面是用vbs实现的框架。把代码存为ftp.vbs，在计划任务开一个任务，就可以自动运行了。

dim cmd, os,fs, m,b, d,y

set os=wscript.createobject("wscript.shell"

m=month(date())
d=day(date())   
y=year(date())

daynum = weekday(date(),vbMonday)

if m < 10 then
m = "0" & m
end if
if d < 10 then
d = "0" & d
end if

set fs = wscript.CreateObject("Scripting.FileSystemObject"
set b = fs.CreateTextFile("dumpbackup.txt"

b.writeline "open 10.0.0.1"
b.writeline "emstrans"
b.writeline "emstrans"
b.writeline "cd /backup/dmp"
b.writeline "lcd e:\ftp\emsserver1"
b.writeline "prompt"
b.writeline "bin"
b.writeline "ha"
b.writeline "get emsbackup.dmp emsbackup.dmp."& daynum
b.writeline "by"
b.close

cmd="ftp -i -s:dumpbackup.txt"
os.run cmd