- 浏览: 16692 次
最新评论
CuteFTP上传脚本(VBS)
- 博客分类:
- 技术杂绘
CuteFTP上传脚本(VBS)
2010年08月13日
Option Explicit ' 强制显式声明变量。
'************************************************* *******************
'* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'* CuteFTP Pro Script
'* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'*
'* 作者:张博
'*
'CuteFTP脚本(VBScript),上传到多个服务器
'必须首先安装CuteFTP软件的较新版本(早期版本存在严重BUG,6.0版没有问题)
'运行脚本时可能需要首先关闭CuteFTP窗口(某些版本有此问题)
'需要配置的内容:
'变量appname 应用的名字,脚本执行过程中会显示
'变量LocalDir 用作中转的本地绝对路径,若不存在会自动创建
'数组RemoteInfo 目标服务器的信息,包括域名(IP)、用户、口令、基本路径
'对象MySite MySite2 的各项属性,连接源FTP和目标FTP的CuteFTP对象,需要配置站点域名或IP、用户名、口令
'数组JobInfo 要传输的文件的相对路径和文件名
' 相对路径可以为""或多级目录"dir1/dir2"
' 文件名可以带通配符,带通配符可能会连子目录一起操作,UNIX机要区分大小写
'执行时第一次提示任务名称,第二次提示要执行的任务(此时可以取消任务),确定后实际执行任务,最后提示任务完成
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''
'通用函数
'改变本地工作路径
Function lChangeDir(varTE,vardir)
If ""=vardir Then Exit Function
If (Not (varTE.LocalExists(vardir))) Then
varTE.CreateLocalFolder vardir
End If
varTE.LocalFolder = vardir
End Function
'改变远程工作路径
Function rChangeDir(varTE,vardir)
Dim b
If ""=vardir Then Exit Function
b = varTE.RemoteExists(vardir)
If (Not Cbool(b)) Then
varTE.CreateRemoteFolder vardir
End If
varTE.RemoteFolder = vardir
End Function
'同时改变本地和远程工作路径
Function lrChangeDir(varTE,lbasedir,rbasedir,lrdir)
lChangeDir varTE , lbasedir
lChangeDir varTE , lrdir
'varTE.RemoteCommand "CD"
rChangeDir varTE , rbasedir
rChangeDir varTE , lrdir
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''
'属于特定应用的函数
Function AddRemoteInfo(infoarray,host,login,pass,basedir)
if infoarray(0,0) >= UBound(infoarray) then
MsgBox "AddRemoteInfo : array fulled"
Quit 1
End If
infoarray(0,0) = infoarray(0,0) + 1
infoarray(infoarray(0,0),0)=host
infoarray(infoarray(0,0),1)=login
infoarray(infoarray(0,0),2)=pass
infoarray(infoarray(0,0),3)=basedir
End Function
Function AddJobInfo(infoarray,reldir,file)
if infoarray(0,0) >= UBound(infoarray) then
MsgBox "AddRemoteInfo : array fulled"
Quit 1
End If
infoarray(0,0) = infoarray(0,0) + 1
infoarray(infoarray(0,0),0)=reldir
infoarray(infoarray(0,0),1)=file
End Function
Function InitTEObj(teobj,infoarray,i)
teobj.Protocol = "FTP"
teobj.Host = infoarray(i,0)
teobj.Login = infoarray(i,1)
teobj.Password = infoarray(i,2)
teobj.UseProxy = "OFF"
teobj.MaxConnections = 5
teobj.TransferType = "ASCII"
End Function
Dim appname '应用名称
Dim report '报告
Dim i,j '通用循环变量
appname = "省集中 文件发布"
report = ""
MsgBox "CuteFTP pro VBS 脚本 启动 - " & appname
Dim MySite 'FTP站点
Dim LocalDir '本地基本路径 必须是绝对路径
'创建CuteFtp 对象
Set MySite = CreateObject("CuteFTPPro.TEConnection")
'下标0用于记录有效数据的个数
Dim RemoteInfo(100,3) '数组下标基于0并且定义的是最大下标,因此可用的为(0-100,0-3)
'第二维依次为主机名、登录名、口令、基础路径,不使用第一维的0
Dim JobInfo(100,1) '不使用第一维的0,第二维依次为相对路径、文件名
RemoteInfo(0,0)=0
JobInfo(0,0)=0
'本地基本路径
LocalDir="本地根目录" '必须是绝对路径
'站点信息,只能添加一个远程站点,添加多个未经测试
AddRemoteInfo RemoteInfo,"ip地址","用户名","密码","远程根目录"
'任务信息
'AddJobInfo JobInfo,"相对路径","文件名,可带通配符,递归的"
'AddJobInfo JobInfo,"相对路径","文件名,可带通配符"
'AddJobInfo JobInfo,"相对路径","文件名,可带通配符"
'AddJobInfo JobInfo,"相对路径","文件名,可带通配符"
report = "即将执行下列任务:" & Chr(13) & Chr(10)
For i=1 To JobInfo(0,0)
report = report & Chr(13) & Chr(10) & JobInfo(i,0) & " - " & JobInfo(i,1)
Next
report = report & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "本地路径: " & Chr(13) & Chr(10) & LocalDir
report = report & Chr(13) & Chr(10) & "目的: "
For i=1 To RemoteInfo(0,0)
report = report & Chr(13) & Chr(10) & RemoteInfo(i,0) & ":" & RemoteInfo(i,3)
Next
If vbCancel = MsgBox(report,vbOKCancel) Then
Quit 1
End If
report = ""
For i=1 To RemoteInfo(0,0)
InitTEObj MySite,RemoteInfo,i
'连接到站点
MySite.Connect
If (Not Cbool(MySite.IsConnected)) Then
MsgBox "Could not connect to: " & MySite.Host & " Aborting!" &MySite.ErrorDescription
Quit(1)
End If
For j=1 To JobInfo(0,0)
lrChangeDir MySite,LocalDir,RemoteInfo(i,3),JobInfo(j,0)
MySite.Upload JobInfo(j,1)
Next
'关闭连接
MySite.Close
report = report & Chr(13) & Chr(10) & RemoteInfo(i,0)
Next
MsgBox "CuteFTP pro VBS 脚本 结束 - " & appname & Chr(13) & Chr(10) & report
发表评论
-
JS/VBS配合Adodb.Stream处理字节数据/输出二进制文件
2012-01-20 01:32 1520JS/VBS配合Adodb.Stream处理 ... -
用Wscript的Arguments属性实现vbs的命令行参数形式启动
2012-01-20 01:31 1753用Wscript的Arguments属性实现vbs的命令行参数 ... -
VBS--自动定时截图工具
2012-01-20 01:31 1234VBS--自动定时截图工具 2010年09月01日 一、 ... -
使用 Iisftp.vbs 创建 FTP 站点
2012-01-20 01:31 861使用 Iisftp.vbs 创建 FTP ... -
中文输入,虚拟键盘,安装完成
2012-01-19 09:22 946中文输入,虚拟键盘,安 ... -
碎碎念??中国萌化史1
2012-01-19 09:21 746碎碎念??中国萌化史1 2011年02月15日 本段时间 ... -
Subversion Tools(几种Subversion工具的安装使用)
2012-01-19 09:21 557Subversion Tools(几种Subversion工具 ... -
ubuntu装机
2012-01-19 09:21 670ubuntu装机 2011年06月20日 ... -
网络和黑客windows编程
2012-01-17 01:56 607网络和黑客windows编程 2011年04月18日 第 ... -
转: Boost下载安装编译配置使用指南(含Windows和Linux)
2012-01-17 01:56 616转: Boost下载安装编译配 ... -
Qt 学习笔记 --Qt SDK 的下载安装与配置
2012-01-17 01:56 980Qt 学习笔记 --Qt SDK 的下 ... -
Windows下NDK开发环境的搭建(Cygwin+Android-SDK+NDK)
2012-01-17 01:56 927Windows下NDK开发环境的搭 ... -
为什么.dll文件不能用记事本打开?我想看看它是怎么写的。怎么办
2012-01-17 01:56 1249为什么.dll文件不能用记事本打开?我想看看它是怎么写的。怎么 ... -
Adobe Flex:最近的一系列事件是否会影响到其在企业中的应用?
2012-01-15 21:03 694Adobe Flex:最近的一系列 ... -
Flex Flash 的优秀RIA应用
2012-01-15 21:03 593Flex Flash 的优秀RIA应用 2009年10月28 ... -
使用Flex和PHP打造属于自己的优酷网站
2012-01-15 21:03 679使用Flex和PHP打造属于自 ... -
RIA大讲堂- Flex基础培训(免费)
2012-01-15 21:03 522RIA大讲堂- Flex基础培训(免费) 2009年06月0 ... -
ArcGIS Server for Flex 资源收集
2012-01-15 21:03 909ArcGIS Server for Flex 资源 ...
相关推荐
CuteFTP上传网站必备|CuteFTPCuteFTP上传网站必备|CuteFTPCuteFTP上传网站必备|CuteFTPCuteFTP上传网站必备|CuteFTPCuteFTP上传网站必备|CuteFTPCuteFTP上传网站必备|CuteFTPCuteFTP上传网站必备|CuteFTP
该文件为flash文件,演示如何使用cuteFTP上传和下载文件,简单易懂!
cuteftp-FTP 上传 下载工具 支持断点继传
网站上传软件CuteFTP8 网站上传软件CuteFTP8 网站上传软件CuteFTP8 网站上传软件CuteFTP8
CuteFTP XP5.0.2 序列号(破解版) 是我使用了多年的一款很牛的网站上传软件。CuteFTP XP5.0.2 序列号(破解版)软件已经内置官方正版注册文件,能通过官方网站验证。绿色软件,无需安装,解压缩后即可使用。没有...
最好用的网站上传工具,速度快,绿色纯净版
CuteFTP上传工具v8绿色 破解
与CuteFTP相媲美 1.使用异步socket连接,异步解析主机名; 2.支持多文件、多级目录/子目录的上传/下载; 3.文件的删除、重命名、修改属性......等等; 4.用户的修改密码.......等等; 5.断点上传/下载; 6.支持托放...
CuteFTP XP5.0.2 序列号(破解版) 是我使用了多年的一款很牛的网站上传软件。CuteFTP XP5.0.2 序列号(破解版)软件已经内置官方正版注册文件,能通过官方网站验证。绿色软件,无需安装,解压缩后即可使用。没有...
CuteFTP8 好用的ftp上传下载工具
网站上传工具cuteFTP网站上传工具cuteFTP网站上传工具cuteFTP网站上传工具cuteFTP网站上传工具cuteFTP网站上传工具cuteFTP
很好用的哦 很好用的上传软件哦 呵呵!!!!!!!
特借此处收藏,方便自已以后下载,同时也向需要使用CuteFTP上传下载网站的朋友推荐! 软件说明: cuteftp XP5.0.2 是最好的FTP客户端程序,下载文件支持续传、可下载或上传整个目录、具有不会因闲置过久而被主机踢...
cuteftp5.0.1 FTP上传下载
特借此处收藏,方便自已以后下载,同时也向需要使用CuteFTP上传下载网站的朋友推荐! 软件说明: cuteftp XP5.0.2 是最好的FTP客户端程序,下载文件支持续传、可下载或上传整个目录、具有不会因闲置过久而被主机踢...
CuteFTP 8 Professional"序列号
简单易用速度快的FTP上传工具,可以创建不同的网站基站,一键进入,方便同时管理N个网站
CuteFTP 文件上传,支持WIN7 64位
如果你是CuteFTP老版本的用户,你会发现很多有用的新特色,如目录比较,目录上传和下载,远端文件编辑,以及IE风格的工具条,可让你编列顺序一次下载或上传同一站台中不同目录下的文件。 CuteFTP Pro 9.0.5 与杰出...
cuteftp上传工具