您的当前位置:首页正文

局域网文件自动备份 VBS 脚本

2020-07-01 来源:客趣旅游网


局域网文件自动备份 VBS 脚本

' =============== 局域网文件自动备份 VBS 脚本 =================

'

' 条件:10.97.1.X 开用户xcopy/xcopy 属于adminstrator

' 共享BACKUP 文件所在目录,使xcopy 用户完全控制!

' 运行后在管理进程中有2个进程:wscript.exe,ping.exe

' 以日期为log文件名称,只保留7天的日志

'

'

=============================================================

Do While True

dim f,txtfile

Set f = CreateObject(\"Scripting.FileSystemObject\")

set txtfile =

f.opentextfile(\"D:\\web\\barcodeprinter\\BACKUP\\\"&date&\".txt\

'==== 判定7天前的log 文件是否存在,存在则删除!

If f.FileExists(\"D:\\web\\barcodeprinter\\BACKUP\\\"&date-5&\".txt\") Then

f.DeleteFile(\"D:\\web\\barcodeprinter\\BACKUP\\\"&date-5&\".txt\")

end if

'====

txtfile.writeline(\"========= 实时备份开始: \"&date&\" \"&time&\"==========\")

txtfile.writeline(\" \")

Call backupfile(f,txtfile)

WScript.Sleep 10000

txtfile.writeline(\"========= 实时备份结束: \"&date&\" \"&time&\"==========\")

txtfile.writeline(\"\")

set f =nothing

set txtfile=nothing

Loop

'------------------------------------ 实时备份过程 -----------------------------------

sub backupfile(f,txtfile)

Dim Path,fso,net

num=1

do while num<10

if num=1 then

ip=\"10.97.1.3\"&num

source_path=\"\\\\\"&ip&\"\\产品数码跟踪\"

target_path=\"BACKUP\\barcodeprinter31.mdb\"

end if

if num=2 then

ip=\"10.97.1.3\"&num

source_path=\"\\\\\"&ip&\"\\产品数码跟踪\"

target_path=\"BACKUP\\barcodeprinter32.mdb\"

end if

if num=3 then

ip=\"10.97.1.3\"&num

source_path=\"\\\\\"&ip&\"\\产品数码跟踪\"

target_path=\"BACKUP\\barcodeprinter33.mdb\"

end if

if num=4 then

ip=\"10.97.1.3\"&num

source_path=\"\\\\\"&ip&\"\\产品数码跟踪\"

target_path=\"BACKUP\\barcodeprinter34.mdb\"

end if

if num=5 then

ip=\"10.97.1.3\"&num

source_path=\"\\\\\"&ip&\"\\qjcf_no1\"

target_path=\"BACKUP\\barcodeprinter35.mdb\"

end if

if num=6 then

ip=\"10.97.1.3\"&num

source_path=\"\\\\\"&ip&\"\\产品数码跟踪(BarCodePrinter)\"

target_path=\"BACKUP\\barcodeprinter36.mdb\"

end if

if num=7 then

ip=\"10.97.1.3\"&num

source_path=\"\\\\\"&ip&\"\\产品数码跟踪(BarCodePrinter)\"

target_path=\"BACKUP\\barcodeprinter37.mdb\"

end if

if num=8 then

ip=\"10.97.1.3\"&num

source_path=\"\\\\\"&ip&\"\\产品数码跟踪\"

target_path=\"BACKUP\\barcodeprinter38.mdb\"

end if

if num=9 then

ip=\"10.97.1.3\"&num

source_path=\"\\\\\"&ip&\"\\产品数码跟踪(BarCodePrinter)\"

target_path=\"BACKUP\\barcodeprinter39.mdb\"

end if

'

ip=\"10.97.1.3\"&num

source_path=\"\\\\\"&ip&\"\\产品数码跟踪\"

target_path=\"D:\\WEB\\barcodeprinter\\BACKUP\\barcodeprinter3\"&num&\".mdb\"

'------------ ping 测试,网络通ping=\"T\"; -------------------

Set FileSys = CreateObject(\"Scripting.FileSystemObject\")

Set WShShell = CreateObject(\"WScript.Shell\")

RetCode = WShShell.Run(\"ping \" &IP , 0, True )

if RetCode = 0 Then ' ping 测试通过

ping=\"T\"

else

ping=\"F\"

end if

set filesys = nothing

set wshshell = nothing

'------------ ping 结束 ------------------------------------

if ping=\"T\" then

On Error Resume Next '出错不显示,执行下一条

Path=\"X:\"

Set fso = CreateObject(\"Scripting.FileSystemObject\")

Set net = CreateObject(\"WScript.Network\")

If Not fso.DriveExists(fso.GetDriveName(Path)) Then

net.MapNetworkDrive Path,source_path,False,\"xcopy\

End If

Set file = fso.GetFile(Path&\"\\barcodeprinter.mdb\")

file.Copy(target_path)

net.RemoveNetworkDrive Path,True

If Err.Number<>0 Then

txtfile.writeline(\"--- \"&ip&\" else

txtfile.writeline(\"--- \"&ip&\" end if

else

txtfile.writeline(\"--- \"&ip&\" end if

set fso=nothing

set net=nothing

num=num+1

备份失败! \"&date&\" \"&time)

备份成功! \"&date&\" \"&time&\"--- OK!\")

网络不通! \"&date&\" \"&time)

loop

end sub

因篇幅问题不能全部显示,请点此查看更多更全内容