MS SQL Server im Netzwerk listen

[sharkx]

Hallo !

ich habe folgendes Problem:

Ich muss alle verfügbaren SQL Server im Netzwerk sowie Local auflisten. Die Procedure dier ich dafür habe, funktioniert nur dann, wenn auch Local MS SQL installed ist. Ich muss aber davon ausgehen, das es eben nicht local Installiert ist.

Delphi-Quellcode:

var  
  dmo, servers: OleVariant;  
  i: Integer;  
begin  
  dmo := CreateOleObject('SQLDMO.Application');
  servers := dmo.ListAvailableSQlServers;

  for i := 1 to servers.Count  do
    ListBox1.Items.Add.Caption := (servers.Item(i));

  servers := UnAssigned;  
  dmo := UnAssigned;

Auch an folgendes habe ich schon gedacht:

ich liste alle verfügbaren PCs im Netzwerk in eine Stringliste, und pinge den SQL Port an jedem PC an, dort wo ich Antwort bekomme, wird auch SQl sein. Jedoch kann ich den SQL port selbst festlegen, also hat nicht einen festen Port. Alle Ports zu pingen, würde ewig dauern :/