RPG: Client Infos lesen?

[robertki]

Gute Idee, solange SNMP auf den Clients auch aktiviert ist.
Was bei deinen Scannern ja wohl der Fall ist.

Genau das könnte es auch wieder kippen. Anscheinend haben nicht alle Scanner SNMP angeschaltet. Mal schaun, im Moment sieht es gut aus :-)

Robert

[Fuerchau]

Vielleicht könntest du die Quelle ja hier mal reinstellen ?
Dann hätten vielleicht alle was davon.

[robertki]

Vielleicht könntest du die Quelle ja hier mal reinstellen ?
Dann hätten vielleicht alle was davon.

Hi Fuerchau,

hier der Code:

H DFTACTGRP(*NO) bnddir( 'QC2LE' )
D getsnmp PR 10I 0 ExtProc('snmpGet')
D pdu_ptr * value
D host_ptr * value options(*string)
D timeout 10I 0 value
D comm_ptr * value options(*string)
D comm_len 10I 0 value
D myvalds DS
D int_val 10I 0
D char_val *
D mychar_val S 90A based(char_val)
D varBind DS
D next * inz(*NULL)
D pOid * inz(%addr(oid))
D asnType 1a
D valLen 10i 0 inz(50)
D valPtr * inz(%addr(value))
D snmppdu DS
D pduType 1a
D errSts 10i 0
D errIdx 10i 0
D pVarBind * inz(%addr(varBind))
D x S 10i 0
D value S 50a
D oid S 50a
D msg S 52A
D pos S 10I 0
D host S 12a inz('192.168.1.39')
D cmty S 6a inz(x'7075626C6963')
D ASCII2EBCDIC C CONST( 'QTCPEBC' )
D EBCDIC2ASCII C CONST( 'QTCPASC' )
D Translate PR ExtPgm( 'QDCXLATE' )
D Length 5P 0 const
D Date 32766A options( *varsize )
D Table 10A const
D valend C '§'
/FREE
oid = x'f14bf34bf64bf14bf24bf14bf14bf14bf000';
// oid: .1.3.6.1.2.1.1.1
x = getsnmp(%ADDR( snmppdu): %addr(host):5:%addr(cmty):6);
if ( x <> 0 );
msg = 'SNMPGet error: ' + %char(x);
dsply msg;
else;
Translate(%size(value):value:ASCII2EBCDIC);
pos = %scan(valend: value) - 1;
if ( pos > 0 );
value = %subst(value:1:pos);
endif;
msg = value;
dsply msg;
pos = %scan('WindowsCE': value);
if ( pos > 0 );
msg = 'OS is WindowsCE';
endif;
dsply msg;
endif;
*inlr = *on;
/END-FREE 

Viel Spaß damit. Robert