Suchen aller im Netz vorhandenen SQL Server

[akzente]

Hallo,

wie kann ich mit Delphi eine Funktion realisieren, bei der ich ermitteln kann, welche SQL Server im Netzwerk vorhanden sind?
Zweck: Dem Benutzer die Möglichkeit geben, einen Server auszuwählen, auf dem die Datenbank installiert werden soll.
In der Hilfe zum SQL Server stehen zwar Funktionen (dbserverenum - aus der db Library for C) allerdings funktioniert das mit dem dll import nicht so recht. Geht es nicht über eine COM Schnittstelle ?

Danke

Alex

[Patrick Sack]

Hi,
<br>
<br>hier im Forum mal nach "dmo" oder "SQLDMO". Am besten passt wohl
<br><a href="/webx?13@@.ee84d51/0">Stefan Walter 2 "verzeichnisbaum erstellen, in dem nur SQL-Server angezeigt werden" 29.05.2001 16:36</a>
<br>
<br>Es gab mal vor einem Jahr einen Bericht in "der Entwickler" zu diesem Thema. Kann man ggf. noch nachbestellen.
<br>
<br>ggf. wird A.Kosch in seinem neuen "ADO" Buch auch darauf eingehen (oder?)
<br>
<br>Wichtig: das funktioniert nur mit "richtigen" Netzwerkbetriebssystemen (NT,2000) (nicht mit 95,98,...)
<br>
<br>mfg
<br>P

[Andreas Kosch]

Hallo,

&gt;ggf. wird A.Kosch in seinem neuen "ADO" Buch auch darauf eingehen (oder?)

in der Tat ist ein Beispielprojekt für diese Aufgabe auf der CDROM zum Buch, aus dem der folgende Auszug stammt:
<pre>
uses SQLDMO_TLB;

procedure TForm1.ButtonSearchClick(Sender: TObject);
resourcestring
cMsg = '%d. gefundener MS SQL Server : »%s«';
cSBMsg = '%d MS SQL Server gefunden.';
var
aMSSQLApp : _Application;
aSrvList : NameList;
i : Integer;
begin
aMSSQLApp := CoApplication.Create;
aSrvList := aMSSQLApp.ListAvailableSQLServers;
for i:= 1 to aSrvList.Count do
ListBoxMSSQL.Items.Add(Format(cMsg, [i, aSrvList.Item(i)]));
StatusBar1.SimpleText := Format(cSBMsg, [aSrvList.Count]);
aMSSQLApp := nil;
end;
</pre&gt