Vbscript通过网络备份数据库

上篇 写到，数据库备份需要转到其他的服务器上才能更令人放心，

今天用vbscript写了一小段脚本，配合计划任务，

每天定时将 134数据库服务器上的数据库全备份copy到132服务器上。

1 on error resume next
2 dim fsoLog, logFile
3 set fsoLog = createObject("Scripting.FileSystemObject")
4 set logFile = fsoLog.openTextFile("D:\backup\dbFileCopy.log", 8, true)
5 Logfile.writeLine "---------------------------------------------------"
6 logFile.writeLine now() & " start"
7
8 dim nowdate
9 nowdate=formatDate(now())
dim dbFileName
dbFileName= nowdate & "000000_full.bak"
dim objNetwork
Set objNetwork = CreateObject("Wscript.Network")
'下面这一句代码的意思是将 192.168.22.132\D$这个网络共享映射到本地的X盘，administrator 是用户名，123456是密码
objNetwork.MapNetworkDrive "X:", "\\192.168.22.132\d$", False, "administrator", "123456"
If err.number <> 0 then
Logfile.writeline err.description
Logfile.writeline err.number
Else

Logfile.writeline "d:\backup\" & dbFileName

Dim oFSO
Set oFSO = CreateObject("scripting.FileSystemObject")
oFSO.CopyFile "d:\backup\" & dbFileName, "x:\dbFile_134.bak" '开始拷贝操作

If err.number <> 0 then
Logfile.writeline strCommand
Logfile.writeline err.description
Logfile.writeline err.number
End If
End if

objNetwork.RemoveNetworkDrive "X:" '完成之后，断开网络驱动器的映射

logFile.writeLine now() & " files copied"

Wscript.Quit

function formatDate(date1)
dim y,d,m
dim ret
y=year(date1)
m=month(date1)
d=day(date1)
if m<10 then
m="0" & m
end if
if d<10 then
d="0" & d
end if

ret=y & m & d
formatDate = ret end function