1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| 'MySQL Database Backup script under MS Windows
Dim str_DBNames,mysqlpath,backuppath
str_DBNames=WScript.Arguments.Named.Item("db")
mysqlpath=WScript.Arguments.Named.Item("mysql_bin")
backuppath=WScript.Arguments.Named.Item("backupdir")
Dim db
db = Split(str_DBNames, ",", -1, 1)
IF UBOUND(db)>0 THEN
Dim fName,tNow
tNow = Now()
'Backup file name XXXX_YYYYMMDDHHMMSS.sql
fName = Year(tNow) & FormatNumber(Month(tNow)/100,2,false) & FormatNumber(Day(tNow)/100,2,false) & FormatDateTime(tNow,3)
fName = Replace(Replace(fName,".",""),":","")
Dim WshShell,i,cmd
Set WshShell = CreateObject("Wscript.Shell")
For i=0 To Ubound(db)
cmd="%ComSpec% /q /c " & mysqlpath & "\mysqldump.exe --opt -u root " & db(i) & " >" & backuppath & "\" & db(i) & "_" & fName & ".sql"
WshShell.Run cmd,0,true
Next
Set WshShell = Nothing
END IF |