Este monitor verifica se a testemunha do espelhamento do banco de dados está acessível.
Knowledge Base article:
Resumo
Este monitor verifica o status da testemunha de espelhamento de banco de dados conforme relatado pelo Microsoft® SQL Server™. Isso é feito pela execução de uma consulta no banco de dados mestre da instância do SQL Server e pelo retorno do estado da testemunha do espelhamento do banco de dados. Se você receber um alerta deste monitor, será necessária uma ação para colocar a testemunha do espelhamento do banco de dados novamente em estado operacional.
Causas
Um estado não íntegro indica que a testemunha do espelhamento do banco de dados do SQL Server™ não está disponível no momento. Todos os estados, exceto CONNECTED e NO-WITNESS, ocasionarão um estado não íntegro. Os possíveis estados estão detalhados abaixo:
Estado da Testemunha de Espelhamento
Descrição
Estado de Integridade do MOM
CONNECTED
Este é o estado operacional normal. O Parceiro de Espelhamento pode acessar o servidor Testemunha.
ÍNTEGRO
NO-WITNESS
Este estado indica que não há nenhuma testemunha especificada para a sessão de espelhamento. É o estado operacional normal para o Modo de Alto Desempenho e o Modo de Alta Segurança sem Failover Automático.
ÍNTEGRO
UNKNOWN
Há alguns problemas com a conexão entre o Parceiro de Espelhamento e o servidor Testemunha.
AVISO
DISCONNECTED
Não há conexão entre o Parceiro de Espelhamento e o servidor Testemunha.
CRÍTICO
Resoluções
Para resolver o problema, tente fazer o seguinte:
Verifique se a configuração de espelhamento está completo, e se o processo de espelhamento está em execução.
Verifique o link físico entre o Parceiro de Espelhamento e o servidor Testemunha.
Configure as regras de firewall nos dois servidores de acordo com a configuração dos pontos de extremidade.
Parâmetros Substituíveis
Nome
Descrição
Valor Padrão
Prioridade do Alerta
Define a Prioridade do Alerta.
Normal
Severidade do Alerta
Define a Severidade do Alerta.
MatchMonitorHealth
Habilitado
Habilita ou desabilita o fluxo de trabalho.
Sim
Gerar Alertas
Define se o fluxo de trabalho gera um Alerta.
Sim
Intervalo (segundos)
O intervalo de tempo recorrente em segundos no qual executa-se o fluxo de trabalho.
900
Hora da Sincronização
O tempo de sincronização especificado usando um formato de 24 horas. Pode ser omitido.
Tempo limite (segundos)
Especifica o tempo durante o qual o fluxo de trabalho pode ser executado antes de ser fechado e marcado como com falha.
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
PTB