第六十五章 使用 SNMP 监控 IRIS - 用户定义的 SNMP 监视器类示例
本节介绍如何定义可通过 SNMP 查询的用户应用程序监视器类的示例。应用程序监视器仅包括 SNMP 数据中具有 %Monitor 数据类型的属性。
Example Sample Class
以下是此示例的示例类：
Class SNMP.Example Extends %Monitor.Adaptor
{
/// Give the application a name. This allows you to group different
/// classes together under the same application level in the SNMP MIB.
/// The default is the same as the Package name.
Parameter APPLICATION = "MyApp";
/// This groups a set of properties together at the "table" level of the
/// SNMP MIB hierarchy. The default is the Class name.
Parameter GROUPNAME = "MyTable";
/// An integer metric counter
Property Counter1 As %Monitor.Integer;
/// Another integer metric counter
Property Counter2 As %Monitor.Integer;
/// A status indicator as a string data type
Property Status As %Monitor.String;
/// The method is REQUIRED. It is where the Application Monitor
/// calls to collect data samples, which then get picked up by the
/// ^SNMP server process when requested.
Method GetSample() As %Status
{
set ..Counter1=$r(200)
set ..Counter2=200+$r(100)
set n=$r(4)
set ..Status=$s(n=1:"Crashed",n=2:"Warning",n=3:"Error",1:"Normal")
Quit $$$OK
}
}
在用户命名空间中编译此类之前， IRIS 必须将支持类加载到命名空间中；需要这些类来存储 SNMP 的数据样本。
要加载这些类，请运行 ^%SYSMONMGR，如本指南“使用系统监视器”一章中使用 ^%SYSMONMGR 管理应用程序监视器中所述，并执行以下操作：
- 选择选项
2，管理监视器类。 - 选择选项
3，Register Monitor System Classes。
编译示例类时，它会创建 SNMP.Sample.Example 类来存储示例数据。
重要提示：不要明确删除生成的示例类；如果同时选择删除应用监控和生成的示例类，虽然删除了监控类例程，但示例类例程仍然存在，这会导致错误。为确保正确删除所有示例类例程，只删除生成它的应用程序监视器类；当您删除监视器类时，监视器类和生成的示例类以及这两个类的相关例程都会被删除。例如，要删除示例类（例如 SNMP.Sample.Example），请使用管理门户删除生成它的监视器类（即 SNMP.Example）。
运行 ^%SYSMONMGR 以激活示例类并启动应用程序监视器以收集示例：
- 选择选项 2，管理监视器类。
- 选择选项 1，激活/停用监视器类。
- 要查看已注册监视器类的编号列表，请输入
?。 - 输入要激活的监控类的数量；例如，要激活名为
SNMP.Example的用户定义类，请在类名旁边输入数字。 - 选择选项 6，
Exit（返回到Application Monitor主菜单）。 - 选择选项 1，管理应用程序监视器。
- 选择选项 1，启动应用程序监视器。
- 选择选项 5，
Exit（返回到Application Monitor主菜单）。 - 选择选项 6，
Exit（退出Application Monitor主菜单）。
注意：有关配置和使用应用程序监视器的信息，请参阅本指南“使用系统监视器”一章中的应用程序监视器。
Example of Creating a User MIB
要创建 SNMP MIB，请从 %SYS 命名空间运行 MonitorTools.SNMP:CreateMIB 方法
该方法的输入参数类似于以下内容：
CreateMIB("MyApp","USER",99990,1,"mycorp","myapp","mc","MC-MYAPP","Unknown",1)
重要提示：请勿使用 99990 作为生产企业 ID；每个组织都应向 IANA 注册自己的 ID。
USER>set $namespace = "%SYS"
%SYS>Do ##class(MonitorTools.SNMP).CreateMIB("MyApp","USER",99990,1,"mycorp",
"myapp","mc","MC-MYAPP","Unknown",1)
Create SNMP structure for Application - MyApp
Group - MyTable
Counter1 = Integer
Counter2 = Integer
Status = String
Create MIB file for MyApp
Generate table MyTable
Add object Counter1
Add object Counter2
Add object Status
%SYS>
这会在默认目录 (install-dir\mgr\User) 中创建 MC-MYAPP.MIB 文件，可以将其加载到 SNMP 管理应用程序中。
注意：可能需要在系统上重新启动 SNMP 主代理和 IRIS ^SNMP 服务，然后才能识别此 MIB。
--
-- MIB file generated for mcMyApp product.
--
-- Sep 16, 2008
--
MC-MYAPP DEFINITIONS ::= BEGIN
IMPORTS
MODULE-IDENTITY, OBJECT-TYPE, NOTIFICATION-TYPE,
Counter32, Gauge32, Integer32
FROM SNMPv2-SMI
DisplayString
FROM SNMPv2-TC
enterprises
FROM RFC1155-SMI
cacheSysIndex
FROM ISC-IRIS;
mcMyApp MODULE-IDENTITY
LAST-UPDATED "200809161700Z"
ORGANIZATION "mycorp"
CONTACT-INFO "
Unknown"
DESCRIPTION ""
::= { mycorp 1 }
mycorp OBJECT IDENTIFIER ::= { enterprises 16563 }
myappObjects OBJECT IDENTIFIER ::= { mcMyApp 1 }
--
-- Begin tables
--
-- Table myappMyTable
myappMyTable OBJECT-TYPE
SYNTAX SEQUENCE OF myappMyTableR
MAX-ACCESS not-accessible
STATUS current
DESCRIPTION
""
::= { myappObjects 1 }
myappMyTableR OBJECT-TYPE
SYNTAX myappMyTableR
MAX-ACCESS not-accessible
STATUS current
DESCRIPTION
"Conceptual row for MyTable table."
INDEX { cacheSysIndex }
::= { myappMyTable 1 }
myappMyTableR ::=
SEQUENCE {
myappCounter1 Integer32
myappCounter2 Integer32
myappStatus DisplayString
}
myappCounter1 OBJECT-TYPE
SYNTAX Integer32
MAX-ACCESS read-only
STATUS current
DESCRIPTION
""
::= { myappMyTableR 1 }
myappCounter2 OBJECT-TYPE
SYNTAX Integer32
MAX-ACCESS read-only
STATUS current
DESCRIPTION
""
::= { myappMyTableR 2 }
myappStatus OBJECT-TYPE
SYNTAX DisplayString
MAX-ACCESS read-only
STATUS current
DESCRIPTION
"Status"
::= { myappMyTableR 3 }
-- End of MyTable table
myappTraps OBJECT IDENTIFIER ::= { mcMyApp 2 }
-------------------------------------------------------------
END