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