Ist ein MS-SQL-Server im Netz?

[Bernhard Geyer]

Zitat von clues1:

Hier, ein Auszug aus meinen EDB Komponenten:
PS: funktioniert auch unter Delphi Personal.

Code:

procedure GetMSSQLServerlist(var SL: TStrings);
var DMOApp, SrvLst: Variant;
            i: Integer;
begin
  SL.Clear;
  DMOApp := CreateOleObject( 'SQLDMO.Application' );
  SrvLst := DMOApp.ListAvailableSQLServers;

  for i := 1 to SrvLst.Count do
    SL.Add( SrvLst.Item(i) );
end;

Scheidert aber mit jeder vernünftigen Firewall (Auch mit der XP-Eingebauten), da hier über Ports gegangen wird, die defaultmäßig gesperrt sind