Delphi - Script copia seguridad BD MySQL

He hecho un Script para que cada dia Windows me haga una copia de seguridad automaticamente de una base de datos MySQL lo cual automatizo a traves del componente de Windows Tareas Programadas.Copiadlo a un fichero de texto y guardadlo con la extension ".wsf" Por si a alguien le interesa ahi va

<job id="backup">
<script language="VBScript">

Option Explicit

Dim sBD 'As String
Dim sUsuario 'As String
Dim sClave 'As String
Dim sSalida 'As String
Dim sAno 'As String
Dim sMes 'As String
Dim sDia 'As String
Dim sFecha 'As String
Dim sRuta 'As String

Dim oArgs 'As WScript.Arguments
Set oArgs = WScript.Arguments

sBD ="misclientes"
sUsuario ="root"
sClave ="Clave"
sSalida ="d:\MySQL_Backup\"
sFecha =Date -1
sAno =DatePart("yyyy",sFecha)
sMes =DatePart("m",sFecha)
sDia =DatePart("d",sFecha)

If (Len(sMes) =1) Then
sMes = "0" & sMes
End if

sFecha = sAno & "-" & sMes & "-" & sDia
sRuta = "c:\Archivos de Programa\MySQL\MySQL Server 4.1\bin\"

Dim sh 'As WScript.Shell
set sh = WScript.CreateObject("WScript.Shell")

sh.Run "cmd /C """ & sRuta & _
"mysqldump.exe"" " & _
"--add-drop-table " & _
"--lock-tables " & _
"--databases " & _
"--user=" & sUsuario & " " & _
"--password=" & sClave & " " & _
sBD & " >" & _
sSalida & sFecha & "_" & sBD & ".sql"

</script>
</job>

Suerte