محول MQSeries استرداد لم تعد الرسائل من إدارة قوائم انتظار MQSeries متفاوت المسافات عند فشل إدارة قائمة الانتظار على عقده كتلة مختلفة

ينطبق على: BizTalk Server 2016 EnterpriseBizTalk Server 2013 R2 EnterpriseBizTalk Server 2013 Enterprise

الأعراض


يمكنك تكوين محول Microsoft BizTalk Server ل MQSeries الإصدار 2.0 لتلقي الرسائل من إدارة قوائم انتظار MQSeries متفاوت المسافات. إذا فشل إدارة قائمة الانتظار على عقده كتلة مختلفة، استرداد المحول MQSeries لم تعد الرسائل من قائمة الانتظار MQSeries متفاوت المسافات. عند حدوث هذه المشكلة، يتم تسجيل الحدث التالي في سجل التطبيق:
نوع الحدث: تحذير
خادم BizTalk 20 مصدر الحدث:xx
خادم BizTalk 20 فئة الحدث:xx
معرف الحدث: 5740
التاريخ: 31/12/2006 الوقت: الساعة 11:12:13
المستخدم: n/A
Computer: 
الوصف: رفع المحول "MQSeries" رسالة إعلام بخطأ. تفاصيل "حدث خطأ عند فتح إدارة قائمة الانتظار اسم كود السبب ميقمنامي = = 2059.".
ملاحظة: في إدخال السجل هذا، يمثل <20xx> رقم الإصدار الفعلي و <ميقمنامي> اسم الفعلي إدارة قائمة الانتظار.

الحل البديل


للتغلب على هذه المشكلة، إنشاء مهمة مجدولة على كلا العقدتين. للقيام بذلك، اتبع الخطوات التالية:
 
  1. حفظ التعليمات البرمجية التالية في ملف، وقم بتسمية الملف Shutdownmqadapter.vbs. يمكنك حفظ الملف إلى القرص أي خلاف قرص النخبة.

    ل BizTalk Server 2004
    Option ExplicitOn Error Resume NextDim sComputerName, oWMIService, colRunningServices, oService, colProcessList, objProcessIf Wscript.Arguments.Count = 0 Then   sComputerName = "."   Call ServStat   Wscript.Quit   End IfSub ServStatSet 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 IfNextEnd Sub

    لعام 2016 خادم BizTalk BizTalk Server 2013 R2، 2013 خادم BizTalk، BizTalk Server 2010، BizTalk Server 2009، BizTalk Server 2006 R2 و BizTalk Server 2006
    Option ExplicitOn Error Resume NextDim sComputerName, oWMIService, colRunningServices, oService, colProcessList, objProcessIf Wscript.Arguments.Count = 0 Then   sComputerName = "."   Call ServStat   Wscript.QuitEnd IfSub ServStatSet 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, "C691D827-19A0-42E2-B5E8-2892401481F5")>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 IfNextEnd Sub
  2. في "لوحة التحكم"، افتح المهمة المجدولة، ومن ثم انقر فوق إضافة مهمة مجدولة لإنشاء مهمة مجدولة لتعمل Shutdownmqagent.vbs يوميا.

    ملاحظة: يجب تعيين الجدول أن تبدأ في منتصف الليل وكرر كل دقيقة لمدة 24 ساعة.

مزيد من المعلومات


المعلومات الواردة في وثائق المنتج حول تجميع التطبيق مقساجينت غير صحيحة. إذا كان الخادم MQSeries تتجمع على خدمة نظام المجموعة ل Microsoft، لم تكن للكتلة التطبيق مقساجينت.