如何实现每隔30秒循环收集innodb状态信息的VB脚本

set a=createobject("wscript.shell")
Dim Count:Count = 0
For i = 1 To 10
a.run "cmd.exe /c C:\mysql-5.5.24-win32\bin\mysql -h 10.72.18.150 -u root -p12345 -e ""SHOW ENGINE INNODB STATUS\G"" >> c:\olm\innodb_status2.txt "

Wscript.Sleep 30000
Count = Count + 1
Next
MsgBox Count