SNMP Befehle senden

[HannesKannes]

Hallo,
bin nicht recht fündig geworden und wollte mal fragen ob es mittels des eibPCs irgendwie möglich ist SNMP Werte(Befehl) zu senden.Abfragen wäre auch cool aber nur zweitrangig.

Hintergrund ist das man damit viele Netzwerkteilnehmer die mittels POE versorgt werden zentral ausschalten kann. Kommen bei den neuen Strompreisen doch viele Euros zusammen.

Grüße und frohes Pfingsten

Hannes

[enertegus]

Das ist möglich. Allerdings hängt verlangt das Kenntnis der Programmierung des EibPC (zumindest mein Code unten), sowie die des SNMP,

Ich hatte hier vor Jahren mal was für einen Kunden gemacht und es sollten einfach die Werte auf den Bus ausgegeben werden.
Die Makrolib ist anbei im zip.
snmp.zip

[Macros]
//-----------------------------------------------------------------------
// Der Scheduler muss pro Babelmaster genau einmal eingebunden werden
// Hier vergeben wir den Namen "BableG1", dessen IP ist hier 192.168.22.1
Scheduler(BableG1,192.168.22.1)
Scheduler(BableG2,192.168.22.2)
//-----------------------------------------------------------------------
// Integer oder Floatwerte ausgeben
// vgl. Tabelle Bable_Buster_ACU_1_2_Site_FS.docx
//
// Z.B. Register 129 (letzte Zahl in der Zeile):
// Operating Unit Integer 1.3.6.1.4.1.3815.1.2.2.1.1.1.1.1.2.129
// Man weiß also Integer Register 129
//
// Damit kann man nun dieses Register auf die GA 1/2/3 (Vorzeichenlos 16 Bit = u16) mappen:
IntegerAufGA(BableG1,130,'1/2/3'u16)
FloatAufGA(BableG1,4,'1/2/4'f16)
SendeNachUDPInteger(BableG1,44,$Integer$, 192.168.22.1,8000)
SendeNachUDPInteger(BableG1,129,$Integer2$, 192.168.22.1,8000)
SendeNachUDPInteger(BableG1,130,$mit Wert$, 192.168.22.1,8000)
SendeNachUDPFloat(BableG1,4,$Float$, 192.168.22.1,8000)

// Damit die Register vom EibPC auch alle 10 Sekunden angefordert werden:
FrageRegisterInteger(BableG1,129,cycle(0,10))
FrageRegisterFloat(BableG1,4,cycle(0,10))


// Oder hier ein 1-Bit Alarm-Signal, Integer 0/1 auf Register 43
// High pressure sensor alarm Integer 1.3.6.1.4.1.3815.1.2.2.1.1.1.1.1.2.43
IntegerAufGA(BableG1,43,'1/2/2'b01)
FrageRegisterInteger(BableG1,43,cycle(0,10))

// Wenn man alles eintreffende sehen will, hier einfach auskommentieren:
// DebugAlleWerte(BableG1,'1/2/5'c14)

//-----------------------------------------------------------------------
// Flieskommawerte ausgeben
// Blowing temperature order Float 1.3.6.1.4.1.3815.1.2.2.1.1.2.1.1.2.4
// (Target utlet temperature in °C)
// ist also Register 4 (letzte Zahl)



//-----------------------------------------------------------------------
// Falls Probleme auftreten: Es können die Debugwerte auch direkt auf eine
// TextGA ausgegeben werden. Normalerweise nicht notwendig, Kommentar entfernen
// und GA eintragen, falls gewünscht.
//


[MacroLibs]
//Makro-Bibliotheken
SNMPConverter-4.lib

[EibPC]

// Wenn man die GA, die in den obigen Beispiel verwendet wurden, im Monitor sehen will,
// so muss man die Kommentare der nächsten Zeilen entfernen
dummy_b01='1/2/2'b01
dummy_u16='1/2/3'u16
dummy_f16='1/2/4'f16
dummy_c14='1/2/5'c14
//

[HannesKannes]

