Home
  •  

データベース ミラーリング パートナーの状態

Microsoft.SQLServer.2012.Mirroring.PartnersStateMonitor (UnitMonitor)

このモニターは、データベース ミラーが同期しているかどうかを調べます。

Knowledge Base article:

概要

このモニターは、Microsoft® SQL Server™ から報告されたデータベース ミラーリング セッションの状態を確認します。確認は、SQL Server インスタンスの master データベースにクエリを実行し、データベース ミラーリング セッションの状態を返すことで行われます。このモニターからアラートを受け取った場合は、データベース ミラーリング セッションを動作状態に戻す処理を行う必要があります。

原因

異常な状態は、SQL Server™ データベース ミラーリング セッションが動作状態でないことを示します。考えられる状態について、以下で詳しく説明します。

ミラーリング パートナーの状態

説明

MOM 正常性状態

IN_SYNC

これは、正常な操作状態です。ミラーリング パートナーは同期しており、ミラーリングは正常に実行中です。

緑

OUT_OF_SYNC

ミラーリング パートナーは同期していません。

赤

解決方法

問題を解決するには、次のことを試してください。

Element properties:

TargetMicrosoft.SQLServer.2012.Mirroring.Witness
Parent MonitorSystem.Health.AvailabilityState
CategoryAvailabilityHealth
EnabledTrue
Alert GenerateTrue
Alert SeverityError
Alert PriorityNormal
Alert Auto ResolveTrue
Monitor TypeMicrosoft.SQLServer.2012.Mirroring.ScriptedTwoStateType
RemotableTrue
AccessibilityPublic
Alert Message
データベース ミラーリング パートナーは同期していません
データベース ミラー '{0}' は同期していません。ミラーリング パートナーは '{1}' と '{2}' です。
RunAsDefault

Source Code:

<UnitMonitor ID="Microsoft.SQLServer.2012.Mirroring.PartnersStateMonitor" Accessibility="Public" Enabled="true" Target="SQL2012Mirroring!Microsoft.SQLServer.2012.Mirroring.Witness" ParentMonitorID="Health!System.Health.AvailabilityState" TypeID="Microsoft.SQLServer.2012.Mirroring.ScriptedTwoStateType" Remotable="true" Priority="Normal" ConfirmDelivery="false">

  <Category>AvailabilityHealth</Category>

  <AlertSettings AlertMessage="Microsoft.SQLServer.2012.Mirroring.PartnersStateMonitor.AlertMessage">

    <AlertOnState>Error</AlertOnState>

    <AutoResolve>true</AutoResolve>

    <AlertPriority>Normal</AlertPriority>

    <AlertSeverity>Error</AlertSeverity>

    <AlertParameters>

      <AlertParameter1>$Target/Property[Type="SQL2012Mirroring!Microsoft.SQLServer.2012.Mirroring.Witness"]/DatabaseName$</AlertParameter1>

      <AlertParameter2>$Target/Property[Type="SQL2012Mirroring!Microsoft.SQLServer.2012.Mirroring.Witness"]/Principal$</AlertParameter2>

      <AlertParameter3>$Target/Property[Type="SQL2012Mirroring!Microsoft.SQLServer.2012.Mirroring.Witness"]/Mirror$</AlertParameter3>

    </AlertParameters>

  </AlertSettings>

  <OperationalStates>

    <OperationalState ID="Good" MonitorTypeStateID="Good" HealthState="Success"/>

    <OperationalState ID="Bad" MonitorTypeStateID="Bad" HealthState="Error"/>

  </OperationalStates>

  <Configuration>

    <ScriptName>GetSQL2012MirroringPartnersState.vbs</ScriptName>

    <ScriptBody><Script>'#Include File:GetSQL2008MirroringPartnersState.vbs

'Copyright (c) Microsoft Corporation. All rights reserved.

' This script takes a single parameter

' Param 0: The SQL connection string to connect to



