Delphi-PRAXiS
Seite 2 von 17     12 3412     Letzte »    

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   LuckiePing (https://www.delphipraxis.net/65675-luckieping.html)

Muetze1 20. Mär 2006 00:37

Re: LuckiePing
 
Liste der Anhänge anzeigen (Anzahl: 1)
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 20. Mär 2006 07:33

Re: LuckiePing
 
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 20. Mär 2006 11:17

Re: LuckiePing
 
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 20. Mär 2006 11:19

Re: LuckiePing
 
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 20. Mär 2006 12:52

Re: LuckiePing
 
Aktuelleversion im ersten Beitrag. Ich habe etwas die Performance verbessert. ;)

gsh 20. Mär 2006 14:07

Re: LuckiePing
 
Zitat:

Zitat von Luckie
Aktuelleversion im ersten Beitrag. Ich habe etwas die Performance verbessert. ;)

Wie denn? Mehere Threads? :zwinker:

Luckie 20. Mär 2006 14:10

Re: LuckiePing
 
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. :mrgreen: Ich denke, ich werde es einstellbar machen in der nächsten Version.

gsh 20. Mär 2006 14:15

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

pacman1986 20. Mär 2006 14:18

Re: LuckiePing
 
k net lachen meins macht 245 threads und verwirft sie danach .... :D deswegen die zeit ..

Luckie 20. Mär 2006 14:20

Re: LuckiePing
 
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?


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:23 Uhr.
Seite 2 von 17     12 3412     Letzte »    

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz