Wednesday, 7 September 2011


VB script for Message download from Biztalk Database

Dear All,






Below is the script which is very helpful specifically download messages from Biztalk (Specifically 2009, because biztalk 2009 don't have HAT, so it is not possible to download bulk messages from biztalk Database).

I really wants to thank Shankar balaji, baskar chandran and vincent choo(he is the author ofhttp://vincentchoo.wordpress.com/, where we took the main script and this script will download the message from biztalk db and terminate those instances). But we modified vb script will not terminate any instance,just download the message from biztalk db. We tested and it is went through success fully and now I am sharing this script with you all.

Copy the below line and paste it Savemsg.bat and save it
cscript savemsg.vbs -SR "Orchestration Name"

Copy the below script and paste it in a file called savemsg.vbs and save it

before running the script create folder "D:\savemessage\" or edit

msg.SaveToFile "D:\savemessage\" line in the script and finally you are ready to run.



' save_messages.vbs
' Enter save_messages.vbs with no arguments from a command prompt for usage
' This script needs to be run under a user account that is a member of the BizTalk Administrators
' group. This script needs to be run on a machine that is configured with BizTalk administration
' tools.

dim objBtsWmiNS, objMsg, svcinsts, inst, msg, ndx, size

Dim aryHostNames()
Dim aryObjQueues()
Dim aryHostBatchSize()

Dim strKey2Instance
Dim strQuery2Msg
Dim strServiceName

On Error Resume Next
Dim objArgs: Set objArgs = WScript.Arguments
If ( objArgs.Count = 0 OR objArgs.Count > 2) Then
PrintUsage()
wscript.quit 0
End If

wmiQuery = ""

'ServiceStatus = 16 – 'Completed With Discarded Messages' in BizTalk Server 2004
'ServiceStatus = 32 – 'Suspended (not resumable)'
'ServiceStatus = 4 – 'Suspended (resumable)'
'ServiceClass = 64 – 'Routing Failure Report'
'ErrorId = "0xC0C01B4C" – is how 'Completed With Discarded Messages' are exposed in BizTalk Server 2006

If (objArgs(0) = "-Z" OR objArgs(0) = "-z") Then
wmiQuery = "select * from MSBTS_serviceinstance where ServiceStatus=16 OR ErrorId='0xC0C01B4C'"
End If

If (objArgs(0) = "-A" or objArgs(0) = "-a") Then
wmiQuery = "select * from MSBTS_serviceinstance where ServiceStatus=4 OR ServiceStatus=32 OR ServiceStatus=16 OR ErrorId='0xC0C01B4C' OR ServiceClass=64"
End If

If (objArgs(0) = "-SR" or objArgs(0) = "-sr") Then
wmiQuery = "select * from MSBTS_serviceinstance where ServiceStatus=4"
End If

If (objArgs(0) = "-SNR" or objArgs(0) = "-snr") Then
wmiQuery = "select * from MSBTS_serviceinstance where ServiceStatus=32"
End If

If (objArgs(0) = "-DIS" or objArgs(0) = "-dis") Then
wmiQuery = "select * from MSBTS_serviceinstance where ServiceClass=32 AND ServiceStatus=8"
'ServiceClass = 32 'Isolated Adapter
'ServiceStatus = 8 'Dehydrated
End If

msgbox wmiQuery

saveMessagesBeforeTermination = True

If ( objArgs.Count > 1) Then
strServiceName = objArgs(1)
End If

If(wmiQuery = "") Then
PrintUsage()
wscript.quit 0
End If

wscript.echo "–>Connecting to BizTalk WMI namespace"
Set objBtsWmiNS = GetObject("WinMgmts:{impersonationLevel=impersonate, (security)}\\.\root\MicrosoftBizTalkServer")
If Err <> 0 Then
CheckWMIError
wscript.quit 0
End If

wscript.echo "–>Getting BizTalk host collection"
Set hosts = objBtsWmiNS.ExecQuery("select * from MSBTS_HostSetting")
If Err <> 0 Then
CheckWMIError
wscript.quit 0
End If

hostCount = hosts.count

wscript.echo "hostcount -> " & hostcount

ReDim aryHostNames(8)
ReDim aryObjQueues(8)
ReDim aryHostBatchSize(8)

wscript.echo "–>Retrieve BizTalk host names and loading host queues"
ndx = 0
For Each host in hosts
wscript.echo "Found host " & host.Properties_("Name")
aryHostNames(ndx) = host.Properties_("Name")
Set aryObjQueues(ndx) = objBtsWmiNS.Get("MSBTS_HostQueue.HostName=""" & aryHostNames(ndx) & """")
If Err <> 0 Then
CheckWMIError
wscript.quit 0
End If
ndx = ndx + 1
Next

wscript.echo "–>Getting collection of service instances"
Set svcinsts = objBtsWmiNS.ExecQuery(wmiQuery)

'Iterate through instances and save them in host-specific arrays.

wscript.echo "–>Start iterating service instances"
totalCount = 0
For Each inst in svcinsts
If (objArgs.Count = 1 Or (objArgs.Count > 1 And strServiceName = inst.Properties_("ServiceName") ) ) Then

wscript.echo "Found suspended instance """ & inst.Properties_("ServiceName") & """ on host " & inst.Properties_("HostName")
'Resolve host index
For hostIdx = 0 To 8
If aryHostNames(hostIdx) = inst.Properties_("HostName") Then
Exit For
End If
Next

'16 is an internal service class that cannot be terminated
If 16 = inst.Properties_("ServiceClass") Then
wscript.echo "Skipping BizTalk internal service instances (they cannot be terminated anyway)"
Else
'64 is a routing failure report and doesn't have messages that can be saved
If 64 = inst.Properties_("ServiceClass") Or 16 = inst.Properties_("ServiceClass") Then
saveMessagesBeforeTermination = False
End If

errorCountSavingMessages = 0
If saveMessagesBeforeTermination Then
strQuery2Msg = "select * from MSBTS_MessageInstance where ServiceInstanceID=""" & inst.Properties_("InstanceId") & """"
Set msgInsts = objBtsWmiNS.ExecQuery(strQuery2Msg)
For Each msg in msgInsts
msg.SaveToFile "D:\savemessage\"
If Err <> 0 Then
CheckWMIError
wscript.echo "Failed to save MSBTS_MessageInstance"
wscript.echo Err.Description & Err.Number
errorCountSavingMessages = errorCountSavingMessages + 1
Else
wscript.echo "Saved message " & msg.Properties_("MessageInstanceID")
End If
Next
End If

totalCount = totalCount + 1
End If

End If
Next

' Delete whatever is left
'For hostIdx = 0 To hostCount-1
'If aryHostBatchSize(hostIdx) > 0 Then
'TerminateAccumulatedInstacesForHost hostIdx
'End If
'Next

wscript.echo "SUCCESS> " & totalCount & " instances were found and attempted to be saved"

'This subroutine deals with all errors using the WbemScripting object.
'Error descriptions are returned to the user by printing to the console.
Sub CheckWMIError()

If Err <> 0 Then
On Error Resume Next
Dim strErrDesc: strErrDesc = Err.Description
Dim ErrNum: ErrNum = Err.Number
Dim WMIError : Set WMIError = CreateObject("WbemScripting.SwbemLastError")

If (TypeName(WMIError) = "Empty" ) Then
wscript.echo strErrDesc & " (HRESULT: " & Hex(ErrNum) & ")."
Else
wscript.echo WMIError.Description & "(HRESULT: " & Hex(ErrNum) & ")."
Set WMIError = nothing
End If

'wscript.quit 0
End If

End Sub

Sub PrintUsage()
wscript.echo "Usage:"
wscript.echo "cscript save_messages.vbs < -Z | -A | -DIS | -SR | -SNR > [Port/Orchestration name]"
wscript.echo
wscript.echo " -Z saves all ""Zombie"" instances (e.g. completed with discarded messages)"
wscript.echo " -A saves all suspended and zombie instances as well as all routing failure reports"
wscript.echo " -SR saves suspended resumable instances only"
wscript.echo " -SNR saves suspended non-resumable instances only"
wscript.echo " -DIS saves all dehydrated 'isolated adapter' instances"
wscript.echo " optionally supply the name of the orchestration or port name to filter on specific instances"
wscript.echo
wscript.echo " Ensure that the C:\Temp folder exists before running as that is where it saves the instances"
wscript.echo
wscript.echo " Example: cscript save_messages.vbs -z ""E-Reporting Data Transform Port"""
wscript.echo
End Sub

No comments:

Post a Comment