How to Configure Maintenance Mode for Monitoring Objects

System Center

Updated: May 22, 2009

Applies To: Operations Manager 2007 R2, Operations Manager 2007 SP1, System Center Operations Manager 2007

The Operations Manager class libraries allow you to control the scheduling of maintenance windows. A maintenance window is the period of time during which a monitored object is placed in maintenance mode and, consequently, does not generate alerts. Scheduling maintenance windows is useful when you need to place a large number of monitored objects in maintenance mode at one time (for example, to apply updates to the monitored objects) or when you need to run a scheduled task to automatically control the maintenance window.

Example

Example 1—Starting Maintenance Mode

The following example demonstrates how to place the monitoring objects for all instances of SQL Server 2005 Database Engine in maintenance mode for an hour.

' This example places all instances of SQL Server 2005 Database
' Engines in maintenance mode for one hour.
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports Microsoft.EnterpriseManagement
Imports Microsoft.EnterpriseManagement.Configuration
Imports Microsoft.EnterpriseManagement.Administration
Imports Microsoft.EnterpriseManagement.Common
Imports Microsoft.EnterpriseManagement.Monitoring
Imports System.Collections.ObjectModel

Namespace SDKSamples
    Class Program
        Public Overloads Shared Function Main(ByVal args() As String) As Integer

            Dim mg As ManagementGroup = New ManagementGroup("localhost")

            Console.WriteLine("Creating a maintenance window...")

            Dim query As String = "DisplayName = 'SQL 2005 DB Engine'"
            Dim criteria As MonitoringClassCriteria = New MonitoringClassCriteria(query)
            Dim monClasses As ReadOnlyCollection(Of MonitoringClass) = _
                mg.GetMonitoringClasses(criteria)
            Dim monObjects As List(Of MonitoringObject) = New List(Of MonitoringObject)()
            For Each monClass As MonitoringClass In monClasses

                monObjects.AddRange(mg.GetMonitoringObjects(monClass))
            Next

            For Each monObject As MonitoringObject In monObjects

                If Not monObject.InMaintenanceMode Then

                    Dim startTime As DateTime = DateTime.UtcNow
                    Dim schedEndTime As DateTime = DateTime.UtcNow.AddHours(1)
                    Dim reason As MaintenanceModeReason = MaintenanceModeReason.SecurityIssue
                    Dim comment As String = "Need to apply the latest update to all SQL 2005 servers."
                    monObject.ScheduleMaintenanceMode(startTime, schedEndTime, reason, comment)
                    Console.WriteLine(monObject.DisplayName & " set in maintenance mode for an hour.")

                Else

                    Dim window As MaintenanceWindow = monObject.GetMaintenanceWindow()
                    Dim schedEndTime As DateTime = window.ScheduledEndTime
                    Console.WriteLine(monObject.DisplayName & " already in maintenance mode until " & _
                                      schedEndTime.ToShortTimeString() & ".")
                End If
            Next
        End Function
    End Class
End Namespace

Example 2—Ending Maintenance Mode

  • The following example demonstrates how to immediately end the maintenance mode of monitoring objects for all instances of SQL Server 2005 Database Engine.

' <summary> 
' Immediately takes all instances of SQL Server 2005 Database
' Engines out of maintenance mode.
' </summary>
Imports System
Imports System.Collections.Generic
Imports System.Collections.ObjectModel
Imports System.Text
Imports Microsoft.EnterpriseManagement
Imports Microsoft.EnterpriseManagement.Administration
Imports Microsoft.EnterpriseManagement.Configuration
Imports Microsoft.EnterpriseManagement.Common
Imports Microsoft.EnterpriseManagement.Monitoring


Namespace SDKSamples
    Class Program
        Public Overloads Shared Function Main(ByVal args() As String) As Integer

            Dim mg As ManagementGroup = New ManagementGroup("localhost")

            Console.WriteLine("Stopping maintenance mode...")

            Dim query As String = "DisplayName = 'SQL 2005 DB Engine'"
            Dim criteria As MonitoringClassCriteria = New MonitoringClassCriteria(query)
            Dim monClasses As ReadOnlyCollection(Of MonitoringClass) = _
                mg.GetMonitoringClasses(criteria)
            Dim monObjects As List(Of MonitoringObject) = New List(Of MonitoringObject)()
            For Each monClass As MonitoringClass In monClasses

                monObjects.AddRange(mg.GetMonitoringObjects(monClass))
            Next

            For Each monObject As MonitoringObject In monObjects

                If (monObject.InMaintenanceMode) Then

                    monObject.StopMaintenanceMode(DateTime.UtcNow)
                    Console.WriteLine(monObject.DisplayName & " set out of maintenance mode.")

                Else

                    Console.WriteLine(monObject.DisplayName & " not in maintenance mode.")
                End If
            Next
        End Function
    End Class
End Namespace

See Also

Show: