利用MOM简单实现短信告警功能

单位的MOM最近加了一个短信告警功能。短信用的是单位的短信平台，Windows应用加Oracle数据库。利用MOM发短信最后被抽象成了实现Oracle数据库连接并插入一条记录的过程。应用中想利用监控服务器的ODBC来实现连接Oracle，发现微软已经取消了Microsoft ODBC for Oracle的功能，让用户去找Oracle实现类似的功能。找到Oracle网站，第一次是单独下载了ODBC然后在系统中注册，本地运行没有问题，但是利用MOM实现机器登录就报错。后来发现是因为MOM2005是32位软件，在远程机器是64位的情况下，调用的默认是32位的ODBC，于是在被监控对象是64位的机器上只能安装32位的Oracle ODBC来实现。后调试成功。

Dim mu_ConnString, mu_InsertSql

mu_ConnString = “Provider=OraOLEDB.Oracle;Data Source=ODBC名称;User Id=账号;Password=密码”

mu_InsertSql = “SQL语句”

Dim objConnection

set objConnection = CreateObject(“ADODB.Connection”)

objConnection.Open mu_ConnString ‘打开数据库

objConnection.Execute mu_InsertSql