Login  
Search All Forums
Dart Home | PowerSNMP for ActiveX | Custom Development Reply | PowerSNMP for ActiveX Topics | Forums   
AuthorForum: PowerSNMP for ActiveX
Topic: The Macaddress is not visible why?
nexzan
nexzan@chollian.net

From: wonju-si, South Korea
Posts: 3
Member Since: 05/18/06		 posted June 1, 2006 12:36 AM
Hi,

procedure TForm1.Button2Click(Sender: TObject);
var
  tableVariables: ISnmpVariables;
  tableOid: String;
  v : ISnmpVariable;
  TMP_OID_L1, TMP_OID_L2, I : INTEGER;

begin
   Manager1.Open(162, '');
   memo1.Lines.Clear;
   tableOid := '1.3.6.1.2.1.4.22.1.2';

  //----------------------------------
   memo1.Lines.Add( tableOid );
   memo1.Lines.Add('----------------------------------');
  //----------------------------------

  v := CoSnmpVariable.Create;
  v.Oid := tableOid; // start with table's Oid
  tableVariables := CoSnmpVariables.Create;



  // Send getnext requests until end of table is reached TableOID.Entry(1).Column.Row
  while Copy(v.Oid, 1, Length(tableOid)) = tableOid do
  begin
    try
      Manager1.Message.Reset;
      Manager1.AgentPort := 161;
      Manager1.AgentName := 'x.x.x.x';
      Manager1.Message.Type_ := snmpGetBulk2; //snmpGetBulk2;
      Manager1.Message.Community := 'public';

      Manager1.Message.Variables.Add(v);
      Manager1.Send;
    except
     on E:Exception do
      break;
    end;


    if Manager1.Message.Variables.Item(1).Oid = v.Oid then
    begin
      break;
    end;


    if Length(Manager1.Message.Variables.Item(1).Oid) >= Length(tableOid) then
    begin
      if Copy(Manager1.Message.Variables.Item(1).Oid, 1, Length(tableOid)) = tableOid then
      begin
        tableVariables.Add(Manager1.Message.Variables.Item(1));

        //-------------------------------------------------------------------
        // help ?
        // manager1.Message.Variables.Item(1).value  ?? mac->(string)
        //-------------------------------------------------------------------

        memo1.Lines.Add('oid :' + Manager1.Message.Variables.Item(1).oid + '(' + manager1.Message.Variables.Item(1).value + ')');

        //-------------------------------------------------------------------


      end;
    end else
    begin
      break;
    end;

    v.Oid := Manager1.Message.Variables.Item(1).Oid;
  end; //while
end;
Tony Priest



From: Utica, NY USA
Posts: 8466
Member Since: 04/11/00		 posted June 1, 2006 6:33 AM
I'm sorry, but I am not sure I understand your question. Please explain exactly where you are expecting to see a Mac address and what you see when you look there.
nexzan
nexzan@chollian.net

From: wonju-si, South Korea
Posts: 3
Member Since: 05/18/06		 posted June 1, 2006 10:27 PM
//-------------------------------------------------------------------
    // help ?
    // manager1.Message.Variables.Item(1).value ?? mac->(string)
    //-------------------------------------------------------------------

manager1.Message.Variables.Item(1).value 

Why Mac-address value translate string?
nexzan
nexzan@chollian.net

From: wonju-si, South Korea
Posts: 3
Member Since: 05/18/06		 posted June 1, 2006 10:30 PM
//-------------------------------------------------------------------
  // help ?
  // manager1.Message.Variables.Item(1).value ?? mac->(string)
  //-------------------------------------------------------------------

manager1.Message.Variables.Item(1).value


I don't know why mac address value translate string...
Tony Priest



From: Utica, NY USA
Posts: 8466
Member Since: 04/11/00		 posted June 2, 2006 9:49 AM
Unfortunately, I still do not understand what you are asking. Please write to David Harry (sales@dart.com) directly to see what other support options are available.
Reply | PowerSNMP for ActiveX Topics | Forums   
This site is powered by PowerTCP WebServer Tool PowerTCP WebServer for ActiveX