exestring = "c:\mysql\bin\mysqldump.exe --all-databases -u <YOURUSERNAMEHERE> --password=<YOURPWDHERE> -r E:\Backup\MySQL\mysql-backup_" & GetDate() & ".sql"
ExecuteString exestring 

'''''''''''''''''''''''''''''''''''''''''''''''''''
'ExecuteString: Runs passed string in command shell
'''''''''''''''''''''''''''''''''''''''''''''''''''
public sub ExecuteString(exestring)
	set app = WScript.CreateObject("WScript.Shell")

	'WriteDebug ".\debug.txt", exestring 
	'app.popup exestring

	app.run exestring, 1, true
end sub
''''''''''''''''''''''''''''''''''''''''''''''
'/end
''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''
'Debug: Write passed info to file
''''''''''''''''''''''''''''''''''''''''''''''
public sub WriteDebug(lstrFile, lstrTxt)
	Const ForReading = 1, ForWriting = 2
	Dim fso, f
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.OpenTextFile(lstrFile, ForWriting, true)
	f.WriteLine lstrTxt
end sub
''''''''''''''''''''''''''''''''''''''''''''''
'/end
''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''
'GetDate: Returns the date in yyyy/mm/dd format
'''''''''''''''''''''''''''''''''''''''''''''''
public function GetDate()
	'Get the date
	thedate = datepart("yyyy", now)

	'Fill in single month digits with a 0
	If len(datepart("m", now)) = 1 Then
		thedate = thedate & "0" & datepart("m", now)
	else
		thedate = thedate & datepart("m", now)
	End if
	
	'Fill in single date digits with a 0
	If len(datepart("d", now)) = 1 Then
		thedate = thedate & "0" & datepart("d", now)
	else
		thedate = thedate & datepart("d", now)
	End if

	GetDate = thedate
end function 
''''''''''''''''''''''''''''''''''''''''''''''
'/end
''''''''''''''''''''''''''''''''''''''''''''''