Solarwinds+飞信报警

ly_cyz

一、       软件环境（Windows 2003为例）
Solarwinds+飞信机器人
二、         安装过程
飞信机器人下载包地址:
http://www.it-adv.net/fetion/downng/fetion20090406003-win32.rar
其中支持库和安装包如下：
http://www.it-adv.net/fetion/downng/library_win32.rar
fetion20090406003-win32.rar解压缩你指定的目录，支持库library_win32.rar的内容解压缩后复制至和fetion.exe同一目录即可
三、         配置过程
   1. Solarwinds报警配置Node状态监控
     

         2. 选中“Page me when a Node goes down”，按照你的需要配置监控的服务器， 报警的条件，监控的周期等，然后按照下图配置满足报警要求后的Action
添加2个Alert Action:
Alert Action 1：log the alert to a file将报警保存为alter.log（可随意指定文件名和目录）
Alert Action 2：Execute an external VBScript 指定要执行的VbScript，请将VbScript放在fetion的安装目录下，因为下面的VbScript指定的路径是相对路径






备注：请一定要先设置报警保存的log，然后在设置要执行的VbScript，因为只有先生成log，然后在执行VbScript读取log中的短信报警信息，配置生效后应该先生成log然后执行VBScript发送短信
3.alert.log样本如下：
Alert: test5.com is Up
Reset: test5.com is Up     

4.VBScript如下：

logfile="C:\fetion\alert.log"   '定义报警log请输入Solarwinds中的log设置
fetion_exec="C:\fetion20090406003-win32\install\fetion.exe" '定义fetion.exe所在位置
fetion_user="135XXXXXXX" '定义飞信的登陆用户名或手机号
fetion_passwd="cyzXXXXXX"  '定义飞信的登陆密码
send_buddy="135XXXXX,134XXXXXXX" '定义短信的接收人，需在你飞信好友列表中
Set objFS = CreateObject ("Scripting.FileSystemObject")
objFS.CreateTextFile("mess.txt")
Set objNF = objFS.OpenTextFile("mess.txt",8)

Dim arrFileLines()
i = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(logfile, 1)

Do Until objFile.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close
l = Ubound(arrFileLines)
objNF.writeline ""&arrFileLines(l)
objNF.close  'close mess.txt
Set objShell = CreateObject("Wscript.Shell")
if objFS.fileExists("mess.txt")=True then
objShell.run "cmd /C "&fetion_exec&" --mobile="&fetion_user&" --pwd="&fetion_passwd&" --to="&send_buddy&" --file-gb=mess.txt",4,True
end if


本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u/14353/showart_2055424.html