MOM监视BizTalk文件夹队列

之前写过VBS监控队列的脚本。在MOM里边监控队列和VBS可以说是大同小异的，只需要在开头定义好事件，然后在加上把事件传给MOM的函数就好。以下是例子，这个MOM脚本的目的是监控文件的文件数然后根据设定的阀值把相应事件传给MOM：

Const EVENT_TYPE_SUCCESS = 0
Const EVENT_TYPE_ERROR = 1
Const EVENT_TYPE_WARNING = 2
Const EVENT_TYPE_INFORMATION = 4
Const EVENT_TYPE_AUDITSUCCESS = 8
Const EVENT_TYPE_AUDITFAILURE = 16

Const CountMax = 1

Set fso=createobject("Scripting.FileSystemObject")
Set objFolder=fso.GetFolder("C:I386")

If objFolder.Files.count >= CountMax Then
CreateEvent 100,EVENT_TYPE_ERROR,"队列轮询","发生积压！"& objFolder.Files.count &""
Else
CreateEvent 200,EVENT_TYPE_SUCCESS,"队列轮询","正常！"
End If

Sub CreateEvent(intEventNumber,intEventType,strEventSource,strEventMessage)
    Set objEvent = ScriptContext.CreateEvent()
    objEvent.EventSource = strEventSource
    objEvent.EventNumber = intEventNumber
    objEvent.EventType = intEventType
    objEvent.Message = strEventMessage
    ScriptContext.Submit objEvent
End Sub

其中CountMax是阀值，这个阀值其实可以做为参数传进来，我会在以后说。而接下来的C:I386是需要监控的文件夹路径。

欢迎交流～