Login auf USV / Vorlage in anderer Sprache vorhanden

JaNo

Hallo,

ich möchte Daten in einer USV abfragen, die nicht per SNMP zur Verfügung gestellt werden.

Dazu gibt es wohl zwei Ansätze:

1. https://community.home-assistant.io/t/cyberpower-b…-sensors/226563

Code

- platform : rest 
  resource: http://<IPADRESS>:3052/local/rest/v1/ups/status
  name: Server UPS
  headers:
    Authorization: <BEARER-TOKEN-COPIED-EARLIER>
    User-Agent: Home Assistant
    Content-Type: application/json
  value_template: '{{ value_json["battery"]["stateText"] }}' 
  json_attributes:
    - input
    - output
    - battery
    - bypass
    - system
    - onlyPhaseArch
    - communicationAvaiable
    - <Add any other attributes found in response tab>

Alles anzeigen

Mir geht es nur um den Loginvorgang, die Daten "zerpflücke" ich mir dann schon. Wie es aussieht, genügt hier der Login mit einem (immer gleich bleibenden?) BearerToken. Wie gebe ich sowas in eine Abfrage mit und wie löst man es am besten? Inet.au3? Winhttp.au3?

2. https://community.home-assistant.io/t/cyberpower-b…-sensors/226563

Code

import requests
import paho.mqtt.client as paho
import json
url = "http://192.168.x.x:3052/local/rest/v1/login/verify"
url2 = "http://192.168.x.x:3052/local/rest/v1/ups/status"

payload = {"userName": "adminuser", "password": "adminpassword"}
headers = {'Content-Type': "application/json"}
response = requests.request("POST", url, json=payload, headers=headers)
# the json parameter should handle encoding for you
cookies = response.cookies

response = requests.request("GET", url2, cookies=cookies)
r_dictionary= response.json()

iv = r_dictionary['input']['voltages'][0]
ov = r_dictionary['output']['voltages'][0]
ol = r_dictionary['output']['loads'][0]
br = r_dictionary['battery']['remainingRunTimeInSecs']/60
brf = r_dictionary['battery']['remainingRunTimeFormated']
sys = r_dictionary['system']['stateText']
batt = r_dictionary['battery']['stateText']
cap = r_dictionary['battery']['capacity']
comm = r_dictionary['communicationAvaiable']

Alles anzeigen

Er gibt hier wohl direkt das Passwort und den Usernamen mit. Wie könnte ich es so umsetzen?

Ich bin leider was die Webgeschichten (außer IE.au3, aber die lassen wir mal lieber außen vor) recht schwach.

Danke!

**funkey**

Da musst du einfach probieren, wie es funktioniert.

Hier eine Vorlage

Code

TCPStartup()

Global $iSock = TCPConnect(TCPNameToIP ("192.168.x.x:"), 3052)

Global $Packet = "GET /local/rest/v1/ups/status HTTP/1.1" & @CRLF & _
"Authorization: <BEARER-TOKEN-COPIED-EARLIER>" & @CRLF & _
"Accept: application/json" & @CRLF & @CRLF

TCPSend($iSock, $Packet)
Global $sRecv = TCPRecv($iSock, 1024)
TCPCloseSocket($iSock)

ConsoleWrite($sRecv & @CRLF)

Alles anzeigen

JaNo

Danke dir. Funktioniert leider nicht. Bekomme in der Console einen Fehler 400.

Wie könnte man damit die zweite Variante umsetzen? Scheint mir sinnvoller zu sein, allerdings muss dort wohl zuerst die Verify-Url aufgerufen werden und dann ein Cookie an die Status-Url übergeben werden?

Wäre toll, wenn Du mir helfen würdest.

Concara

Hi!

Hier Code mit dem ich ein ähnliches Projekt realisiert habe.

AutoIt

#include <String.au3>
Local $sRequest, $sCookies
;Local $ip = "192.168.0.1"
TCPStartup()
Local $ip = TCPNameToIP("neverssl.com")
TCPShutdown()

$sRequest = _TCPRequest($ip, "neverssl.com")
ConsoleWrite("-------------------------------------------" & @CRLF & $sRequest & @CRLF)
$sCookies = _GetCookies($sRequest)
ConsoleWrite("-------------------------------------------" & @CRLF & $sCookies & @CRLF)