Hi,
danke für dein Beispiel aber nach einem Tag Urlaub kann ich leider keine wirklichen Resultate aufzeigen
Bin ich wohl einfach zu dumm zu

Hab auch versucht mit Wireshark mal denTraffic zu loggen aber das Ziel ( Switch) hängt dazwischen und damit kann ich dort keine Pakete anschauen die vom EibPC zum Switch gehen.

1.3.6.1.2.1.105.1.1.1.3.1.2 i 2
die 2 stellt den Port der geschaltet werden soll und dannach setzt ich den Integer auf den Wert 2 für AUS oder auf den Wert 1 für EIN

Bei dem direkten Zugriff über : snmpset -v 2c -c Legion 192.168.2.99 1.3.6.1.2.1.105.1.1.1.3.1.2 i 2

Kann ich es schön mitschneiden:
0000 90 2e 16 66 93 dd a0 63 91 6c 1b bc 08 00 45 00
0010 00 4c 00 00 40 00 40 11 b4 2b c0 a8 02 63 c0 a8
0020 02 c2 00 a1 d3 3d 00 38 54 94 30 2e 02 01 01 04
0030 06 4c 65 67 69 6f 6e a2 21 02 04 00 d2 fc 36 02
0040 01 00 02 01 00 30 13 30 11 06 0c 2b 06 01 02 01
0050 69 01 01 01 03 01 02 02 01 02

Da der Scheduler die einzelnen Punkte aber selbsständig abfragt und ich im Debugger auch keine Änderungen der Variablen sehe geht die Anfrage wohl ins leere.

Name_BabelID = 72908620366440705u64
// Register Basis Request: die Letzen 4 bytes für das Register (float oder int)
Name_Req_SNMPDeviceRegBasisFLOAT= 16843522u32
Name_Req_SNMPDeviceRegBasisINTEGER=16843521u32
// Request SNMP Version
Name_Req_SNMP_Version=2
// Request ID wird per Zufallszahl generiert
Name_RequestID=0u32
// Der Public Key 0x61,0x72,0x65,0x64,x5f,0x70,0x75,0x62,0x6c,0x69,0 x63
Name_Request_Community=$Legion$
// Die Länge des Keys plus Spek
Name_Request_CommunityLen=shift(size(Name_Request_ Community),8s08)+4u16
//
Name_Req_Error=0x0102u16
// Der Requestheader
Name_Req_PaketTyp_Request= 0x040225a0u32


Die im Readudp wurden aufgrund der ausbleibenden Antwort vom Switch nicht bearbeitet von mir:
// Ab hier Implemtierungsabhängig
Name_PosEnd=Name_PosEnd+3u16;
Name_SNMPDevice = stringcast(Name_Data,Name_SNMPDevice,Name_PosEnd);
Name_PosEnd=Name_PosEnd+8u16;
Name_SNMPDeviceRegBasis = stringcast(Name_Data,Name_SNMPDeviceRegBasis,Name_ PosEnd);
Name_PosEnd=Name_PosEnd+4u16;
Name_SNMPDeviceReg= stringcast(Name_Data,0,Name_PosEnd);
if Name_SNMPDeviceReg>128 then Name_PosEnd=Name_PosEnd+1u16 endif;
Name_PosEnd=Name_PosEnd+1u16;
Name_SNMPRegTyp= stringcast(Name_Data,0,Name_PosEnd);
Name_PosEnd=Name_PosEnd+1u16;
Name_SNMPRegData= split(Name_Data,Name_PosEnd,Name_PosEnd+20u16);
Name_Count=Name_Count+1u64;

Gibts da noch irgendwo etwas nachzulesen oder hat jemand Tips?

Grüße Hannes

[enertegus]

Du solltest dir einen managed Switch besorgen, um die LAN Telegramme zwischen dem Endgerät und dem EibPC mit Wireshark beobachten zu können. Das macht dann die Sache viel leichter und man erkennt m.E. auch besser, was da schief läuft. So ist das eher ein Blindflug.

[HannesKannes]

