Home
  •  

クリーンアップと分割プロセスのチェック モニターの種類

Microsoft.SystemCenter.2007.OpsMgrDB.PartitioningAndGroomingMonitorType (UnitMonitorType)

このモニターの種類は、パフォーマンスの問題を引き起こす可能性のあるクリーンアップと分割プロセスの状態を確認することで、オペレーション データベースの潜在的な問題を検出します。

Knowledge Base article:

概要

分割とクリーンアップ プロセスをチェックするモニターの種類

Element properties:

RunAsDefault
AccessibilityInternal
Support Monitor RecalculateTrue

Member Modules:

ID Module Type TypeId RunAs 
DS DataSource System.Scheduler Default
Probe ProbeAction Microsoft.SystemCenter.2007.OpsMgrDB.Generic.DS Default
CD1 ConditionDetection System.Performance.ConsecutiveSamplesCondition Default
CDInSufficientSamples ConditionDetection System.ExpressionFilter Default
CDSufficientSamples ConditionDetection System.ExpressionFilter Default
CDUnderThreshold ConditionDetection System.ExpressionFilter Default
CDWarningThreshold ConditionDetection System.ExpressionFilter Default
Mapper ConditionDetection System.Performance.DataGenericMapper Default

Overrideable Parameters:

IDParameterTypeSelectorDisplay NameDescription
IntervalSecondsint$Config/IntervalSeconds$間隔 (秒)このワークフローは、定期的なスケジュールでスクリプトを実行します。この値は、ワークフローを実行する間隔を決める秒数です。ワークフローの実行頻度を増減させるには、この値を変更してください。
Synctimestring$Config/Synctime$同期時刻
TimeoutSecondsint$Config/TimeoutSeconds$タイムアウト (秒)このワークフローは、定期的なスケジュールでスクリプトを実行します。タイムアウトは、スクリプトが強制的に停止されるまで、スクリプトを実行可能な期間の秒数です。注:スクリプトの複数のインスタンスが同時に実行されないように、タイムアウトは、必ず実行間隔より小さな値に設定してください。
Thresholdint$Config/Threshold$最後の正常なプロセス完了からの最大日数このワークフローは、"最後の正常なプロセス完了からの最大日数" の値を、状態を判別するしきい値として使用します。この値で、分割とクリーンアップ プロセスが完了した後、正しく完了しないまま何日経過すると問題と見なされるかを設定します。
TimesBeforeAlertint$Config/TimesBeforeAlert$アラート発生までのサンプルの数モニターが警告状態に変わるまでのサンプルの数

Source Code:

<UnitMonitorType ID="Microsoft.SystemCenter.2007.OpsMgrDB.PartitioningAndGroomingMonitorType" Accessibility="Internal">

  <MonitorTypeStates>

    <MonitorTypeState ID="UnderThreshold" NoDetection="false"/>

    <MonitorTypeState ID="WarningThreshold" NoDetection="false"/>

  </MonitorTypeStates>

  <Configuration>

    <xsd:element name="IntervalSeconds" type="xsd:integer"/>

    <xsd:element name="Synctime" type="xsd:string"/>

    <xsd:element name="TimeoutSeconds" type="xsd:integer"/>

    <xsd:element name="DatabaseServerName" type="xsd:string"/>

    <xsd:element name="DatabaseName" type="xsd:string"/>

    <xsd:element name="Threshold" type="xsd:int"/>

    <xsd:element name="TimesBeforeAlert" type="xsd:integer"/>

  </Configuration>

  <OverrideableParameters>

    <OverrideableParameter ID="IntervalSeconds" Selector="$Config/IntervalSeconds$" ParameterType="int"/>

    <OverrideableParameter ID="Synctime" Selector="$Config/Synctime$" ParameterType="string"/>

    <OverrideableParameter ID="TimeoutSeconds" Selector="$Config/TimeoutSeconds$" ParameterType="int"/>

    <OverrideableParameter ID="Threshold" Selector="$Config/Threshold$" ParameterType="int"/>

    <OverrideableParameter ID="TimesBeforeAlert" Selector="$Config/TimesBeforeAlert$" ParameterType="int"/>

  </OverrideableParameters>

  <MonitorImplementation>

    <MemberModules>

      <DataSource ID="DS" TypeID="System!System.Scheduler">

        <Scheduler>

          <SimpleReccuringSchedule>

            <Interval>$Config/IntervalSeconds$</Interval>

            <SyncTime>$Config/Synctime$</SyncTime>

          </SimpleReccuringSchedule>

          <ExcludeDates/>

        </Scheduler>

      </DataSource>

      <ProbeAction ID="Probe" TypeID="Microsoft.SystemCenter.2007.OpsMgrDB.Generic.DS">

        <TimeoutSeconds>$Config/TimeoutSeconds$</TimeoutSeconds>

        <ScriptName>PartitioningAndGroomingMonitor.vbs</ScriptName>

        <ScriptBody><Script>

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



