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
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
hi
was meinst du mit scannen? wenn dir ping reicht, dann schaue mal in die hilfe zu ping
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.
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
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 -.-
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
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <iNet.au3>
$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)
For $i = 1 To 254
$eintrag[$i] = GUICtrlCreateListViewItem($subnet&$i&"|---|---", $ip_liste)
Next
GUISetState()
AdlibEnable("pinger",500)
While 1
Sleep(10)
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
AdlibDisable()
Exit
EndSwitch
WEnd
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