Liste aller SQL Server im Netz erstellen

[ToFaceTeKilla]

Hiho,

wie im Titel bereits erwähnt, möchte ich eine Liste aller laufenden SQL Server (es sind ausschließlich MS SQL Server) erstellen. Nun hab ich via Google schon rausgefunden, dass das .Net-Framework 2.0 die Klasse SqlDataSourceEnumerator mitbringt. Allerdings beziehen sich alle Beispiele immer nur auf VBA. Wie kann ich aus Delphi raus darauf zugreifen?

Danke schonmal

[Bernhard Geyer]

Im Entwickler-Forum gibt es beispiele fer NetServerEnum, SQLDMO und ODBC-API

[ToFaceTeKilla]

Danke dir, das werd ich mir mal angucken. :thumb:

[XiaN]

Wenn du es nicht 100% genau brauchst, dann hilft dir evtl. der Schnipsel hier :

Delphi-Quellcode:

function TSubnet.Ping(IP, Port: string): string;
var
  CurrentPC: TIdTCPClient;

begin

  Result := 'Online';

  CurrentPC := TIdTCPClient.Create(nil);
  CurrentPC.Host := IP;
  CurrentPC.Port := StrToIntDef(Port, 80);

  try

    CurrentPC.Connect;

  except

    on E: Exception do
    begin

      if AnsiContainsStr(E.Message, 'Socket Error # 10061') then
      begin
        Result := 'Service not available [' + AnsiReplaceStr(E.Message, #13#10, ' - ') + ']';
      end;

      if AnsiContainsStr(E.Message, 'Socket Error # 11001') then
      begin
        Result := 'Offline [' + AnsiReplaceStr(E.Message, #13#10, ' - ') + ']';
      end;

    end;

  end;

  CurrentPC.Free;
  Application.ProcessMessages;

end;

Der Standard MySQL Port ist glaube ich 3306.

Edit : Gut der MYSql Port hilft dir vmtl. nich viel ^^

[Phoenix]

1. Geht es um MS SQL und da man MS SQL auch gerne über Named Pipes anspricht hilft es 2. eigentlich gar nicht, irgendwelche Ports zu prüfen.

[XiaN]

Ich verles mich bei MSSQL und MYSQL immer wieder :?

Evtl. hilfts ja trotzdem irgendwem.

[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...