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.
VERDE
OUT_OF_SYNC
I partner di mirroring non sono sincronizzati.
ROSSO
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.
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 nResult
nResult = PartnersStatus(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 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
ITA