delphi snmp 读取系统参数、SQLSERVER参数

A要开发SNMP读取参数的模块

     a. 首先安装SNMP 协议。

         在xp系统里， 开始-->设置-->控制面板-->添加/删除WINDOWS组件-->管理监视工具 ，把里面的

         两个协议全部安装

 

     b.  安装Sqlserver(以下内容是摘抄其他网友的帖子，实在懒得写，不好意思)

       b1.安装SNMP FOR SQL SERVER
          如果你安装SQL SERVER的时候，已经安装了SNMP服务，那么SQL SERVER会自动安装SNMP的代

          理扩展。如果在执行安装程序时没有在计算机上安装 SNMP，则不会启用 SQL Server 对 SNMP 的

          支持。

          对于安装SQL SERVER时候没有安装SNMP服务的，需要手工添加扩展代理方法如下，注意区分大小

          写的匹配：

          b12. 添加扩展代理注册信息

                找到HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/SNMP/Parameter/

                ExtensionAgents新增如下字符串值：格式为：名称、类型、数值

                 REG_SZ : SOFTWARE/Microsoft/Microsoft SQL Server/SNMP/CurrentVersion

      

       b2. 安装SQL Server SNMP扩展代理程序 (Sqlsnmp.dll)

               转到HKEY_LOCAL_MACHINE/SOFTWARE

               创建主键：Microsoft/MSSQLServer/ SNMP/CurrentVersion

               新增字符串值：Pathname:REG_EXPAND_SZ（注意，我第一次安装的时候就是因为没注意这

              个串值类型，导致没有安装成功。这个REG_EXPAND_SZ是“可扩充字符串值”）

              :D:/Program Files/Microsoft SQL Server/MSSQL/BINN/sqlsnmp.dll

    c.安装成功后，就可以使用SNMP了
       首先需要知道SQL SERVER的MIB，这个MIB默认放在D:/Program Files/Microsoft

        SQLServer/MSSQL/Binn/Mssql.mib
        我使用GETIF浏览MIB，那么就把Mssql.mib文件复制到Getif 2.3.1/Mibs/下改名字为
        mssql.txt。然后打开.index文件添加MSSQLSERVER-MIB mssql.txt到末尾保存。

   备注：我按照b项做没有成功，调试了很久都不行，也许是我运气差？一气之下找了台电脑，先安装SNMP协议再安装SQLSERVER，呵呵就搞定了。

 

B 我的代码

 取数据的函数，GetSnmpInfo 取一条数据， GetSnmpList取多条数据

function TSelfCheck.GetSnmpInfo(OID, IP :String): String; begin result := ''; try IdSNMP.Query.PDUType := PDUGetRequest; IdSnmp.QuickSend(OID, 'public' ,IP ,Result); except end; end; function TSelfCheck.GetSnmpList(OID, IP :String): TStringList; var i: integer; begin Result := TStringList.Create; try IdSNMP.Query.Clear; IdSNMP.Query.MIBAdd(OID,''); IdSNMP.Query.PDUType := PDUGetNextRequest; while IdSNMP.SendQuery do begin if Copy(IdSNMP.Reply.MIBOID[0], 1, Length(OID)) <> OID then Break; for I := 0 to IdSNMP.Reply.ValueCount - 1 do Result.Add(IdSNMP.Reply.Value[I]); IdSNMP.Query.Clear; IdSNMP.Query.MIBAdd(IdSNMP.Reply.ValueOID[0], ''); IdSNMP.Query.PDUType := PDUGetNextRequest; end; except end; end;   

 

 

  c.定时器

    我设定，每一分钟读取信息一次，然后把这些信息写到XML结构中去。

procedure TSelfCheck.OnTimer(Sender: TObject); var i: integer; p: pIP; RootNode, Node: IXMLNode; begin try timer.Enabled := false; if ipList.Count = 0 then Exit; Xml.Active := true; Xml.Version := '1.0'; Xml.Encoding := 'GB2312'; RootNode := Xml.AddChild('root'); RootNode.ChildValues['PcCount'] := ipList.Count; for i := 0 to ipList.Count - 1 do begin p := ipList[i]; Node := RootNode.AddChild('PC'+ IntToStr(i)); SelfCheckDataEvent(p.ip, p.pcType, Node); end; NotifyPresent(Xml); finally Xml.XML.Clear; Xml.Active := false; timer.Enabled := true; end; end; procedure TSelfCheck.AddIPList(ip: String; pcType: byte); var p: pIP; begin try new(p); p.ip := ip; p.pcType := pcType; ipList.Add(p); except end; end;

     ipList是一个TList的结构队列，其中的结构是p.ip是IP地址，p.pcType表示该pc是否装数据库。