Func _GetCookies($sQuellcode)
    Local $sCookies, $i, $aCookies
    $sCookies = ''
    $aCookies = _StringBetween($sQuellcode, 'Set-Cookie: ', @CRLF, 1)
    For $i = 0 To UBound($aCookies) - 1
        $sCookies &= $aCookies[$i] & ';'
    Next
    Return $sCookies
EndFunc   ;==>_GetCookies

Func _TCPRequest($sIp, $sHost, $sSeite = "", $sPost = '', $sCookies = '', $sReferer = '')
    Local $sPacket, $iSocket, $iTimer, $sRecv
    If $sPost = '' Then
        $sPacket = 'GET /' & $sSeite & ' HTTP/1.1' & @CRLF
    Else
        $sPacket = 'POST /' & $sSeite & ' HTTP/1.1' & @CRLF
    EndIf
    $sPacket &= 'Host: ' & $sHost & @CRLF & _
            'User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:55.0) Gecko/20100101 Firefox/55.0' & @CRLF & _
            'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8' & @CRLF & _
            'Accept-Language: de,en-US;q=0.7,en;q=0.3' & @CRLF & _
            'Connection: keep-alive' & @CRLF
    ;'Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7' & @CRLF & _
    ;'Keep-Alive: 115' & @CRLF & _
    If $sReferer <> '' Then
        $sPacket &= 'Referer: ' & $sReferer & @CRLF
    EndIf
    If $sCookies <> '' Then
        $sPacket &= 'Cookie: ' & "testcookie; " & $sCookies & @CRLF
    EndIf
    If $sPost <> '' Then
        $sPacket &= 'Content-Type: application/x-www-form-urlencoded' & @CRLF
        $sPacket &= 'Content-Length: ' & StringLen($sPost) & @CRLF
    EndIf
    $sPacket &= @CRLF
    If $sPost <> '' Then
        $sPacket &= $sPost
    EndIf
    ;ConsoleWrite(@CR & $sPacket & @CR)
    TCPStartup()
    If @error Then Return SetError(1, 0, "")
    $iSocket = TCPConnect($sIp, 80)
    If @error Then Return SetError(2, 0, "")
    TCPSend($iSocket, $sPacket)
    If @error Then Return SetError(3, 0, "")
    Local $bytes = 0, $parse_start, $seconds, $timer_start = TimerInit()
    While 1
        ;_checkMessages()                ;My nMsg routine
        $sRecv &= TCPRecv($iSocket, 4096)
        ;If @error = -1 Then ExitLoop            ;Just to be thorough
        $parse_start = StringInStr($sRecv, "Content-Length") + 15
        If $parse_start > 15 Then $bytes = Int(StringStripWS(StringStripCR(StringMid($sRecv, $parse_start, StringInStr($sRecv, @CRLF, 0, 1, $parse_start) - $parse_start)), 8))
        ;This is what really makes the difference. Were waiting for all the data to come in
        If $bytes > 0 And StringLen($sRecv) >= $bytes Then ExitLoop
        If TimerDiff($timer_start) > 1000 + ($seconds * 1000) Then
            $seconds += 1
            If $seconds = 5 Then ExitLoop ;Last resort
        EndIf
    WEnd
    TCPCloseSocket($iSocket)
    TCPShutdown()
    Return BinaryToString($sRecv)
EndFunc   ;==>_TCPRequest

Alles anzeigen

Ich denke du solltest aber mit der Funktion zurecht kommen.

Geh den Loginvorgang mit dem developer Mode durch und erstelle die Requests genau so.

Auszug aus der Seite die du verlinkt hast (

In Chrome go to the View menu - Developer - Developer Tools and the Dev panel should open to the right hand side. Under the Network Tab then Headers Tab you will see the Request Headers Section, your Authorization token can be found here. Copy this for use later

)

Eventuell passt du den Header in der Funktion noch an.

Sollte aber nicht unbedingt notwendig sein.

Mir ist aufgefallen, dass man oft nicht alle Requests braucht, soll heissen, Seite aufrufen erster Request meist erhält man dann das Cookie das man braucht um dann direkt den Login Request abzusetzen.

Und alle Requests dazwischen sind nicht nötig.

JaNo

Danke, ich teste mich mal durch