Vorhandene PC´s im Netzwerk auflisten

[uwe12]

Hallo,
kennt jemand eine Möglichkeit, wie man mit Delphi alle Pc´s, die sich im Netzwerk befinden aufgelistet bekommt und herausfindet, welche davon online sind? Das Netzwerk besteht aus PC´s, wo Windows XP installiert ist und einen Server, wo Windows Server 2003 installiert ist.

[mkinzler]

Wird WINS eingesetzt?

[Luckie]

Guck dir mal mein LoggedOn an: http://www.michael-puff.de/Developer/Delphi/Programme/

[uwe12]

das ist zwar ein tolles programm, aber ich weis jetzt nicht so recht, wie das alles miteinander funktioniert. Könntest du mir mal bitte den Befehl nur für das herausfinden der IP´s sagen.

[Fridolin Walther]

NetServerEnum ist Dein Freund :).

[uwe12]

soll das für delphi sein?

[mkinzler]

Zitat:

Zitat von uwe12

soll das für delphi sein?

Ist eine Windows-API und kann in (fast) jeder Programmiersprache verwendet werden

[DP-Maintenance]

Dieses Thema wurde von "mkinzler" von "Die Delphi-IDE" nach "Windows 9x / ME / 2000 / XP / 2003 / Vista" verschoben.
Hat definitiv nichts mit der IDE zu tun

[Luckie]

Das ist der entscheidende Code für dich:

Delphi-Quellcode:

class function TMachineCollection.GetAllMachines(const Domain: string; ExceptionMode: TExceptionMode):
  TMachineCollection;
var
  err               : NET_API_STATUS;
  bufPtr            : Pointer;
  si                : Pointer;
  entriesread       : DWORD;
  totalentries      : DWORD;
  resumehandle      : DWORD;
  pCurrent          : PSERVER_INFO_100;
  i                 : Integer;
  Machine           : TMachine;
  Major             : Integer;
  Minor             : Integer;
begin
  Result := nil;
  bufPtr := nil;
  resumehandle := 0;
  try
    err := NetServerEnum(nil, 100, bufPtr, MAX_PREFERRED_LENGTH, entriesread, totalentries, SV_TYPE_NT or
      SV_TYPE_WORKSTATION or SV_TYPE_SERVER or SV_TYPE_SERVER_NT, PWideChar(WideString(Domain)),
      resumehandle);
    if err = NERR_SUCCESS then
    begin
      Result := TMachineCollection.Create;
      pCurrent := bufPtr;
      for i := 0 to totalentries - 1 do
      begin
        Machine := TMachine.Create;
        Machine.Machine := pCurrent.sv100_name;

        Machine.IP := Machine.Machine;

        err := NetWkStaGetInfo(PWideChar(WideString(Machine.Machine)), 101, si);
        if err = NERR_Success then
        begin
          Major := PWKSTA_INFO_100(si)^.wki100_ver_major;
          Minor := PWKSTA_INFO_100(si)^.wki100_ver_minor;
          Machine.OS := Machine.OSIdToOSStr(Major, Minor);
        end;

        Machine.SetToD(GetRemoteToD(WideString(Machine.Machine)));

        Result.Add(Machine);
        Machine.LoggedOnUsers := TLoggedOnUserCollection.GetAllUsers(Machine.Machine, emOff);
        Inc(pCurrent);
      end;
    end
    else
      raise ENetAPIError.Create(err);
  finally
    NetApiBufferFree(bufPtr);
  end;
end;

Die gefundenen Rechner werden dann in einer Objektliste abgelegt.

Hätte man aber auch selber draufkommen könne, wenn man sich den Code mal etwas genauer angeguckt hätte. ;)

[quendolineDD]

Zitat:

Hätte man aber auch selber draufkommen könne, wenn man sich den Code mal etwas genauer angeguckt hätte.

Der TE scheint von der Thematik rund um WinAPI keinerlei Erfahrung zu haben.

[Luckie]

Aber der Funktionsname sollte doch deutlich machen, was da passiert. ;)

[Christian Seehase]

Moin Luckie,

den try/finally-Block solltest Du noch einmal überarbeiten.
Der darf erst nach dem erfolgreichen Aufruf von NetServerEnum beginnen.

[Luckie]

Ah, danke für den Hinweis.

[generic]

Du brauchst nur einen ARP Request für jede Subnetz IP verschicken. "Hat jemand diese IP"
Dann Antwortet dir jeder PC im LAN mit und ohne aktivierter Firewall (angeschaltet müssen sie schon sein).

[Luckie]

NetServerEnum wird das wohl kaspeln.

[generic]

Ich meine, das es versucht über NetBios "Server" zu finden.
Firewalls neigen dazu, dieses zu filtern.