在初始化时，使用AddIPList函数，增加所有查询的PC.

 

    d. 读取系统参数以及Sqlserver的参数

    d1.代码

 const //系统 PCNameOID = '1.3.6.1.2.1.1.5.0'; MemorySizeOID = '1.3.6.1.2.1.25.2.2'; CpuUseOID = '1.3.6.1.2.1.25.3.3.1.2.2'; //CPU利利用率 DiskLeablOID = '1.3.6.1.2.1.25.2.3.1.3'; DiskBlockSizeOID = '1.3.6.1.2.1.25.2.3.1.4'; //各个分区的簇大小 DiskBlockCountOID = '1.3.6.1.2.1.25.2.3.1.5'; //各个分区的簇个数 DiskUseBlockCountOID = '1.3.6.1.2.1.25.2.3.1.6'; //各个分区的簇的已用个数 //SqlServer SqlServerTableOID = '1.3.6.1.4.1.311.1.4.1.1.1'; //基本信息 SqlServerNameOID = '1.3.6.1.4.1.311.1.4.1.1.2.1.1'; //服务器名称 SqlServerLastStartTimeOID = '1.3.6.1.4.1.311.1.4.1.1.2.1.2'; //最后一次启动时间 SqlServerInfoTableOID = '1.3.6.1.4.1.311.1.4.1.1.6'; //参数信息 SqlServerDbNameOID = '1.3.6.1.4.1.311.1.4.1.1.5.1.2'; //数据库名称 procedure TSelfCheck.SelfCheckDataEvent(IP: String; pcType: Byte; var Node: IXMLNode); var St, _St, temSt, LableSt, DiskBlockSizeSt, DiskBlockCountSt, DiskUseBlockCountSt, DiskSizeSt, DiskUserSizeSt: TStringList; d: Double; i, j, m, Count: integer; sTem: String; SubNode: IXMLNode; begin try Node.ChildValues['IP'] := IP; //写ip地址到XML结构中 Node.ChildValues['pcType'] := pcType; //写pc类型 0：监控终端 1： sqlserver sTem := GetSnmpInfo(PCNameOID, IP); Node.ChildValues['PcName'] := sTem; //写电脑名称到XML sTem := GetSnmpInfo(CpuUseOID, IP); Node.ChildValues['CpuUsePer'] := sTem ; //写CPU占用率到XML St := GetSnmpList(MemorySizeOID, IP); if St.Count <> 0 then begin d := StrToFloatDef(St[0], 0); //写内存大小到XML d := d / 1000 /1000; Node.ChildValues['MemorySize'] := trim(Format('%8.1f', [d])); //? end; FreeAndNil(St); LableSt := GetSnmpList(DiskLeablOID, IP); //取得分区盘符 如“c:/系统盘” for i:= 0 to LableSt.Count - 1 do //去掉盘符的Label,只取一位如“c 、d” LableSt[i] := Copy(LableSt[i], 0,1); DiskBlockSizeSt := GetSnmpList(DiskBlockSizeOID, IP); //每个分区blocks的大小 DiskBlockCountSt := GetSnmpList(DiskBlockCountOID, IP); //每个分区blocks的个数 DiskUseBlockCountSt := GetSnmpList(DiskUseBlockCountOID, IP); //每个分区已经用了个数 DiskSizeSt := TStringList.Create; DiskUserSizeSt := TStringList.Create; for i := 0 to DiskBlockSizeSt.Count - 1 do begin if DiskBlockSizeSt[i] = '0' then Break; for j := 0 to DiskBlockCountSt.Count - 1 do begin if DiskBlockCountSt[j] = '0' then Continue; if i <> j then Continue; DiskSizeSt.Add(floattostr(StrToFloat