FIX: The size of DTC log file cannot be changed in Microsoft Windows Server 2003 SP1 (919034)

WORKAROUND

1. Click Start, point to All Programs, point to Accessories, and then click Notepad.
2. In the Notepad window, add the following code:

   '==========================================================================
   '
   ' NAME: SetMSDTCLogSize2003Cluster.vbs
   '
   ' AUTHOR: Mark D. MacLachlan, Microsoft
   ' DATE  : 6/20/2006
   '
   '    This code is copyright (c) 2006 Microsoft Corporation.
   '
   '    All rights reserved.
   '
   '    THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
   '    ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED To
   '    THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
   '    PARTICULAR PURPOSE.
   '
   '    IN NO EVENT SHALL MICROSOFT AND/OR ITS RESPECTIVE SUPPLIERS BE
   '    LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY
   '    DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
   '    WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
   '    ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
   '    OF THIS CODE OR INFORMATION.
   '
   ' COMMENT: Sets the MSDTC log size in clustered 2003 servers.
   '
   '==========================================================================
   
   On Error Resume Next
   Const HKEY_LOCAL_MACHINE = &H80000002
   Set WSHShell = Wscript.CreateObject("WScript.Shell")
   Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
   ".\root\default:StdRegProv")
   
   NewLogSize = GetLogSize
   
   Set StdOut = WScript.StdOut
   strKeyPath = "Cluster\Resources\"
   oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
   
   For Each subkey In arrSubKeys
   	Key = WSHShell.RegRead("HKLM\" & strKeyPath & subkey & "\Name")
   	If Trim(Key) = "ms dtc" Then
   	   MSDTCGUID = strKeyPath & subkey & "\"
   	End If
   	 Err.Clear
        Key = vbNothing
   Next
   oReg.EnumKey HKEY_LOCAL_MACHINE, MSDTCGUID, arrSubKeys
   For Each subkey In arrSubKeys
       LogSize = WSHShell.RegRead("HKLM\" & MSDTCGUID & subkey & "\DtcLogSize")
       If Err = 0 Then
       	LogLocation = "HKLM\" & MSDTCGUID & subkey & "\DtcLogSize"
       	WSHShell.RegWrite LogLocation, NewLogSize
       End If 
   Next
   WScript.Sleep 1000
   CurrentLogSize = WSHShell.RegRead(LogLocation)
   
   InformText = "Log Size Set To: " & CurrentLogSize & "MB" &_ 
                vbCrLf & "Click Yes to restart services for the change to take affect." &_ 
                vbCrLf & "Please be patient, this may take a few minutes."
                
   If Msgbox(InformText, vbYesNo, "Restart Services?") = vbYes Then
   	MakeItSo
   Else
   	WScript.Echo "You must execute the following commands for changes to take affect:" &_ 
   	vbCrlf & "NET STOP MSDTC" &_ 
   	vbCrlf & "MSDTC -RESETLOG" &_ 
   	vbCrlf & "NET START MSDTC"
   End If
   WScript.Quit
     
   Function GetLogSize()
      ExtendedLogSize = InputBox("Enter New MSDTC Log Size Value (MB)","Set New Log Size")
      If IsNumeric(ExtendedLogSize) Then
          GetLogSize = ExtendedLogSize
      Else
          GetLogSize
      End If    
   End Function
   
   
   Function MakeItSo()
   	'Stop the MSDTC service.
   	StopMSDTC
   	'Wait for service to be stopped.
   	While  CheckMSDTCStatus <> "Stopped" 
   		WScript.Sleep 10
   	Wend
   	'Reset the log size.
   	WSHShell.Run ("CMD.EXE /C MSDTC -RESETLOG")
   	'Restart the MSDTC service.
   	wscript.sleep 1000
   	StartMSDTC
   	While  CheckMSDTCStatus <> "Running" 
   		WScript.Sleep 10
   	Wend
   	MsgBox "Services Restarted Successfully, New Log Size Is Now Active"
   End Function
   
   Function StartMSDTC()
   'Start the MSDTC service.
   	Set objWMIService = GetObject("winmgmts:" _
   	    & "{impersonationLevel=impersonate}!\\.\root\cimv2")
   	Set colServiceList = objWMIService.ExecQuery _
   	        ("Select * from Win32_Service where Name='MSDTC'")
   	For each objService in colServiceList
   	    errReturn = objService.StartService()
   	Next
   End Function
   
   Function StopMSDTC()
   'Stop the MSDTC service.
   	Set objWMIService = GetObject("winmgmts:" _
   	    & "{impersonationLevel=impersonate}!\\.\root\cimv2")
   	Set colServiceList = objWMIService.ExecQuery _
   	        ("Select * from Win32_Service where Name='MSDTC'")
   	For each objService in colServiceList
   	    errReturn = objService.StopService()
   	Next
   End Function
   
   Function CheckMSDTCStatus()
   'Get the MSDTC current status.
   	Set objWMIService = GetObject("winmgmts:" _
   	    & "{impersonationLevel=impersonate}!\\.\root\cimv2")
   	Set colRunningServices = objWMIService.ExecQuery _
   	    ("Select * from Win32_Service where Name='MSDTC'")
   	For Each objService in colRunningServices 
   	    CheckMSDTCStatus = objService.State
   	Next
   End Function

3. On the File menu, click Save As.
4. Click Desktop, type ChangeMSDTCLogSize.vbs in the File name box, and then click Save.
   
   A new script file that is named ChangeMSDTCLogSize.vbs is created on the Windows desktop.
5. Minimize all open windows, and then double-click ChangeMSDTCLogSize.vbs.
   
   The ChangeMSDTCLogSize.vbs script is started.
6. When you are prompted, type 5, and then click OK.
   
   In this example, the size of the DTC log file is changed to 5 MB. You can enter any numeric value that you want.
7. Click Yes to restart the MSDTC service and enable the new log file size.