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 através da execução de uma consulta no banco de dados mestre da instância do SQL Server e do retorno do estado da testemunha do espelhamento do banco de dados. Se você receber um alerta deste monitor, uma ação será necessária 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™ está inacessí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.
VERDE
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.
VERDE
UNKNOWN
Há alguns problemas com a conexão entre o Parceiro de Espelhamento e o servidor Testemunha.
AMARELO
DISCONNECTED
Não há conexão entre o Parceiro de Espelhamento e o servidor Testemunha.
VERMELHO
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.
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 nResult
nResult = WitnessAccessibility(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 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