Moin,
ich stehe vor einen kleinen Problem.
Vorweg, ich bin immer noch dabei, ein Hilfetool für eine Fernwartung zu schreiben.
Dieses soll anzeigen welche Nutzer zur Zeit mit dem Rechner verbunden sind, sodass man aufeinander Rücksicht nehmen kann, da es öfter vorkommt, dass mehrere Nutzer auf den einen Rechner zugreifen.
Ich habe es so weit, dass ich die IP Adressen auslese, die mit dem Rechner verbunden sind.
;Ports.txt
;TCP 0.0.0.0:1234 0.0.0.0:0 ABH™REN
;TCP 172.16.1.225:1234 172.16.1.228:1234 HERGESTELLT
;TCP 172.16.1.225:1234 172.16.2.45:1234 HERGESTELLT
Die IP Adressen sind in ein Array.
Local $ip = StringRegExp($sFile, "\s+TCP\s+\d+\.\d+\.\d+\.\d+:\d+\s+(\d+\.\d+\.\d+\.\d+):\d+\s+HERGESTELLT", 3)
;$ip[0] = 172.16.1.228
;$ip[1] = 172.16.2.45
Jedoch variiert die Anzahl der Arrays. Es könnte also nur $ip[0] geben, oder auch $ip[0] bis $ip[4].
Zudem löse ich die IP Adressen in Hostname auf und gebe es aus.
TCPStartup()
Local $name0 = _TCPIpToName ($ip[0],0)
Local $name1 = _TCPIpToName ($ip[1],0)
MsgBox (1,"Ausgabe", "Diese Nutzer sind verbunden: " & $name0 & ", " & $name1)
Gibt es allerdings jetzt nur noch eine IP, gibt es einen Fehler, dass es ja nur einen Array ($ip[0]) gibt.
Die Anzahl der Arrays kann man ja auslesen:
Jetzt das Problem, dass dieses hier:
TCPStartup()
Local $name0 = _TCPIpToName ($ip[0],0)
Local $name1 = _TCPIpToName ($ip[1],0)
MsgBox (1,"Ausgabe", "Diese IP-Adresen sind verbunden: " & $name0 & ", " & $name1)
abhängig der gezähten Arrays sein muss.
Entweder es gibt nur eine IP Adresse, dann müsste es so aussehen:
TCPStartup()
Local $name0 = _TCPIpToName ($ip[0],0)
MsgBox (1,"Ausgabe", "Diese IP-Adresen sind verbunden: " & $name0)
Oder es gibt 3 und es müsste so aussehen:
TCPStartup()
Local $name0 = _TCPIpToName ($ip[0],0)
Local $name1 = _TCPIpToName ($ip[1],0)
Local $name2 = _TCPIpToName ($ip[2],0)
MsgBox (1,"Ausgabe", "Diese IP-Adresen sind verbunden: " & $name0 & ", " & $name1 & ", " & $name2)
Ich hoffe ihr könnt mir helfen.
Mit freundlichen Grüßen