Данный монитор проверяет, доступен ли следящий сервер зеркального отображения базы данных.
Knowledge Base article:
Сводка
Этот монитор проверяет состояние следящего сервера зеркального отображения базы данных в соответствии с отчетом Microsoft® SQL Server™. Для проверки выполняется запрос к базе данных master экземпляра SQL Server, и возвращается состояние следящего сервера зеркального отображения базы данных. При получении предупреждения от этого монитора необходимо предпринять действия по возврату следящего сервера зеркального отображения базы данных в рабочее состояние.
Причины
Неисправное состояние указывает на то, что следящий сервер зеркального отображения базы данных SQL Server™ сейчас недоступен. Все состояния, за исключением CONNECTED и NO-WITNESS, соответствуют неработоспособному состоянию. Возможные состояния описаны ниже:
Состояние следящего сервера зеркального отображения
Описание
Состояние работоспособности MOM
CONNECTED
Это обычное рабочее состояние. Участник зеркального отображения может обращаться к следящему серверу.
РАБОТОСПОСОБНА
БЕЗ СЛЕЖЕНИЯ
Это состояние указывает, что для сеанса зеркального отображения нет следящего сервера. Это обычное рабочее состояние в режиме высокой производительности и режиме высокого уровня безопасности без автоматической отработки отказа.
РАБОТОСПОСОБНА
UNKNOWN
Есть некоторые проблемы с подключением участником зеркального отображения и следящим сервером.
ПРЕДУПРЕЖДЕНИЕ
DISCONNECTED
Между участником зеркального отображения и следящим сервером нет соединения.
КРИТИЧЕСКОЕ
Решения
Чтобы решить проблему, попробуйте выполнить следующие действия.:
Убедитесь, что настройка зеркального отображения завершена и процесс зеркального отображения запущен и выполняется.
Проверьте физическую связь между сервером-участником зеркального отображения и следящим сервером.
Настройте правила брандмауэра на обоих серверах в соответствии с конфигурацией конечной точки.
Переопределяемые параметры
Имя
Описание
Значение по умолчанию
Приоритет предупреждения
Определяет приоритет предупреждения.
Обычные
Серьезность предупреждения
Определяет серьезность предупреждения.
MatchMonitorHealth
Включено
Включает или отключает рабочий процесс.
Да
Создает предупреждения
Определяет, создает ли рабочий процесс предупреждения.
Да
Интервал (в секундах)
Повторяющийся интервал времени в секундах, по истечении которого запускается рабочий процесс.
900
Время синхронизации
Время синхронизации в 24-часовом формате. Может быть опущено.
Время ожидания (секунды)
Задает допустимое время выполнения рабочего процесса, перед тем как он будет закрыт и отмечен как сбойный.
Dim GetWitnessStatusQuery
GetWitnessStatusQuery = "SELECT " &_
" d.name, " &_
" CASE WHEN dm.mirroring_witness_name = '' THEN 'NO-WITNESS' ELSE ISNULL(dm.mirroring_witness_state_desc, 'UNKNOWN') END " &_
" FROM sys.databases d " &_
" INNER JOIN sys.database_mirroring dm ON dm.database_id = d.database_id " &_
" WHERE dm.mirroring_guid IS NOT NULL"
Call GetWitnessAccessibility()
Sub GetWitnessAccessibility()
If WScript.Arguments.Count = 4 Then
Dim oBag
Set oBag = oAPI.CreatePropertyBag()
Dim state, serviceName
serviceName = GetSQLServiceName(WScript.Arguments(2))
state = GetServiceState(WScript.Arguments(1), serviceName)
if (state <> "Running") And (state <> "Unknown") Then
Call oAPI.Return(oBag)
WScript.Quit()
End If
Dim nResult
nResult = WitnessAccessibility(WScript.Arguments(0), oBag, WScript.Arguments(1), WScript.Arguments(2), WScript.Arguments(3))
Call oAPI.Return(oBag)
On Error Resume Next
Call GlobalErrorListToEventLog()
Else
On Error Resume Next
Call GlobalErrorListToEventLog()
Wscript.Quit()
End If
End Sub
Function WitnessAccessibility(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
WitnessAccessibility = SQL_MONITORING_CONNECT_FAILURE
ThrowScriptErrorNoAbort "Cannot connect to '" & sSQLConnectionString & "' SQL Server", e
Exit Function
End If
Dim oResults
e.Clear
On Error Resume Next
Set oResults = cnADOConnection.Execute(GetWitnessStatusQuery)
e.Save
On Error Goto 0
If e.Number <> 0 Then
WitnessAccessibility = SQL_MONITORING_QUERY_FAILURE
ThrowScriptErrorNoAbort "Query execution failed for '" & sSQLConnectionString & "' SQL Server", e
If (oResults <> null) Then oResults.Close
cnADOConnection.Close
Exit Function
End If
Do While Not oResults.EOF
Call oBag.AddValue(oResults(0) & "-State", CStr(oResults(1)))
oResults.MoveNext
Loop
Home
RUS