SNMP

Question

Bonjour,
Je cherche à recuperer des trap SNMP de mon routeur pour connaitre la charge CPU et le traffic en upload et download.
Quelqu'un aurait il un exemple d'utilisation d'echange d'informations de trap sur SNMP en Delphi biensur ;-)
Merci
Maxkweeger

bigey3 · Answer

bonjour,
je suis en stage et je dois concevoir un projet delphi en vue d'explorer le statut des équipements  réseau.la finalité étant de récuper le statut des équipements et les envoyer par mail.

prière de me donner un coup de main

bigey3

k.Lutchi · Answer

Bonjour,
J'ai réaliser un programme qui permet d'utiliser les Mib.
L'utilisation du INDY SNMP permet de voir le status des équîpement informatique

++

bigey3 · Answer

Salut,

Pourrais tu me dire comment t'as fait? Je connais pas trop les composants INDY SNMP .

Merci de me repondre

bigey3

k.Lutchi · Answer

Slt,



<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
 




Voici le code que j’ai utilisé.



 




unit SnmpTest1;



 




interface



 




uses



  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,



  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient,



  IdSNMP;



 




type



  TForm1 = class(TForm)



    
SNMP: TIdSNMP;






    Button1: TButton;






    Label1: TLabel;






    Edit1: TEdit;






    Label2: TLabel;






    Edit2: TEdit;






    Memo1: TMemo;






    procedure Button1Click(Sender: TObject);






  
private



    { Déclarations privées }



  public



    { Déclarations publiques }



  
end;





var






  Form1: TForm1;






 






implementation






 






{$R *.dfm}






 






procedure TForm1.Button1Click(Sender: TObject);





Var





DynamicIP, origOid: string;






 GatewayIP: string;






 






I: Integer;






 






begin





Memo1.Clear;





SNMP.Community := 'public';





SNMP.Host := Edit1.Text;





SNMP.Query.Clear;





origOID := Edit2.Text;





SNMP.Query.MIBAdd(origOID, '');





SNMP.Query.PDUType := PDUGetNextRequest;





SNMP.SendQuery;






 






//while SNMP.SendQuery do






 






//        begin






 







        for I := 0 to SNMP.Reply.ValueCount - 1 do






 







        Memo1.Lines.Add(SNMP.Reply.ValueOID[I]);






        Memo1.Lines.Add(SNMP.Reply.Value[I-1]);






 







        SNMP.Query.Clear;





//        SNMP.Query.MIBAdd(SNMP.Reply.ValueOID[0], '');





//        SNMP.Query.PDUType := PDUGetNextRequest;





end;






 







 







 





end.

A++

SNMP

4 réponses

Votre réponse

Discussions similaires