Delphi-PRAXiS
Seite 5 von 7   « Erste     345 67      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Alle PC-Namen eines Netzwerkes erhalten (https://www.delphipraxis.net/6213-alle-pc-namen-eines-netzwerkes-erhalten.html)

Christian Seehase 7. Sep 2003 13:13

Re: Alle PC-Namen eines Netzwerkes erhalten
 
Liste der Anhänge anzeigen (Anzahl: 1)
Moin Matze,

so, fertig. Frisch überpoliert ;-)

Wie sich das Programm jetzt auf (grössere) Netzwerke auswirkt weiss ich natürlich, mangels Testmöglichkeit nicht, aber abbrechen kann man immer (zur Not mit ESC)

Schau's Dir mal an.

Der prinzipielle Ablauf
  1. Ermitteln aller IP-Adress/Subnetmask Kombinationen des Rechners
    (z.B. 192.168.1.20 / 255.255.255.0)
  2. Ping auf alle daraus resultierenden möglichen Adressen (192.168.1.0 bis 192.168.1.255)
  3. War der Ping erfolgreich (Timeout ist einstellbar bis hinunter zu 100ms, 500ms sollten i.d.R. aber nicht unterschritten werden), wird versucht den Rechnernamen zu ermitteln

Sollten mehrere IP-Adressen vorhanden sein, kannst Du auch die Bereiche auswählen.

Sollte bei einem Rechner, von dem Du genau weisst, dass er vorhanden ist, und einen Namen hat die Meldung kommen, dass der Name nicht ermittelt werden konnte kannst Du abbrechen, dann funktioniert die Methode nicht.

Grundsätzlich müsste sich das Programm verhalten wie ein Ping -a

Matze 8. Sep 2003 12:02

Re: Alle PC-Namen eines Netzwerkes erhalten
 
Vielen Dank Christian! :D

Am Dienstag werde ich es ausprobieren, wenn ich Zeit hab. Dann sag ich Bescheid, ob's geklappt hat!

Matze 8. Sep 2003 16:35

Re: Alle PC-Namen eines Netzwerkes erhalten
 
@Christian: Kann ich das auch so einstellen, dass ich eine IP eingebe und er dann von dieser aus hochzählt??

Christian Seehase 9. Sep 2003 00:52

Re: Alle PC-Namen eines Netzwerkes erhalten
 
Moin Matze,

das hab' ich jetzt nicht vorgesehen, aber schau's Dir mal an.
Sollte nicht so schwer nachzurüsten sein.

Matze 17. Sep 2003 16:50

Re: Alle PC-Namen eines Netzwerkes erhalten
 
Hi Chris!

Da bin ich wieder, ich hatte endlich die Möglichkeit, dein Programm zu testen und ich muss sagen: Super! :thumb:

Es zeigt mir alle Rechner an!

Wirklich klasse! Vielen Dank nochmal! :hello:

Christian Seehase 17. Sep 2003 16:52

Re: Alle PC-Namen eines Netzwerkes erhalten
 
Moin Matze,

prima, freut mich :bounce1:

Und, was hat Dein Lehrer gesagt? ;-)

Matze 17. Sep 2003 16:58

Re: Alle PC-Namen eines Netzwerkes erhalten
 
Der war echt erstaunt! Auf die Idee ist er gar nicht gekommen. Er hatte gemeint, das wär ja schon fast Hacker-mäßig! :mrgreen:

Christian Seehase 17. Sep 2003 17:00

Re: Alle PC-Namen eines Netzwerkes erhalten
 
Moin Matze,

:mrgreen:

Dabei hab' ich ja im Prinzip nur gemacht, was ein Ping -a auch macht ;-)

Schade, dass Du da nichts mit Admin Rechten machen kannst.
Dann könnte man ihm mal von einem anderen Rechner aus zeigen, welche versteckten Freigaben auf seinem Rechner sind ;-)

Matze 17. Sep 2003 17:03

Re: Alle PC-Namen eines Netzwerkes erhalten
 
Ja, das wäre auch echt cool! ;)

Kann ich das irgendwie so umprogrammieren, dass es mir in einer weiteren ListBox, die angemeldeten (eingeloggten) User anzeigt?

Das hier: http://www.swissdelphicenter.ch/de/showcode.php?id=1578
geht bei mir irgendwie nicht. :(

Christian Seehase 17. Sep 2003 17:16

Re: Alle PC-Namen eines Netzwerkes erhalten
 
Moin Matze,

eine Idee hätte ich noch dafür.
Probier ich mal aus.


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:21 Uhr.
Seite 5 von 7   « Erste     345 67      

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