LAN-Suchmaschine wie realisieren

[Sergej]

Tag! Ich bin gerade dabei ein Suchtool für Windows zu programmieren. Die Datei und Ordnersuche funktioniert auch schon wunderbar, doch ein Freund meinte er würde auch noch die Option einfügen, dass man nach PC's im Netzwerk suchen kann (wie mit der Windowssuche). Jetzt meine Frage, wie kann ich diese Netzwerksuche realisieren?

Greetz Sergej

[MrKnogge]

Such mal hier im Forum nach Netzwerk und auflisten, das gabs schon öfters.

[Sergej]

Ich hab wohl was vergessen. Das Auflisten der Computer ist kein Problem, aber mich würde es interresieren ob es so was wie "GetPCInfo" gibt, also z.b. die IP, den Namen, freigegebene Ordner etc.


Greetz Sergej

[MrKnogge]

also standardmäßig gibts sowas nicht, aber mann kann sichs selber basteln, ComputerNameToIpAdresse:

Delphi-Quellcode:

Uses
  WinSock;

FUNCTION GetIpAddressByName(const AComputerName: STRING): STRING;
VAR
  TMPResult: STRING;
  WSA: TWSAData;
  H: PHostEnt;
  P: PChar;
BEGIN
  IF WSAStartUp($101, WSA) = 0 THEN
    BEGIN
      GetMem(P,255 + 1);
      StrPCopy(P, ComputerName);
      H:=GetHostByName(P);
      FreeMem(P);
      IF H <> NIL THEN
        BEGIN
          P:=inet_ntoa(PInAddr(H^.h_addr_list^)^);
          TMPResult:=StrPas(P)
        END;
      WSACleanUp;
      IF TMPResult <> '' THEN
        Result:=TMPResult
      ELSE
          Result:= '0';
    END;
END;

Wie man nun bei jedem Rechner überprüft, was er freigegeben hat, weis ich leider nicht, würd mich allerdings auch interessieren ^^

[Hansa]

Luckie jat doch so was, das kann man bestimmt verwenden. Netinfo, oder so.

[Matze]

NetWorkInfo, heißt es.

Herunterladen kann man es auf Luckies Homepage.

Als Gegenleistung freut sich Luckie, wenn du hier unten auf die Banner klickst.

[Sergej]

Danke! Das ist ja schon mal 'nicht schlecht' ...jetzt würds mich allerdings immer noch interessieren ob man die freigegebenen Ordner aufliste kann. Ich mein Windows machts ja auch...

[MrKnogge]

Gehen muss es, ich hab mal n tool gesehen, mit dem man das LAN nach Dateien durchsuchen konnte.