[oscarnoe]

He encontrado este codigo, prueba a ver si te vale:

Código Delphi [-]
uses ComObj, Variants;     

// ==================================================== 
// Load SQL Servers on a Network into a string list 
// ==================================================== 

function EnumSqlServers(AStrings : TStrings) : boolean; 
var 
    oDmo,oApp,oServers : OleVariant; 
    bResult : boolean; 
    i : integer; 
begin 
  AStrings.Clear; 

  try 
    oDMO := CreateOleObject('SQLDMO.SQLServer'); 
    oApp := oDMO.Application; 
    oServers := oApp.ListAvailableSQLServers; 

    try 
      AStrings.BeginUpdate; 
      for i := 1 to oServers.Count do 
        AStrings.Add(oServers.Item(i)); 
    finally 
      AStrings.EndUpdate; 
    end; 

    bResult := true; 
  except 
    bResult := false; 
  end; 

  oServers := Unassigned; 
  oApp := Unassigned; 
  oDMO := Unassigned; 

  Result := bResult; 
end;

Espero que te sea de ayuda.

Oscar Noe