Const SQL_MONITORING_CONNECT_FAILURE = -1

Const SQL_MONITORING_QUERY_FAILURE = -2

Const SQL_MONITORING_SUCCESS = 0



Dim GetPartnersStatusQuery

GetPartnersStatusQuery = "SELECT " &amp;_

                            " mirroring_guid, " &amp;_

                            " partner_sync_state_desc " &amp;_

                        " FROM sys.database_mirroring_witnesses "



Call GetPartnersStatus()



Sub GetPartnersStatus()

    If WScript.Arguments.Count = 4 Then

        Dim oBag

	    Set oBag = oAPI.CreatePropertyBag()

	    Dim nResult

	    nResult = PartnersStatus(WScript.Arguments(0), oBag, WScript.Arguments(1), WScript.Arguments(2), WScript.Arguments(3))

        Call oAPI.Return(oBag)

    Else

        Wscript.Quit()

    End If

End Sub



Function PartnersStatus(ByVal sSQLConnectionString, ByRef oBag, ByVal sComputerName, ByVal sInstanceName, ByVal sTcpPort)

	Dim e

	Set e = New Error



    Dim cnADOConnection

    Set cnADOConnection = SmartConnectWithoutSQLADODB(sSQLConnectionString, sTcpPort, sComputerName, sInstanceName, "master")

    if cnADOConnection Is Nothing Then

		PartnersStatus = SQL_MONITORING_CONNECT_FAILURE

        ThrowScriptErrorNoAbort "Cannot connect to '" &amp; sSQLConnectionString &amp; "' SQL Server", e

        Exit Function

    End If

    	    

    Dim oResults

	e.Clear

	On Error Resume Next

		Set oResults = cnADOConnection.Execute(GetPartnersStatusQuery)

		e.Save

	On Error Goto 0

	If e.Number &lt;&gt; 0 Then

		PartnersStatus = SQL_MONITORING_QUERY_FAILURE

        ThrowScriptErrorNoAbort "Query execution failed for '" &amp; sSQLConnectionString &amp; "' SQL Server", e

		If (oResults &lt;&gt; null) Then oResults.Close

        cnADOConnection.Close

		Exit Function

	End If



	Do While Not oResults.EOF

		Call oBag.AddValue(oResults(0), CStr(oResults(1)))

		oResults.MoveNext

	Loop

	

	cnADOConnection.Close

    PartnersStatus = SQL_MONITORING_SUCCESS

End Function

</Script></ScriptBody>

    <IntervalSeconds>900</IntervalSeconds>

    <SyncTime/>

    <TimeoutSeconds>300</TimeoutSeconds>

    <ConnectionString>$Target/Host/Host/Property[Type="SQL!Microsoft.SQLServer.DBEngine"]/ConnectionString$</ConnectionString>

    <GoodExpression>

      <SimpleExpression>

        <ValueExpression>

          <XPathQuery Type="String">Property[@Name='$Target/Property[Type="SQL2012Mirroring!Microsoft.SQLServer.2012.Mirroring.Witness"]/MirroringGUID$']</XPathQuery>

        </ValueExpression>

        <Operator>Equal</Operator>

        <ValueExpression>

          <Value Type="String">IN_SYNC</Value>

        </ValueExpression>

      </SimpleExpression>

    </GoodExpression>

    <BadExpression>

      <SimpleExpression>

        <ValueExpression>

          <XPathQuery Type="String">Property[@Name='$Target/Property[Type="SQL2012Mirroring!Microsoft.SQLServer.2012.Mirroring.Witness"]/MirroringGUID$']</XPathQuery>

        </ValueExpression>

        <Operator>Equal</Operator>

        <ValueExpression>

          <Value Type="String">OUT_OF_SYNC</Value>

        </ValueExpression>

      </SimpleExpression>

    </BadExpression>

  </Configuration>

</UnitMonitor>