Listar servidores e bancos

Olá.

Alguem teria uma rotina que liste somente os servidores de uma rede.
E também os bancos de dados atachados a um servidor selecionado.

Algo como a tela de conexão do ADOConnection.

Valeu.