Questo monitoraggio controlla se il mirror del database è sincronizzato.
Knowledge Base article:
Riepilogo
Questo monitoraggio controlla lo stato della sessione di mirroring del database come riportato da Microsoft® SQL Server™. A questo scopo, viene eseguita una query sul database master dell'istanza di SQL Server che restituisce lo stato della sessione di mirroring del database. Se si riceve un avviso generato da questo monitoraggio, è necessario intervenire per riportare la sessione di mirroring del database allo stato operativo.
Cause
Uno stato non integro indica che la sessione di mirroring del database di SQL Server™ non è attualmente operativa. Gli stati possibili vengono descritti in dettaglio di seguito:
Stato partner di mirroring
Descrizione
Stato di integrità MOM
IN_SYNC
Si tratta del normale stato operativo. I partner di mirroring sono sincronizzati e il mirroring viene eseguito normalmente.
INTEGRO
OUT_OF_SYNC
I partner di mirroring non sono sincronizzati.
CRITICO
Soluzioni
Per risolvere il problema, effettuare le seguenti operazioni:
Assicurarsi che la configurazione di mirroring sia completata e che il processo di mirroring sia operativo.
Verificare la presenza di un collegamento fisico tra i partner di mirroring.
Configurare le regole firewall su entrambi i partner di mirroring in base alla configurazione degli endpoint.
Parametri di cui è possibile eseguire l'override
Nome
Descrizione
Valore predefinito
Priorità avviso
Definisce la priorità dell'avviso.
Normale
Gravità avviso
Definisce la gravità dell'avviso.
Abilitato
Abilita o disabilita il flusso di lavoro.
Sì
Genera avvisi
Definisce se il flusso di lavoro genera un avviso.
Sì
Intervallo (secondi)
Intervallo di tempo ricorrente in secondi in cui eseguire il flusso di lavoro.
900
Ora di sincronizzazione
Ora di sincronizzazione specificata usando il formato a 24 ore. Può essere omessa.
Errore
Timeout (secondi)
Specifica il tempo di esecuzione consentito per il flusso di lavoro prima che venga chiuso e contrassegnato come non riuscito.
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)
Call GlobalErrorListToEventLog()
Else
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
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", 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
ITA