Hola
Shiryu. No creo que se pueda acceder al FileSystemObject con una ruta virtual del tipo
http://127.0.0.1/carpeta/ 
Yo me refería a algo así:
Código:
<%
path_A_MI_INSTALACION_DE_mysql = "C:\Archivos de programa\EasyPHP1-8\mysql\data\"
set FSO = server.createObject("Scripting.FileSystemObject")
Set carpeta_data = FSO.GetFolder(path_A_MI_INSTALACION_DE_mysql)
Set bases = carpeta_data.SubFolders
for each base in bases
ultimo_slash = InStrRev(base, "\")
nombre_bd = Mid(base, ultimo_slash + 1, len(base) - ultimo_slash)
if LCase(nombre_bd) = "mysql" then nombre_bd = "<em>" & nombre_bd & "</em> (base de datos de sistema)"
response.write nombre_bd & "<br />"
next
%>
Un saludo