Salut, est ce que quelqu'un aurait un script simple qui permet de visualiser les tables d'une base de données. Un manager le plus depuillé possible?

Set conSQL = Server.CreateObject("ADODB.connection" )
conSQL.open Application("[BASE DE DONNEES" )
 
set schemaSQL = conSQL.OpenSchema(20)
'tant qu'il y a des tables...
Do while not schemaSQL.eof
  If schemaSQL("table_type" )="TABLE" then
    'on affiche leur nom
    response.write ("<br>"&schemaSQL("table_name" ))
  End If
  'on passe à la table suivante
  schemaSQL.MoveNext
Loop
schemaSQL.close
schemaSQL = nothing