Cette analyse vérifie si le miroir de base de données est synchronisé.
Knowledge Base article:
Résumé
Cette analyse vérifie l'état de la session de mise en miroir des bases de données, comme indiqué par Microsoft® SQL Server™. Cette opération est effectuée en exécutant une requête sur la base de données master de l'instance SQL Server et en retournant l'état de la session de mise en miroir des bases de données. Si vous recevez une alerte de cette analyse, vous devez faire en sorte que la session de mise en miroir des bases de données fonctionne à nouveau.
Causes
Un état anormal indique que la session de mise en miroir des bases de données SQL Server™ n'est pas dans un état opérationnel. Les états possibles sont décrits ci-dessous :
État des serveurs partenaires de la mise en miroir
Description
État de fonctionnement MOM
IN_SYNC
Il s'agit de l'état opérationnel standard. Les serveurs partenaires de la mise en miroir sont synchronisés et la mise en miroir fonctionne normalement.
VERT
OUT_OF_SYNC
Les serveurs partenaires de la mise en miroir ne sont pas synchronisés.
ROUGE
Solutions
Pour résoudre ce problème, essayez les opérations suivantes :
Vérifiez que la configuration de mise en miroir est terminée et que le processus de mise en miroir est opérationnel.
Vérifiez le lien physique entre les serveurs partenaires de mise en miroir.
Configurez des règles de pare-feu sur les deux serveurs partenaires de la mise en miroir en fonction de la configuration des points de terminaison.
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
FRA