'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