Telnet result auslesen (TCP send)

Speedy86

Hallo,

Versuche gerade von einem Gerät die Mac Adresse auszulesen und zu verarbeiten.

wenn ich mich mit putty verbinde und den befehlt get_mac_adress eingebe bekomm ich als Rückmeldung:

Hwaddr: b9:28:A3:39:BB:13 - Succesfull

Dei Mac Adresse muss ich das mit mit sha512 encoden und ein weiteren Telnetcommand schicken.

Leider funktioniert das auslesen nicht

Code

#include <MsgBoxConstants.au3>

Global $sip = "192.168.0.225"
Global $iport = "8000"
Global $scommand_1 = "change_user_to admin XXXX"
Global $scommand_2 = "get_mac_address"

_telnet_send ()

Func _telnet_send ()
   TCPStartup ()
   $Conection = TCPConnect ($sip, $iport)
   If @error Then MsgBox (0,"Error","IP address not reachable")

      TCPSend ( $Conection, $scommand_1 & Chr ( 10 ) )
   If @error Then
      MsgBox (0,"Error","Send comannd= " & $scommand_1 & " failed")
      Exit
   EndIf


      TCPSend ( $Conection, $scommand_2 & Chr ( 10 ) )
   If @error Then
      MsgBox (0,"Error","Send comannd= " & $scommand_2 & " failed")
      Exit
   EndIf

   $recv = TCPRecv($Conection, 2048)

   MsgBox( 1, "mac address", "The mac address is: " & $recv)

   EndFunc

Alles anzeigen

Kann mir wer vieleicht sagen was falsch ist.

irgend wie find ich im google nur extrem lange scripte das ich es mir nicht wirklich rauslesen kann.

lg

Speedy

**Oscar**

Zitat von Speedy86

Versuche gerade von einem Gerät die Mac Adresse auszulesen und zu verarbeiten.

Versuch's mal hiermit:

C++

#include <AutoItConstants.au3>

TCPStartup()
Global $sServerName = 'Amazon-FireTV'
Global $sIP = TCPNameToIP($sServerName)
If @error Then Exit
Global $sMAC = _GetMACaddress($sIP)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sMAC = ' & $sMAC & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
TCPShutdown()

Func _GetMACaddress(Const $sIP)
    Local $iPID = Run(StringFormat('%s /c ping -4 -n 1 %s', @ComSpec, $sIP), '', @SW_HIDE)
    ProcessWaitClose($iPID)
    $iPID = Run(StringFormat('%s /c arp /a %s', @ComSpec, $sIP), '', @SW_HIDE, $STDOUT_CHILD)
    ProcessWaitClose($iPID)
    Local $sOutput = _OEMtoChar(StdoutRead($iPID))
    $sOutput = StringRegExpReplace($sOutput, '(?s).+((?:[[:xdigit:]]{2}\-){5}[[:xdigit:]]{2})\W.+', '$1')
    Return @error ? '' : StringUpper($sOutput)
EndFunc   ;==>_GetMACaddress

Func _OEMtoChar($sOEM)
    Local $aRet
    $aRet = DllCall('user32.dll', 'int', 'OemToChar', 'str', $sOEM, 'str', '')
    Return @error ? $sOEM : $aRet[2]
EndFunc   ;==>_OEMtoChar

Alles anzeigen

Edit: Noch eine kleine Änderung. Man muss mit Ping erstmal einen Arp-Eintrag erzwingen.

Speedy86

Hi Oscar,

Danke auf die Idee bin ich gar nicht gekommen

aber wäre es technisch möglich dies auch über Telnet auszulesen.

mich würde nur interessieren da ich vielleicht auch andere befehle auslesen möchte.

lg

Speedy

Speedy86

Hi Oscar,

Funktioniert bei dir die Namensauflösung ?

weil bei mir kann er es nicht auflösen.

Am Router kann ich aber eindeutig den Hostname erkennen und wurde auch richtig eingetragen im $sServerName.

Sollte dies bei jedem Gerät funktionieren wo ein Hostname korrekt eingetragen ist ? (in meinen Fall ein TV)

Wenn ich die IP Manuell eintrage funktioniert alles einwandfrei Dafür mal ein großes DANKE.

lg

Speedy

**Oscar**

Zitat von Speedy86

Funktioniert bei dir die Namensauflösung ?
weil bei mir kann er es nicht auflösen.

Am Router kann ich aber eindeutig den Hostname erkennen und wurde auch richtig eingetragen im $sServerName.

Sollte dies bei jedem Gerät funktionieren wo ein Hostname korrekt eingetragen ist ? (in meinen Fall ein TV)

Bei mir funktioniert das!

Wie Du an dem Beispiel siehs, auch mit dem Amazon-FireTV-Stick. Aber auch meine ESP8266 (Microcontroller), die hier im lokalen Netz sind, kann ich so ansprechen.