Solarwinds+飞信报警

一、       软件环境（Windows 2003为例）
Solarwinds+飞信机器人

二、         安装过程
飞信机器人下载包地址:

其中支持库和安装包如下：

fetion20090406003-win32.rar解压缩你指定的目录，支持库library_win32.rar的内容解压缩后复制至c:\windows\system32\

 

     该程序使用 visual studio 2005 开发，如果不能运行，请先安装 visual studio2005的

     支持包

三、         配置过程
   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