Fórum Listar todos os servidores de BD na rede #298053

procedure...
var
  Hosts: Array of String;
  Ports: Array[0..2] of Integer;
  I, J: Integer;
begin
  // Aqui depende da sua lista de máquinas... vc pode medir o compri-
  // mento da lista para setar o comprimento do array e utilizar um 
  // "FOR" p/ preencher os hosts de acordo com a sua lista.
  SetLength(Hosts, 2);
  Hosts[0] := ´localhost´;
  Hosts[1] := ´VDO´;

  // As portas que vc quer procurar.
  Ports[0] := 1433; // SQL Server
  Ports[1] := 3050; // Interbase/Firebird
  Ports[2] := 3306; // MySQL

  // O scanner
  for I := 0 to Length(Hosts) - 1 do
  begin
    idTCPClient1.Host := Hosts[I];
    for J := 0 to (Length(Ports) - 1) do
    begin
      idTCPClient1.Port := Ports[J];
      try
        idTCPClient1.Connect;
      except
      end;
      if idTCPClient1.Connected then
      begin
        ListBox1.Items.Add(´OK para a porta ´ + IntToStr(Ports[J]) + ´ em ´ + Hosts[I]);
        idTCPClient1.Disconnect;
      end;
    end;
  end;
end;