Este monitor verifica se o espelho do banco de dados está sincronizado.
Knowledge Base article:
Resumo
Este monitor verifica o status da sessão 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 do retorno do estado da sessão de espelhamento do banco de dados. Se você receber um alerta deste monitor, será necessária uma ação para colocar a sessão de espelhamento do banco de dados novamente em estado operacional.
Causas
Um estado não íntegro indica que a sessão de espelhamento de banco de dados do SQL Server™ não está em estado operacional. Os possíveis estados estão detalhados abaixo:
Estado dos Parceiros de Espelhamento
Descrição
Estado de Integridade do MOM
IN_SYNC
Este é o estado operacional normal. Os Parceiros de Espelhamento estão sincronizados e o espelhamento está sendo executado normalmente.
ÍNTEGRO
OUT_OF_SYNC
Os Parceiros de Espelhamento estão fora de sincronia.
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 os Parceiros de Espelhamento.
Configure as regras de firewall nos dois Parceiros de Espelhamento de acordo com a configuração dos pontos de extremidade.
Parâmetros Substituíveis
Nome
Descrição
Valor Padrão
Intervalo (segundos)
O intervalo de tempo recorrente em segundos no qual executa-se o fluxo de trabalho.
900
Hora da Sincronização
A hora da sincronização especificada usando um formato de 24 horas. Pode ser omitido.
Tempo Limite (segundos)
Especifica o tempo que o fluxo de trabalho pode funcionar antes de ser fechado e marcado como com falha.
Dim GetPartnersStatusQuery
GetPartnersStatusQuery = "SELECT " &_
" mirroring_guid, " &_
" partner_sync_state_desc " &_
" FROM sys.database_mirroring_witnesses "
Call GetPartnersStatus()
Sub GetPartnersStatus()
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 = PartnersStatus(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 PartnersStatus(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
PartnersStatus = 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(GetPartnersStatusQuery)
e.Save
On Error Goto 0
If e.Number <> 0 Then
PartnersStatus = 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), CStr(oResults(1)))
oResults.MoveNext
Loop
Home
PTB