Fórum Alguem tem a material da dica Nº20, da Edição 60 do clubedel #281852

Vai o código ae da Revista, a dica nro 20: Listando todos os computadores que estão rodando Interbase, Firebird

GetServerNames(Listbox1.Items, Edit1.Text, SV_TYPE_ALL );
for i:= 0 to pred(ListBox1.Itens.Count) do
begin
if ServerIsRunning(ListBox1.Items[i],3050) then
ListBox2.Items.Add(ListBox1.Items[i]);
end;

OBS: ListBox1 mostra todos os computadores do dominio (ServerIsRunning)
ListBox2 mostra todos os compatadores que estão rodando o servidor IB/FB (GetServerName).

Espero te ajudado!