H
hanyingce
Unregistered / Unconfirmed
GUEST, unregistred user!
我单位有一UT AN2000B-LD宽带设备,我想程序实现某个端口的UP、DOWN。根据标准的MIB,我读出IFENTRY信息,我不知道用什么方法实现改写端口值。也就是SNMP中的杉SET如何实现 。
snmp.Community :='public';
snmp.Host :='10.10.144.28';
origOID := '1.3.6.1.2.1.2.2.1.7.5';
SNMP.Query.MIBAdd(origOID, '');
i:=1 ;
SNMP.Query.PDUType := PDUGetNextRequest;
while SNMP.SendQuery do
begin
if Copy(SNMP.Reply.MIBOID[0], 1, Length(origOID)) <> origOID then
Break;
ListBox1 .Items .Add(SNMP.Reply.Value);
SNMP.Query.Clear;
SNMP.Query.MIBAdd(SNMP.Reply.ValueOID[0], '');
SNMP.Query.PDUType := PDUGetNextRequest;
end;
snmp.Community :='public';
snmp.Host :='10.10.144.28';
origOID := '1.3.6.1.2.1.2.2.1.7.5';
SNMP.Query.MIBAdd(origOID, '');
i:=1 ;
SNMP.Query.PDUType := PDUGetNextRequest;
while SNMP.SendQuery do
begin
if Copy(SNMP.Reply.MIBOID[0], 1, Length(origOID)) <> origOID then
Break;
ListBox1 .Items .Add(SNMP.Reply.Value);
SNMP.Query.Clear;
SNMP.Query.MIBAdd(SNMP.Reply.ValueOID[0], '');
SNMP.Query.PDUType := PDUGetNextRequest;
end;