The BizTalk Server Adapter for MQSeries version 2.0 no longer retrieves messages from a clustered MQSeries queue manager when the queue manager fails over to a different cluster node (893059)

WORKAROUND

1. Save the following code in a file, and name the file Shutdownmqadapter.vbs. You can save the file in any disk other than the quorum disk.

   Option Explicit
   On Error Resume Next
   Dim sComputerName, oWMIService, colRunningServices, oService, colProcessList, objProcess
   If Wscript.Arguments.Count = 0 Then
   	sComputerName = "."
   	Call ServStat
   	Wscript.Quit
   End If
   
   
   
   Sub ServStat
   Set oWMIService  = GetObject("winmgmts:" _
   	& "{impersonationLevel=impersonate}!\\" & sComputerName& "\root\cimv2")
   Set colRunningServices = oWMIService.ExecQuery _
   	("Select * from Win32_Service where DisplayName='Distributed Transaction Coordinator'")
   For Each oService in colRunningServices
   	'Wscript.Echo oService.DisplayName  & VbTab & oService.State
   	if (oService.State="Stopped") Then
   		'Wscript.Echo "Stopped"
   		' find the dllhost
   		Set colProcessList = oWMIService.ExecQuery ("SELECT * FROM Win32_Process WHERE Name = 'DLLHOST.EXE'")
   		For Each objProcess in colProcessList
   			if inStr(objProcess.CommandLine, "6D06157A-730B-4CB3-BD11-D48AC6B8A4BB")>0 then
   				'Wscript.Echo objProcess.ProcessId
   				Dim objShell
   				Set objShell = CreateObject("WScript.Shell")
   				objShell.Run "cmd /k kill -f " & objProcess.ProcessId & "& exit"
   				WScript.Quit 
   			end if
   
   		Next
   
   	end if
   Next
   
   End Sub

2. In Control Panel, open Scheduled Task, and then click Add Scheduled Task to create a new scheduled task to run Shutdownmqagent.vbs daily. The schedule should be set to start at midnight and to repeat every 1 minute for 24 hours.