Netzwerk scannen

Jonathan

Hallo, ich habe vor, das Lokale netzwerk zu Scannen, und die Ergebnisse in einer GUI Tabelarisch darzustellen.

gibt es da eine möglischkeit? Ich weiß nämlich noch garnicht, wo ich befinnen soll ...

Die tabelle soll etwa so aussehen:

IP PC Name Ping

GerhardSchr

hi
was meinst du mit scannen? wenn dir ping reicht, dann schaue mal in die hilfe zu ping

Jonathan

Halt, das ich das Script starte und dann in einer GUI eine Liste mit allen PC`s die Online sind ist. und in der Liste soll die IP der PC-Name und die Pingzeit.

PokerFace

Zitat von GerhardSchr

hi
was meinst du mit scannen? wenn dir ping reicht, dann schaue mal in die hilfe zu ping

Er möchte doch das die Computer wie in der Netzwerkumgebung gezeigt werden
Also sozusagen die IP ist unbekannt. =D

GerhardSchr

also du könntest mit einer forschleife ip für ip durchgehen und anpingen, oder du ließt wie PokerFace schon gesagt hat z.B. die liste vom explorer ein *g* und dann pingen -.-

**Schnuffel**

mal eben auf die schnelle hingezimmert ...
Erhebt keinen Anspruch auf Korrektheit oder Geschwindigkeitsoptimierung.
Das geht mit einem DllCall bestimmt schneller, hab ich aber auf die Schnelle nicht bei der Hand.
Vielleicht findet sich ja noch jemand, der das gegen einen DllCall austauscht...
Das mit dem PC-Namen war mir jetzt nicht so wichtig

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <iNet.au3>

[/autoit] [autoit][/autoit] [autoit]

$subnet = "192.168.0."
Global $count = 1
Global $eintrag[256]
Global $i
GUICreate('',400,500)
$ip_liste = GuiCtrlCreateListView("IP-Adresse | PC-Name | Ping-Zeit in ms",10,10,300,400)

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To 254
$eintrag[$i] = GUICtrlCreateListViewItem($subnet&$i&"|---|---", $ip_liste)
Next
GUISetState()
AdlibEnable("pinger",500)

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(10)
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
AdlibDisable()
Exit
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func pinger()
$pinger = Ping($subnet&$count,200)
If $pinger > 0 Then
GuiCtrlSetData($eintrag[$count],"||"&$pinger)
EndIf
$count += 1
If $count = 255 Then $count = 1
EndFunc

[/autoit]