Wenn ich dir jetzt sag das ich einen Managed habe nutzt uns das nicht wirklich weiter

Zumal der Switch das Endgerät ist da er die Port auschaltet.Dazwischen kommt halt nix und der Switch weiß auch das der Traffic nicht weiter im Netzwerk verteilt werden muss.

Hab mich heute noch etwas bezüglich des Aufbaus des SNMP Paketes schlau gemacht und kann es nun zumindest nachvollziehen.
Die Daten selber sind ja schöne Bytes die man packen kann.
Aber den Header kann ich nicht ganz nachvollziehen wie der zustande kommt.
Leider setzt ihr auch einen eigenen Header um bei sendudp diese Daten zu markieren.Dh ich hba 2x einen Header drinnen.Meinen gewollten und den von euch gesetzten.
In eurem Makro nutzt ihr die Shift Funktion um euren Internen Header zu überschreiben oder liege ich da falsch?
Name_Req_SNMPUDPHeader+Name_Req_SNMPUDPHeaderLen+s hift(convert(Name_Req_LenOffset,0u32),8s08),
Wie bekomme ich denn nun den Standard Header von euch :
90 2e 16 66 93 dd 70 b3 d5 dc 88 c4 08 00 45 00
00 76 42 8e 40 00 40 11 71 c2 c0 a8 02 14 c0 a8
02 c2 12 c7 00 a1 00 62 39 5a
mit meinem SNMP Header überschrieben?
a0 63 91 6c 1b bc
90 2e 16 66 93 dd 08 00 45 00 00 4c bc 55 00 00
80 11 00 00 c0 a8 02 c2 c0 a8 02 63 fa 33 00 a1
00 38 86 bf 30 2e 02 01


Grüße

Hannes

[yachti]

Wenn ich dir jetzt sag das ich einen Managed habe nutzt uns das nicht wirklich weiter

Wenn Du uns jetzt noch verraten hättest was für einen managed Switch Du hast.

Bei einem managed Switch kann man in der Regel einen Port-mirror aktivieren um den Traffic mitzuschneiden.

[enertegus]

.
Leider setzt ihr auch einen eigenen Header um bei sendudp diese Daten zu markieren.

Naja, bei sendudp musst Du dann deinen Header eintragen, da kannst du ja Byte für Byte vorgeben. [Oder ich versteh die Frage nicht]

[HannesKannes]

Wenn Du uns jetzt noch verraten hättest was für einen managed Switch Du hast.

Bei einem managed Switch kann man in der Regel einen Port-mirror aktivieren um den Traffic mitzuschneiden.

Hi Yachti,

danke für deinen Hinweis.Ich habe einen Netgear M4100 und einen GS728TP. Sollte aber nicht mehr von Belang sein da ich nun den Hintergrund für den Managed Server Hinweis verstanden habe.Das Mirroring hat das Problem aufgezeigt und nun läuft es Danke dir !

[HannesKannes]

Naja, bei sendudp musst Du dann deinen Header eintragen, da kannst du ja Byte für Byte vorgeben. [Oder ich versteh die Frage nicht]

War mein Fehler. War etwas verwirrt da der Header ja noch andere Informationen aufgrund der anderen Rechner hatte.Mit dem Mirroring, über den Managed Server, war zu sehen das der Header korrekt war und ich musste nur noch die Bytes senden .

Grüße und vielen Dank

[MrKNX]

Hallo,

wie sieht denn der finale Stand aus?

lg

[HannesKannes]

Hi MrKNX,
sieht jetzt so aus:
grafik.png
Hab das Projekt aber nur einfach zusammengestellt da die Notwendigkeit für universelle Anwendungen für mich zu aufwendig.

Schau mal ob dir das hilft / ausreicht:

für Expert:

