局域网文件自动备份 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",8,True)

'==== 判定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","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&"   备份失败! "&date&" "&time)
else
txtfile.writeline("---  "&ip&"   备份成功! "&date&" "&time&"--- OK!")
end if

else
txtfile.writeline("---  "&ip&"   网络不通! "&date&" "&time)
end if


set fso=nothing
set net=nothing

num=num+1
loop

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

这里备份的文件是barcodeprinter.mdb这个数据库文件,大家可以根据自己的实际情况进行代码修改