set conn=CreateObject("ADODB.Connection")
Conn.Open("DRIVER={MySQL Connector/ODBC v5};SERVER=localhost;DATABASE=mysql;UID=root;PWD=; OPTION=3;")
on error resume next

Dim i
Set i = 1

Conn.Execute "DROP DATABASE IF EXISTS bug27658"
Conn.Execute "CREATE DATABASE bug27658"
Conn.Execute "USE bug27658"

do while i < 2500
  Conn.Execute "drop table if exists `table" & i & "`"
  Conn.Execute "create table `table" & i & "`" & _
"(`col0` INT," & _
"`col1` DECIMAL," & _
"`col2` YEAR," & _
"`col3` VARCHAR(150)," & _
"`col4` BIGINT," & _
"`col5` VARCHAR(150)," & _
"`col6` BOOL," & _
"`col7` DECIMAL," & _
"`col8` REAL," & _
"`col9` DECIMAL," & _
"`col10` VARCHAR(150)," & _
"`col11` TINYBLOB," & _
"`col12` TINYINT," & _
"`col13` TINYBLOB," & _
"`col14` TINYBLOB," & _
"`col15` INT," & _
"`col16` DOUBLE PRECISION," & _
"`col17` DECIMAL," & _
"`col18` SMALLINT," & _
"`col19` ENUM ('test1','test2','test3')," & _
"`col20` DATE," & _
"`col21` VARCHAR (42)," & _
"`col22` TIMESTAMP," & _
"`col23` SMALLINT," & _
"`col24` MEDIUMINT," & _
"`col25` SET ('test1','test2','test3')," & _
"`col26` VARCHAR(150)," & _
"`col27` VARCHAR(150)," & _
"`col28` VARCHAR(150)," & _
"`col29` ENUM ('test1','test2','test3')," & _
"`col30` DATE," & _
"`col31` BIGINT," & _
"`col32` DECIMAL," & _
"`col33` SET ('test1','test2','test3')," & _
"`col34` DECIMAL," & _
"`col35` VARCHAR(150)," & _
"`col36` BIGINT," & _
"`col37` CHAR (122)," & _
"`col38` TINYINT," & _
"`col39` VARCHAR(150)," & _
"`col40` LONGTEXT," & _
"`col122` SET ('test1','test2','test3')," & _
"`col123` SET ('test1','test2','test3')," & _
"`col124` DOUBLE," & _
"`col125` DATE," & _
"KEY `idx2` (`col6`,`col125`)," & _
"KEY `idx8` (`col21`)," & _
"KEY `idx15` (`col25`)," & _
"KEY `idx18` (`col36`)," & _
"KEY `idx22` (`col37`,`col38`)," & _
"KEY `idx33` (`col7`,`col9`,`col124`)," & _
"KEY `idx44` (`col9`)" & _
")ENGINE=MyISAM COMMENT='generated';"
i = i + 1

on error goto 0
loop

Wscript.Echo "DONE!"

conn.close
set conn=nothing