//Länge (byte)
SNMPPaketLength = 0u08
//Requesttyp (byte)
SNMPPaketTyp = 0u08
//Request ID (u32)
SNMPPaketReqID = 0u32
//Fehler (u16)
SNMPPaketFailure = 0u16
//Port (u8)
SNMPPaketPort = 0u08
//letzen Wert (int) (u8)
SNMPPaketValue = 0u08
JF_EndPos = 0u16
GetRequestID=0u32
GETIP=0u32
GETSNMPUDPHeader=0u32
GETData=$$
GetCount=0u64
GETPort =0u16


SNMPobject(WlanRouterBuero,192.168.2.99,2,$unused$,122)
EGOError=0x0102u16
SNMPUDPHeader = 0x1022E30u32
SNMPUDPGETHeader = 0x1022D30u32

// ab hier Variablen Buttons
btnSNMP1p4 = 4

#addto [EibPC]

// get und set Antworten
if event(readudp(GETPort, GETIP, GETData)) then {
    GetRequestID =  GetRequestID+1u32;
//Stingcast = (Daten,Zielgrösse (0= u08,u16,u32) und dnn dder Anfang vom Auslesen der Daten
//    pdisplay(btn_SNMP_Test8,$UPD empfangen...: $ + convert(GetRequestID,$$),PLAY,ACTIVE,GREEN,PageIdSNMP);
    JF_EndPos = convert(stringcast(GETData,0u08,2u08) + 1 , 0u16);
    //Länge (byte) passt
    SNMPPaketLength = stringcast(GETData,SNMPPaketLength,JF_EndPos);
    JF_EndPos=JF_EndPos+12u16;
    //Requesttyp (byte)
    SNMPPaketTyp = stringcast(GETData,SNMPPaketTyp,JF_EndPos);
    JF_EndPos=JF_EndPos+4u16;
    //Request ID (u32)
    SNMPPaketReqID = stringcast(GETData,SNMPPaketReqID,JF_EndPos);
    JF_EndPos=JF_EndPos+4u16;
    //Fehler (u16)
    SNMPPaketFailure= stringcast(GETData,SNMPPaketFailure,JF_EndPos);
    JF_EndPos=JF_EndPos+23u16;
    //Port (u8)
    SNMPPaketPort = stringcast(GETData,SNMPPaketPort,JF_EndPos);
    JF_EndPos=JF_EndPos+3u16;
    //letzen Wert (int) (u8)
    SNMPPaketValue = stringcast(GETData,SNMPPaketValue,JF_EndPos);
    GetCount=GetCount+1u64;


// Wenn IP stimmen und der Port auch dann Wert in den Status setzen (muss für jeden einzelenn Port eingestellt werden...
if(GETIP==WlanRouterBuero_IP && WlanRouterBuero_Port == SNMPPaketPort) then WlanRouterBuero_Status = SNMPPaketValue endif;


    #addto [WebServer]
// Webserver SNMP Webseite
page (PageIdSNMP) [$Status$,$SNMP$]
compact(on)
design $black$
header(0)
footer(0)


line $Accesspoints$
pbutton(btnSNMP1p2)[STATESWITCH] $Büro Accesspoint$ pbutton(btnSNMP1p4)[STATESWITCH]

empty
weboutput(WebOut_SNMP)[2x4,NOICON]
empty
empty
empty
empty




//--------------------------------------------------------
// Basismakro für die Kommunikation
// Muss pro SNMP Objekt einmal eingebunden werden
//--------------------------------------------------------
:begin SNMPobject(SNob,SNMPGeraetIP,PortInt,OID,Btn)
:info $Dieses Makro ist das Basismakro für die Kommunikation via UDP mit einem SNMP Agent$ \\
            $ Ein eindeutiger Name für das SNMP Object (c28)$ \\
            $ IPV4 Adresse des SNMP Master Geräts (u32)$ \\
            $ Port am Mastergerät zB 0x02 (u08)$ \\
            $ OID Zieladressen auf die der Integer geschrieben werden soll, noch nicht genutzt muss dann erweriternt werden da 3 OIDs Teile (var,C14)$ \\
            $ Button der den Zustand wiedergibt (u08)$
:shortinfo $BasismakroSNMP$
//hier Variablen anlegen
SNob_Button = Btn;
//Status 0 = unbekannt 1 = EIN 2 = aus
SNob_Status = 0;
SNob_RequestID=0u32;
SNob_IP = SNMPGeraetIP;
// Spezifische OID festlegen (noch nicht gebraucht)
SNob_oid = OID;
// Port festlegen
SNob_Port = PortInt;

//Zuweisungen

if change(SNob_Status) then{
                            if SNob_Status==0 then pdisplay(SNob_Button,$ ??? $,STATESWITCH,INACTIVE,BLINKBLUE,PageIdSNMP)endif;
                            if SNob_Status==1 then pdisplay(SNob_Button,$ EIN $,STATESWITCH,ACTIVE,GREEN,PageIdSNMP)endif;
                            if SNob_Status==2 then pdisplay(SNob_Button,$ AUS $,STATESWITCH,BRIGHTRED,BLINKRED,PageIdSNMP)endif;
                        }endif;
                        
                        
// Wenn Button getoggelt wird dann umschalten
if (pbutton(SNob_Button,PageIdSNMP)==1) or after(systemstart(),15000u64 + convert(SNob_Port,0u64)*1000u64 ) then {
                            if SNob_Status==0 then GetReqRegisterInteger(SNob_IP,SNob_Port,0x00)endif;
                            if SNob_Status==1 then SetReqRegisterInteger(SNob_IP,SNob_Port,0x02)endif;
                            if SNob_Status==2 then SetReqRegisterInteger(SNob_IP,SNob_Port,0x01)endif;
    }endif;

// Getrequest
GetReqRegisterInteger(SNob_IP,SNob_Port,0x00);
:end


:begin SetReqRegisterInteger(SNMPAgent,PortNummer,Integer)
:info $Mit diesem Makro wird ein Integer-Register gesetzt.$ $IP Adresse des SNMP Agenten$ $Port der geändert werden soll$ $SIntegerwert$
:return sendudp(161u16, SNMPAgent,SNMPUDPHeader,\\
                              0x01 , 0x04, \\
                              0x06 ,       \\
                              0x4c , 0x65 , 0x67 , 0x69 , 0x6f , 0x6e ,\\
                              0xa3 , \\
                              0x21 , 0x02 , 0x04 , 0x5c , 0x6d , 0x57 , 0x5d ,\\
                              EGOError , \\
                              0x00,  \\
                              EGOError , \\
                              0x00 , 0x30,  \\
                              0x13 ,\\
                              0x30 , \\
                              0x11 , \\
                              0x06 , \\
                              0x0c ,  \\
                              0x2b ,  \\
                              0x06 , 0x01 , 0x02 , 0x01, 0x69 , 0x01 , 0x01 , 0x01 , 0x03 , 0x01 , PortNummer ,  \\
                              0x02 ,  \\
                              0x01 , Integer );
:end

:begin GetReqRegisterInteger(SNMPAgent,PortNummer,Integer)
:info $Mit diesem Makro wird ein Integer-Register abgefragt.$ $IP Adresse des SNMP Agenten$ $Port der geändert werden soll$ $SIntegerwert$
:return sendudp(161u16, SNMPAgent , SNMPUDPGETHeader , \\
                              0x01 , 0x04, \\
                              0x06 ,       \\
                              0x4c , 0x65 , 0x67 , 0x69 , 0x6f , 0x6e ,\\
                              0xa0 , \\
                              0x20 , 0x02 , 0x04 , 0x5c , 0x6d , 0x57 , 0x5d ,\\
                              EGOError , 0x00, EGOError , 0x00 , 0x30,  \\
                              0x12 , 0x30 , 0x10 , 0x06 , \\
                              0x0c , 0x2b ,  \\
                              0x06 , 0x01 , 0x02 , 0x01, 0x69 , 0x01 , 0x01 , 0x01 , 0x03 , 0x01 , PortNummer ,  \\
                              0x05 , 0x00 );
:end​

UDP senden und empfangen musste bei mir wegen der Endgeräte auf den gleiche Port gelegt werden:
grafik.png