Cette analyse vérifie si le témoin du miroir de base de données est accessible.
Knowledge Base article:
Résumé
Cette analyse vérifie l'état du témoin de la mise en miroir de 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 du témoin de la mise en miroir de bases de données. Si vous recevez une alerte de cette analyse, vous devez faire en sorte que le témoin de la mise en miroir de bases de données fonctionne à nouveau.
Causes
Un état de fonctionnement anormal indique que le témoin de la mise en miroir de bases de données SQL Server™ n'est pas disponible actuellement. Tous les états, hormis CONNECTED et de NO-WITNESS, engendrent un fonctionnement anormal. Les états possibles sont décrits ci-dessous :
État du témoin de la mise en miroir
Description
État de fonctionnement MOM
CONNECTED
Il s'agit de l'état opérationnel standard. Le serveur partenaire de la mise en miroir peut accéder au serveur témoin.
VERT
NO-WITNESS
Cet état indique qu'aucun témoin n'est spécifié pour la session de mise en miroir. Il s'agit de l'état opérationnel normal en mode hautes performances et en mode haute sécurité sans basculement automatique.
VERT
UNKNOWN
Il existe des problèmes liés à la connexion entre le serveur partenaire de la mise en miroir et le serveur témoin.
JAUNE
DISCONNECTED
Il n'existe aucune connexion entre le serveur partenaire de la mise en miroir et le serveur témoin.
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 le serveur partenaire de la mise en miroir et le serveur témoin.
Configurez des règles de pare-feu sur les deux serveurs en fonction de la configuration des points de terminaison.
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
FRA