BizTalk priority-based message processing improvement (319450)

MORE INFORMATION

1. Use either the Services Microsoft Management Console (MMC) or the BizTalk Server Administrator to stop BizTalk Server. To use the Services MMC on Microsoft Windows 2000, follow these steps:
   
   
   1. Click Start, point to Settings, click Control Panel, and then double-click Administrative Tools.
   2. Click Services, double-click System services, and then double-click BizTalk Messaging services to stop or restart the BizTalk Messaging Service.
   To use the Services MMC on Microsoft Windows XP, follow these steps:
   
   
   1. Click Start, click Control Panel, click Performance and Maintenance, and then click Administrative Tools.
   2. Double-click System services, and then double-click BizTalk Messaging Services to stop and restart the BizTalk messaging service.
   To use the BizTalk Server Administrator, right-click the BizTalk Server name in the BizTalk Server group to stop or start the services.
   
   
2. In the BizTalk Server installation directory (\Program Files\Microsoft BizTalk Server\), delete Cisengine.dll, Ciscore.dll, and Mscis.exe.
3. Replace the deleted files with the files from this fix.
4. Use the SQL Query Analyzer to apply Btm_priorityupgrade.sql to the Interchange_BTM database.
5. Use the SQL Query Analyzer to apply Sq_priorityupgrade.sql to the Interchange_SQ database.
6. Use either the Services Microsoft Management Console (MMC) or the BizTalk Server Administrator to restart BizTalk Server.

1. Create a new text file that is named Updatechannel.vbs.
2. Paste the following code into the Updatechannel.vbs file.

   Dim WshShell : set WshShell = WScript.CreateObject("WScript.Shell")
   Dim objArgs : set objArgs = WScript.Arguments
   
   Dim hKeyServer : hKeyServer = WshShell.RegRead("HKLM\Software\Microsoft\BizTalk Server\1.0\Administration\MgmtDbServer")
   Dim hKeyDB : hKeyDB = WshShell.RegRead("HKLM\Software\Microsoft\BizTalk Server\1.0\Administration\MgmtDbName")
   
   if objArgs.Length <> 2 then
   wscript.echo "Usage: UpdateChannel.vbs <channel name> <priority>"
   else
   dim channelname : channelname = objArgs(0)
   dim priority : priority = objArgs(1)
   'Enforce constraints on priority range.
   if priority < 1 then
   priority = 1
   end if
   
   Dim str : str = "Update bts_channel set datemodified = getdate(), priority = " & priority & " where name = '" & channelname & "'"
   ExecuteDBCommand hKeyServer, hKeyDB, str
   end if
   
   Function GetConnection(cnString)
   dim conn : set conn = CreateObject("ADODB.Connection")
   conn.Mode = 2 ' adModeWrite
   conn.ConnectionTimeout = 30
   conn.Provider = "MSDASQL"
   conn.Open cnString
   Set GetConnection = conn
   End Function
   
   Sub ExecuteDBCommand(strServer, strDB, strCmd)
   dim cnString : cnString = "Driver={SQL Server}; Trusted_Connection=yes; Server=" & strServer & " Initial Catalog=" & strDB
   dim conn : set conn = GetConnection(cnString)
   dim cmd : set cmd = CreateObject("ADODB.Command")
   set cmd.ActiveConnection = conn
   cmd.CommandText = strCmd
   cmd.Execute
   Set cmd = Nothing
   Set conn = Nothing
   End Sub
   
   

3. Save the Updatechannel.vbs script.

1. Click Start, click Run, type cmd, and then click OK.
2. At the command prompt, use the cd command to change to the folder where you saved the Updatechannel.vbs script.
3. At the command prompt, type the following command:

   Updatechannel channelnamepriority

   Note In this command, channelname is a placeholder for the name of the channel, and priority is a placeholder for an integer between 1 and 10. When you set the channel priority, 1 is the highest priority, and 10 is the lowest priority.