This module provides data for monitoring the run-time state of BizTalk application artifacts--specifically, the number of suspended instances per artifact.
This is the interval (in seconds) at which the script associated with the module is run.
StartDateTime
string
$Config/StartDateTime$
Start Date
This is the date from which suspended instances are taken into account. Along with end date this forms a window between which all suspended instances for an artifact are taken into account for health computation.
EndDateTime
string
$Config/EndDateTime$
End Date
This is the date till which suspended instances are taken into account. Along with start date this forms a window between which all suspended instances for an artifact are taken into account for health computation.
SuccessLimit
int
$Config/SuccessLimit$
Success Limit
Monitor state is success if the number of suspended instances is less than or equal to this value.
WarningLimit
int
$Config/WarningLimit$
Warning Limit
Monitor state is warning if the number of suspended instances is greater than success limit and less than or equal to this value. Monitor state is error if the number of suspended instances is greater than this value.
LogSuccessEvent
string
$Config/LogSuccessEvent$
Log Success Event
An event is logged based on successful completion of the script associated with the module when value is set to 'true'.
TimeoutSeconds
int
$Config/TimeoutSeconds$
Timeout Seconds
This is the timeout (in seconds) after which execution of the script associated with the module is terminated if not yet completed.
'This script generates monitoring data for BizTalk application artifact runtime state
'based on number of suspended instances per artifact. Each artifact will be in one of
'the three monitoring states - success, warning, error.
Dim oAPI, oBagState
Dim oParams, ApplicationID, ArtifactType, StartDateTime, EndDateTime, SuccessLimit, WarningLimit, bLogSuccessEvent
Dim strQuery, strArtifactCategory, MgmtDbName, MgmtDbServerName
Dim strMonitorStatus, strErrorDetail
Dim dtStart, strMessage
dtStart = Now
Set oParams = WScript.Arguments
If oParams.Count < 9 then
Wscript.Quit -1
End if
'warning limit should always be >= success limit
if WarningLimit < SuccessLimit then
Wscript.Quit -1
End if
if ArtifactType = "" then
ArtifactType = "0"
end if
if StartDateTime = "" then
StartDateTime = #1/1/1753#
end if
if EndDateTime = "" then
EndDateTime = Now()
end if
strMonitorStatus = "0"
strErrorDetail = ""
Set oAPI = CreateObject("Mom.ScriptAPI")
Set oBagState = oAPI.CreatePropertyBag()
Dim SPDictionary
Set SPDictionary = CreateObject("Scripting.Dictionary")
Sub GetMonitorStatus
Dim key, count
for each key in SPDictionary.Keys
count = CInt(SPDictionary.Item(key))
if count <= SuccessLimit then
oBagState.AddValue key & "/State", 2
strMessage = strMessage & " , " & key & "/State:2 " & count
else
if count <= WarningLimit then
oBagState.AddValue key & "/State", 1
strMessage = strMessage & " , " & key & "/State:1 " & count
else
oBagState.AddValue key & "/State", 0
strMessage = strMessage & " , " & key & "/State:0 " & count
end if
end if
Next
If bLogSuccessEvent Then
CreateEvent EVENTID_SUCCESS, EVENT_TYPE_INFORMATION, strMessage
strMessage = "The script '" & SCRIPT_NAME & " : " & strArtifactCategory & "' completed successfully in " & DateDiff("s", dtStart, Now) & " seconds."
CreateEvent EVENTID_SUCCESS, EVENT_TYPE_INFORMATION, strMessage
End If
oAPI.AddItem oBagState
Call oAPI.ReturnItems
End Sub
Function GetSuspendedInstances()
Dim defaultConnStr
defaultConnStr = "Server=" & MgmtDbServerName & ";Database=" & MgmtDbName & ";Trusted_Connection=yes"
Dim objResults1, objResults2
Dim ObjError
Set ObjError = New Error
Dim cnADOConnection
Set cnADOConnection = MomCreateObject("ADODB.Connection")
cnADOConnection.Provider = "SQLNCLI11"
cnADOConnection.ConnectionTimeout = 15
ObjError.Clear
On Error Resume Next
cnADOConnection.Open defaultConnStr
ObjError.Save
On Error Goto 0
If 0 <> Err.number then
GetSuspendedInstances = MGMTDB_CONNECT_FAILURE
Exit Function
End If
ObjError.Clear
On Error Resume Next
set objResults1 = cnADOConnection.Execute("select DBServerName, DBName from adm_MessageBox with (NoLock)")
ObjError.Save
On Error Goto 0
If ObjError.Number <> 0 Then
GetSuspendedInstances = MGMTDB_QUERY_FAILURE
If (objResults1 <> null) Then objResults1.Close
Exit Function
End If
ObjError.Clear
On Error Resume Next
set objResults2 = cnADOConnection.Execute(strQuery)
ObjError.Save
On Error Goto 0
If ObjError.Number <> 0 Then
GetSuspendedInstances = MGMTDB_QUERY_FAILURE
If (objResults1 <> null) Then objResults1.Close
If (objResults2 <> null) Then objResults2.Close
Exit Function
End If
Dim command
Dim cnADOMsgBoxConnection
Set cnADOMsgBoxConnection = MomCreateObject("ADODB.Connection")
cnADOMsgBoxConnection.Provider = "SQLNCLI11"
cnADOMsgBoxConnection.ConnectionTimeout = 15
Do While Not objResults1.EOF
defaultConnStr = "Server=" & CStr(objResults1(0)) & ";Database=" & CStr(objResults1(1)) & ";Trusted_Connection=yes"
ObjError.Clear
On Error Resume Next
cnADOMsgBoxConnection.Open defaultConnStr
ObjError.Save
On Error Goto 0
If 0 <> Err.number then
If (objResults1 <> null) Then objResults1.Close
If (objResults2 <> null) Then objResults2.Close
GetSuspendedInstances = MSGBOXDB_CONNECT_FAILURE
Exit Function
End If
Do While Not objResults2.EOF
params(9) = CStr(objResults2(0))
set command = CreateObject("ADODB.Command")
command.ActiveConnection = cnADOMsgBoxConnection
command.commandText = "ops_OperateOnInstances"
command.commandType = 4
command.Parameters.Refresh
dim param, i
For i = 0 To UBound(params)
command.Parameters(i+1).Value = params(i)
Next
Dim rs
set rs = command.Execute
If Not (SPDictionary.Exists(CStr(objResults2(1)))) Then
SPDictionary.Add CStr(objResults2(1)), CInt(rs(0))
else
SPDictionary.Item(CStr(objResults2(1))) = SPDictionary.Item(CStr(objResults2(1))) + CInt(rs(0))
End If
rs.Close
objResults2.MoveNext
Loop
cnADOMsgBoxConnection.Close
objResults1.MoveNext
Loop
cnADOConnection.Close
End Function
Function GetMonitorConfig()
Select Case ArtifactType
Case "0" 'All application artifacts
strQuery = "select orc.uidGUID as GUID, orc.nvcFullName+N', '+asm.nvcName+N', '+asm.nvcVersion+N', '+asm.nvcCulture+N', '+asm.nvcPublicKeyToken as Name from bts_orchestration orc with (NoLock) " & _
"inner join bts_item itm with (NoLock) on orc.nItemID = itm.id " & _
"inner join bts_assembly asm with (NoLock) on asm.nID = itm.AssemblyId " & _
"left join adm_Host hs with (NoLock) on orc.nAdminHostID = hs.Id " & _
"where asm.nApplicationID = " & ApplicationID & _
"union " & _
"select uidGUID as GUID, nvcName as Name from bts_sendport with (NoLock) where nApplicationID = " & ApplicationID & _
"union " & _
"select uidGUID as GUID, nvcName as Name from bts_receiveport with (NoLock) where nApplicationID = " & ApplicationID
strArtifactCategory = "All"
Case "1" 'Orchestration
if ApplicationID = -1 then
strQuery = "select orc.uidGUID as GUID, orc.nvcFullName+N', '+asm.nvcName+N', '+asm.nvcVersion+N', '+asm.nvcCulture+N', '+asm.nvcPublicKeyToken as Name from bts_orchestration orc with (NoLock) " & _
"inner join bts_item itm with (NoLock) on orc.nItemID = itm.id " & _
"inner join bts_assembly asm with (NoLock) on asm.nID = itm.AssemblyId " & _
"left join adm_Host hs with (NoLock) on orc.nAdminHostID = hs.Id"
else
strQuery = "select orc.uidGUID as GUID, orc.nvcFullName+N', '+asm.nvcName+N', '+asm.nvcVersion+N', '+asm.nvcCulture+N', '+asm.nvcPublicKeyToken as Name from bts_orchestration orc with (NoLock) " & _
"inner join bts_item itm with (NoLock) on orc.nItemID = itm.id " & _
"inner join bts_assembly asm with (NoLock) on asm.nID = itm.AssemblyId " & _
"left join adm_Host hs with (NoLock) on orc.nAdminHostID = hs.Id " & _
"where asm.nApplicationID = " & ApplicationID
end if
strArtifactCategory = "Orchestration"
Case "2" 'Send Port
if ApplicationID = -1 then
strQuery = "select uidGUID as GUID, nvcName as Name from bts_sendport with (NoLock)"
else
strQuery = "select uidGUID as GUID, nvcName as Name from bts_sendport with (NoLock) where nApplicationID = " & ApplicationID
end if
strArtifactCategory = "Send Port"
Case "3" 'Receive Port
if ApplicationID = -1 then
strQuery = "select uidGUID as GUID, nvcName as Name from bts_receiveport with (NoLock)"
else
strQuery = "select uidGUID as GUID, nvcName as Name from bts_receiveport with (NoLock) where nApplicationID = " & ApplicationID
end if
strArtifactCategory = "Receive Port"
End Select
End Function
Sub CreateEvent(lEventID, lEventType, strMessage)
oAPI.LogScriptEvent SCRIPT_NAME, lEventID, lEventType, strMessage
End Sub
Function GetWMICollection(TargetComputerToUse, strNamespace, strQuery)
Dim WbemSrv, WbemObjectSet
Set WbemSrv = Getobject("winmgmts:{impersonationLevel=impersonate}!\\" & TargetComputerToUse & strNamespace)
Set WbemObjectSet = WbemSrv.ExecQuery(strQuery)
Set GetWMICollection = WbemObjectSet
End Function
Function MomCreateObject(ByVal sProgramId)
Dim oError
Set oError = New Error
On Error Resume Next
Set MomCreateObject = CreateObject(sProgramId)
oError.Save
On Error Goto 0
If oError.Number <> 0 Then ThrowScriptError "Unable to create automation object '" & sProgramId & "'", oError
End Function
Class Error
Private m_lNumber
Private m_sSource
Private m_sDescription
Private m_sHelpContext
Private m_sHelpFile
Public Sub Save()
m_lNumber = Err.number
m_sSource = Err.Source
m_sDescription = Err.Description
m_sHelpContext = Err.HelpContext
m_sHelpFile = Err.helpfile
End Sub
Public Sub Raise()
Err.Raise m_lNumber, m_sSource, m_sDescription, m_sHelpFile, m_sHelpContext
End Sub
Public Sub Clear()
m_lNumber = 0
m_sSource = ""
m_sDescription = ""
m_sHelpContext = ""
m_sHelpFile = ""
End Sub
Public Default Property Get Number()
Number = m_lNumber
End Property
Public Property Get Source()
Source = m_sSource
End Property
Public Property Get Description()
Description = m_sDescription
End Property
Public Property Get HelpContext()
HelpContext = m_sHelpContext
End Property
Public Property Get HelpFile()
HelpFile = m_sHelpFile
End Property
End Class </Script></Contents>
<Unicode>1</Unicode>
</File>
</Files>
</DataSource>
</MemberModules>
<Composition>
<Node ID="DS"/>
</Composition>
</Composite>
</ModuleImplementation>
<OutputType>System!System.PropertyBagData</OutputType>
</DataSourceModuleType>
Home
Show References: