Option Explicit
Dim objShell, strCommand, strBackupFile, strDBUser, strDBPassword, strDBName
' 设置数据库连接信息
strDBUser = "your_username"
strDBPassword = "your_password"
strDBName = "your_database_name"
' 设置备份文件路径和名称
strBackupFile = "C:backupmysql_backup.sql"
' 构建命令行字符串
strCommand = "mysqldump u" & strDBUser & " p" & strDBPassword & " " & strDBName & " > " & strBackupFile
' 创建WScript.Shell对象
Set objShell = CreateObject("WScript.Shell")
' 执行命令行备份操作
objShell.Run strCommand, 0, True
' 释放对象资源
Set objShell = Nothing
' 显示完成消息
WScript.Echo "数据库备份完成！"

请将上述代码中的your_username、your_password和your_database_name替换为您的实际MySQL数据库用户名、密码和数据库名称，确保您已经安装了MySQL客户端工具，并将其添加到系统的PATH环境变量中。

| 代码部分 | 说明 |

| | |

| “`vbscript

Set objShell = CreateObject("WScript.Shell")

objShell.Run "mysqldump u root p alldatabases > backup.sql", 0, True

| 这段代码首先创建一个WScript.Shell 对象，然后使用该对象调用Run 方法来执行mysqldump 命令。mysqldump 是一个用于备份数据库的MySQL命令行工具，这里假设数据库用户名为root，密码在执行时由用户输入，备份的数据将保存到当前目录下的backup.sql 文件中。 |
| ```vbscript
Dim password
WScript.Echo "Enter MySQL root password:"
password = WScript.InputBox("Password", "MySQL Backup", "",, 20, 20)
objShell.Run "mysqldump u root p" & password & " alldatabases > backup.sql", 0, True

| 这段代码添加了一个输入框，提示用户输入MySQL的root密码，将用户输入的密码与mysqldump 命令结合，再次执行备份命令。 |

| “`vbscript

Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists("backup.sql") Then

WScript.Echo "Backup completed successfully."

Else

WScript.Echo "Backup failed."

End If

| 这段代码检查备份文件backup.sql 是否存在，如果存在，则输出备份成功的信息；如果不存在，则输出备份失败的信息。 |
| ```vbscript
Set objShell = CreateObject("WScript.Shell")
objShell.Run "mysqldump u root p alldatabases > backup.sql", 0, True
WScript.Sleep 5000 ' Wait for 5 seconds
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("backup.sql") Then
    WScript.Echo "Backup completed successfully."
Else
    WScript.Echo "Backup failed."
End If

| 这段代码在执行备份命令后等待5秒钟，然后再次检查备份文件是否存在，这样做可以确保备份操作已经完成。 |