Liste aller SQL Server im Netz erstellen

[Centrii]

vielleicht hilft dir das weiter

Delphi-Quellcode:

procedure TfSettings.ComBDBServernameEnter(Sender: TObject);
var DMOApp, SrvList: OleVariant;
    i              : Integer;
begin
  Screen.Cursor := crhourglass;
  Application.ProcessMessages;
  try
    ComBDBServername.clear;
    DMOApp := CreateOleObject('SQLDMO.Application');
    SrvList := DMOApp.ListAvailableSQLServers;
    for i:=1 to SrvList.count  do
    begin
      ComBDBServername.AddItem(varToStr(Srvlist.item(i)),nil);
    end;
    FreeAndNil(DMOApp);
    FreeAndNil(SrvList);
  except
    Screen.Cursor := crdefault;
    Application.ProcessMessages;
  end;
  Screen.Cursor := crdefault;
  Application.ProcessMessages;
end;

so mach ich es in einem Program von mir...