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 :/