LuckiePing

[Luckie]

Da ja anscheinend Ping Programme gerade Mode sind: http://www.delphipraxis.net/internal...ct.php?t=78344 will ich auch mal meine Version vorstellen. Gerechterweise, muss ich sagen, dass ich die Ping Unit von retnyg benutze. Das Programm ist OpenSource und nonVCL.

Anzeigen von:

• Computername
• IP
• MAC Adresse
• Domain
• Servertyp
• Betriebssystem
• Kommentar zum Rechner
• Antwortzeit

Features:

• Multithreaded
• Verbose Mode
• Rechner mit Freigaben haben ein ander4es Icon
• Doppelklick öffnet den Rechner im Explorer

To do:

• Benutzer kann Threadanzahl selber wählen (in vernünftigen Grenzen)
• Export in eine CSV Datei

Aktuelleversion 1.0.6.320:
Performance verbessert. Ich habe gerade eben innerhalb von 30 Sekunken ein ganzes Subnet durchgepingt. (Verbose war deaktiviert, damit er nicht alle Informationen ermittelt.)
Bugfixes.
Sourcen zur Aktuellenversione werden nachgereicht.

Aktuelle Version: 1.0.6.321:
Threads auf 25 begrenzt. Bei 255 Threads verliert man etwas die Kontrolle und es dauert ewig bis alle Threads beendet sind, wenn man abbricht, da viele Threads blockiert sind, wenn sie gerade Informationen zu den Rechnern ermitteln.

Aktuelle Version: 1.0.6.322:
Rechner mit Freigaben haben ein entsprechendes Icon.
Doppelklick öffnet den Rechner im Explorer

Aktuelle Version: 1.0.6.327:
Sekunden korrigiert, waren wirkölich etwas schnell.
Öffnen eine Rechners per Doppelklick oder Leertaste in einem eigenen Thread.

Aktuelle Version 1.0.0.7:
Vertauschte IP Adressen werden automatisch korrigiert
Vorerst die Final.

Aktueller Screenshot im Anhang.

[Muetze1]

http://www.muetze1.de/images/boards/luckieping.png

Die MAC's, IP's etc hauen hin, den Rest: siehe selbst. Die Zugriff verweigert bei JOE sind ok.

PrintServer ist die .20 und ist ein NetGear PS101.

Der Router .1 ist ein NetGear FVS318 VPN Server/Router

bei den IP Adressbereich nicht verwundern: die .0 war ein Test, ob er drauf "reinfällt"...

[Luckie]

Hm. Den T-COM Router hat er bei mir auch mit Windows XP identifiziert:

Delphi-Quellcode:

function GetRemoteOS(const Computer: WideString; var Version: string): DWORD;
var
  res               : DWORD;
  s                 : string;
  si                : Pointer;
  Major             : DWORD;
  Minor             : DWORD;
begin
  si := nil;
  s := '';

  res := NetServerGetInfo(PWideChar(Computer), 101, @si);
  if res = NERR_Success then
  begin
    Major := PSERVER_INFO_101(si)^.sv101_version_major;
    Minor := PSERVER_INFO_101(si)^.sv101_version_minor;
    if (Major = 4) and (Minor = 0) then
    begin
      s := 'Windows NT 4.0';
    end
    else if (Major = 5) and (Minor = 0) then
    begin
      s := 'Windows 2000';
    end
    else if (Major = 5) and (Minor = 1) then
    begin
      s := 'Windows XP';
    end
    else if (Major = 5) and (Minor = 2) then
    begin
      s := 'Windows 2003 Server Family';
    end;
  end;
  Version := s;
  NetApiBufferFree(si);
  result := res;
end;

[C.Schoch]

Warum wird bei mir der Name des Routers nicht angezeigt? oder kann man den gar nicht auslesen?
Ist es Absicht, dass der pingende PC nich mit angezeigt wird obwohl er im Adressraum liegt!

[Luckie]

da ich eine Windows API Funktuion nutze, um den Rechnernamen auszulesen wird das nicht klappen, wenn auf dem Router kein Windows Betriebssystem läuft.

Bei mir wird der pingende Rechner angezeigt in der Liste.

[Luckie]

Aktuelleversion im ersten Beitrag. Ich habe etwas die Performance verbessert.

[gsh]

Zitat von Luckie:

Aktuelleversion im ersten Beitrag. Ich habe etwas die Performance verbessert.

Wie denn? Mehere Threads?

[Luckie]

10 Stück. Ich kann es leider nicht so richtig testen, um die optimale Anzahl Threads zu ermitteln. Hier an der Arbeit habe ich zwar ein größeres Netzwerk, aber ich kann ja nicht ständig hier wild durch die Gegend pingen. Ich denke, ich werde es einstellbar machen in der nächsten Version.

[gsh]

Naja ich kenn ein Prog des Benutzt 32 Threads ich glaub des ist eine gute zahl, einstellbar ist natürlich auch nicht schlecht

[pacman1986]

k net lachen meins macht 245 threads und verwirft sie danach .... deswegen die zeit ..

[Luckie]

Und was macht das Programm? Ich habe ja keine 32 Netzwerkadapter im Rechner, die cih einzeln ansteuern könnte. DFie Pings müssen ja doch über eine Leitung in und aus dem Rechner raus.

Wie 245 Threads? Und was meinst du mit verwerfen?