Liste aller SQL Server im Netz erstellen

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