'*************************************************************************

' $ScriptName:  "GetSqlNativeClientComman" $

'

' Purpose:      This script is used to get SQL native client Driver name.

'

' $File:        GetSqlNativeClientComman.vbs $

'*************************************************************************





Option Explicit 



Function GetSqlDriverName

    Dim oAPI1, oReg 

    Const HKEY_LOCAL_MACHINE = &amp;H80000002

    Dim strComputer, strDriverPath, strKeyPath, intValue, strValueName,arrSubKeys,oSubkey,strNewKeyPath,intDotIndex 

    strComputer = "."

    strDriverPath="SQLOLEDB"

    Set oReg=GetObject("winmgmts:\\" &amp; _ 

        strComputer &amp; "\root\default:StdRegProv")

    strKeyPath = "SOFTWARE\ODBC\ODBCINST.INI"

    oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys



    For Each oSubkey In arrSubKeys

        intValue = InStr(oSubkey, "SQL Server Native Client")

        if intValue &lt;&gt; 0 Then

	        strValueName = "Driver" 

            strNewKeyPath = strKeyPath&amp;"\"&amp;oSubkey

            oReg.GetStringValue HKEY_LOCAL_MACHINE, strNewKeyPath, strValueName , strDriverPath

	        strDriverPath = Mid (strDriverPath, InStrRev(strDriverPath, "\")+1)

            intDotIndex = InStr(strDriverPath, ".")

	        strDriverPath = Left(strDriverPath , intDotIndex-1)

        end if

    Next

    GetSqlDriverName = strDriverPath

End Function



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



'*************************************************************************

' $ScriptName:  "PartitioningAndGroomingMonitor" $

'

' Purpose:      This script checks for grooming and partiting processes.

'

' $File:        PartitioningAndGroomingMonitor.vbs $

'*************************************************************************



 



'Declarations 

Dim objCN,objRS,strQuery, strCountOfJobsSucceeded, strCountOfJobs 

Dim oArgs,oAPI,oBag 

Dim strDBServer,strDatabase 

Dim strDaysLimitThreshold



'Define local event constants 

Const EVENT_TYPE_ERROR = 1 

Const EVENT_TYPE_WARNING = 2 

Const EVENT_TYPE_INFORMATION = 4 



SetLocale("en-us")



'Create objects 

Set oAPI = CreateObject("MOM.ScriptAPI") 

Set oArgs = WScript.Arguments 

Set oBag = oAPI.CreatePropertyBag() 



'Define parameters 

strDBServer             = oArgs(0) 

strDatabase             = oArgs(1) 

strDaysLimitThreshold	= oArgs(2) 



Dim ObjError, strMessageToUse, strDriverName

Set ObjError = New Error



On Error Resume Next



'Set DB connection 

Set objCN = CreateObject("ADODB.Connection") 

strDriverName = GetSqlDriverName

objCN.Open "Provider=" &amp; strDriverName &amp; ";Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" &amp; _ 

strDatabase &amp; ";Data Source=" &amp; strDBServer &amp; "" 



ObjError.Save

On Error Goto 0



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

    strMessageToUse = "Error Number: " &amp; ObjError.number &amp; " Error Details: " &amp; ObjError.Description

    call GetState(true, strMessageToUse, "0", "0", strDaysLimitThreshold)

    WScript.Quit

End If



strQuery = "SELECT Count(StatusCode) AS TotalCount " &amp; _ 

"FROM  InternalJobHistory " &amp; _ 

"WHERE Command = 'Exec dbo.p_GroomPartitionedObjects and dbo.p_Grooming' "



'Query DB 

Set objRS = objCN.Execute(strQuery)



ObjError.Save

On Error Goto 0



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

    strMessageToUse = "Error Number: " &amp; ObjError.number &amp; " Error Details: " &amp; ObjError.Description

    call GetState(true, strMessageToUse, "0", "0", strDaysLimitThreshold)

    WScript.Quit

End If



'Set variables 

strCountOfJobs = objRS("TotalCount") 



strQuery = "SELECT Count(StatusCode) AS CountOfJobsSucceeded " &amp; _ 

"FROM  InternalJobHistory " &amp; _ 

"WHERE TimeStarted  BETWEEN " &amp; _ 

"DATEADD(day, -"  &amp;  strDaysLimitThreshold &amp; ", GETUTCDATE()) " &amp; _ 

"AND GETUTCDATE() " &amp; _ 

"AND Command = 'Exec dbo.p_GroomPartitionedObjects and dbo.p_Grooming' " &amp; _

"AND StatusCode = 1 "



'Query DB 

Set objRS = objCN.Execute(strQuery)



ObjError.Save

On Error Goto 0



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

    strMessageToUse = "Error Number: " &amp; ObjError.number &amp; " Error Details: " &amp; ObjError.Description

    call GetState(true, strMessageToUse, "0", "0", strDaysLimitThreshold)

    WScript.Quit

End If



'Set variables 

strCountOfJobsSucceeded = objRS("CountOfJobsSucceeded") 



strMessageToUse = "Script executed with Process Succeed Count " &amp; strCountOfJobsSucceeded &amp; " from Total Process Count " &amp; strCountOfJobs

call GetState(false, strMessageToUse, strCountOfJobs, strCountOfJobsSucceeded, strDaysLimitThreshold)

WScript.Quit



Sub GetState(strErrorFlag, strMessage, strCountOfJobs, strCountOfJobsSucceeded, strDaysLimitThreshold)

    Set oBag = oAPI.CreatePropertyBag()

    

    If strErrorFlag = true Then

       Call oBag.AddValue("Error", strMessage)

    End If



    Call oBag.AddValue("DatabaseMonitor", "DatabaseMonitor") 

    Call oBag.AddValue("PartitioningAndGrooming", "PartitioningAndGrooming") 

    Call oBag.AddValue("ALL", "ALL") 

    Call oBag.AddValue("Value", "1") 

    Call oBag.AddValue("CountOfJobs", strCountOfJobs) 

    Call oBag.AddValue("CountOfJobsSucceeded", strCountOfJobsSucceeded) 

    Call oBag.AddValue("DaysLimitThreshold", strDaysLimitThreshold)  

    oAPI.LogScriptEvent "PartitioningAndGroomingMonitor.vbs",100,EVENT_TYPE_INFORMATION, strMessage 

    Call oAPI.Return(oBag) 

End Sub



Class Error

    Private m_lNumber

    Private m_sSource

    Private m_sDescription

    Private m_sHelpContext

    Private m_sHelpFile

    

    Public Sub Save()

        m_lNumber = Err.number

        m_sSource = Err.Source

        m_sDescription = Err.Description

        m_sHelpContext = Err.HelpContext

        m_sHelpFile = Err.helpfile

    End Sub

    

    Public Sub Raise()

        Err.Raise m_lNumber, m_sSource, m_sDescription, m_sHelpFile, m_sHelpContext

    End Sub



    Public Sub Clear()

        m_lNumber = 0

        m_sSource = ""

        m_sDescription = ""

        m_sHelpContext = ""

        m_sHelpFile = ""

    End Sub



    Public Default Property Get Number()

        Number = m_lNumber

    End Property



    Public Property Get Source()

        Source = m_sSource

    End Property



    Public Property Get Description()

        Description = m_sDescription

    End Property



    Public Property Get HelpContext()

        HelpContext = m_sHelpContext

    End Property

    

    Public Property Get HelpFile()

        HelpFile = m_sHelpFile

    End Property    

End Class

              </Script></ScriptBody>

        <DatabaseServerName>$Config/DatabaseServerName$</DatabaseServerName>

        <DatabaseName>$Config/DatabaseName$</DatabaseName>

        <Threshold>$Config/Threshold$</Threshold>

      </ProbeAction>

      <ConditionDetection ID="CDUnderThreshold" TypeID="System!System.ExpressionFilter">

        <Expression>

          <And>

            <Expression>

              <SimpleExpression>

                <ValueExpression>

                  <XPathQuery Type="Double">

                          Property[@Name='CountOfJobs']

                        </XPathQuery>

                </ValueExpression>

                <Operator>GreaterEqual</Operator>

                <ValueExpression>

                  <Value Type="Double">1</Value>

                </ValueExpression>

              </SimpleExpression>

            </Expression>

            <Expression>

              <SimpleExpression>

                <ValueExpression>

                  <XPathQuery Type="Double">

                          Property[@Name='CountOfJobsSucceeded']

                        </XPathQuery>

                </ValueExpression>

                <Operator>GreaterEqual</Operator>

                <ValueExpression>

                  <Value Type="Double">1</Value>

                </ValueExpression>

              </SimpleExpression>

            </Expression>

          </And>

        </Expression>

      </ConditionDetection>

      <ConditionDetection ID="CDWarningThreshold" TypeID="System!System.ExpressionFilter">

        <Expression>

          <And>

            <Expression>

              <SimpleExpression>

                <ValueExpression>

                  <XPathQuery Type="Double">

                          Property[@Name='CountOfJobs']

                        </XPathQuery>

                </ValueExpression>

                <Operator>GreaterEqual</Operator>

                <ValueExpression>

                  <Value Type="Double">1</Value>

                </ValueExpression>

              </SimpleExpression>

            </Expression>

            <Expression>

              <SimpleExpression>

                <ValueExpression>

                  <XPathQuery Type="Double">

                          Property[@Name='CountOfJobsSucceeded']

                        </XPathQuery>

                </ValueExpression>

                <Operator>Less</Operator>

                <ValueExpression>

                  <Value Type="Double">1</Value>

                </ValueExpression>

              </SimpleExpression>

            </Expression>

          </And>

        </Expression>

      </ConditionDetection>

      <ConditionDetection ID="Mapper" TypeID="Performance!System.Performance.DataGenericMapper">

        <ObjectName>DatabaseMonitor</ObjectName>

        <CounterName>PartitioningAndGrooming</CounterName>

        <InstanceName>ALL</InstanceName>

        <Value>1</Value>

      </ConditionDetection>

      <ConditionDetection ID="CD1" TypeID="Performance!System.Performance.ConsecutiveSamplesCondition">

        <Threshold>1</Threshold>

        <Direction>greaterequal</Direction>

      </ConditionDetection>

      <ConditionDetection ID="CDSufficientSamples" TypeID="System!System.ExpressionFilter">

        <Expression>

          <SimpleExpression>

            <ValueExpression>

              <XPathQuery Type="Double">Value</XPathQuery>

            </ValueExpression>

            <Operator>GreaterEqual</Operator>

            <ValueExpression>

              <Value Type="Double">$Config/TimesBeforeAlert$</Value>

            </ValueExpression>

          </SimpleExpression>

        </Expression>

      </ConditionDetection>

      <ConditionDetection ID="CDInSufficientSamples" TypeID="System!System.ExpressionFilter">

        <Expression>

          <SimpleExpression>

            <ValueExpression>

              <XPathQuery Type="Double">Value</XPathQuery>

            </ValueExpression>

            <Operator>Less</Operator>

            <ValueExpression>

              <Value Type="Double">$Config/TimesBeforeAlert$</Value>

            </ValueExpression>

          </SimpleExpression>

        </Expression>

      </ConditionDetection>

    </MemberModules>

    <RegularDetections>

      <RegularDetection MonitorTypeStateID="UnderThreshold">

        <Node ID="CDInSufficientSamples">

          <Node ID="CD1">

            <Node ID="Mapper">

              <Node ID="CDUnderThreshold">

                <Node ID="Probe">

                  <Node ID="DS"/>

                </Node>

              </Node>

            </Node>

          </Node>

        </Node>

      </RegularDetection>

      <RegularDetection MonitorTypeStateID="WarningThreshold">

        <Node ID="CDSufficientSamples">

          <Node ID="CD1">

            <Node ID="Mapper">

              <Node ID="CDWarningThreshold">

                <Node ID="Probe">

                  <Node ID="DS"/>

                </Node>

              </Node>

            </Node>

          </Node>

        </Node>

      </RegularDetection>

    </RegularDetections>

    <OnDemandDetections>

      <OnDemandDetection MonitorTypeStateID="UnderThreshold">

        <Node ID="CDUnderThreshold">

          <Node ID="Probe"/>

        </Node>

      </OnDemandDetection>

      <OnDemandDetection MonitorTypeStateID="WarningThreshold">

        <Node ID="CDWarningThreshold">

          <Node ID="Probe"/>

        </Node>

      </OnDemandDetection>

    </OnDemandDetections>

  </MonitorImplementation>

</UnitMonitorType>