Altura e largura da Imagem usando FSO

Ola,

Utilizo o seguinte código para mostrar todas as imagens que tenho em um diretório.

<%

nome_pasta = Server.MapPath(".") & "\images\galeria"

Set Fso = Server.CreateObject ("Scripting.FileSystemObject")

Set arquivo = Fso.GetFolder(nome_pasta)

Set arquivos = arquivo.files

For Each a in arquivos

 Response.Write "<img src='images/galeria/" & a.name & "'><br>"

 

 Next

 

 Set arquivos = nothing

 Set arquivo = nothing

 Set Fso = nothing

 %>

 

 o código funciona bem e quero a partir dele criar um album simples, colocando elas dentro de uma tabela, entretanto, as imagens são de tamanhos diferentes, gostaria de ajuda para poder pegar o tamanho das imagens para poder altera-los dentro da tag img para um tamanho padrão, o mesmo tamanho para todas as imagens.

alguem poderia me ajudar.

Obrigado.