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.
INTÈGRE
NO-WITNESS
Il s'agit d'un état personnalisé qui s'affiche quand la mise en miroir est configurée sans témoin. 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.
INTÈGRE
UNKNOWN
Il existe des problèmes liés à la connexion entre le serveur partenaire de la mise en miroir et le serveur témoin.
AVERTISSEMENT
DISCONNECTED
Il n'existe aucune connexion entre le serveur partenaire de la mise en miroir et le serveur témoin.
CRITIQUE
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.
Paramètres remplaçables
Nom
Description
Valeur par défaut
Priorité de l'alerte
Définit la priorité de l'alerte.
Normal
Gravité de l'alerte
Définit la gravité de l'alerte.
MatchMonitorHealth
Activé
Active ou désactive le flux de travail.
Oui
Génère des alertes
Définit si le flux de travail génère une alerte.
Oui
Intervalle (en secondes)
L'intervalle de temps récurrent en secondes pendant lequel le workflow est exécuté.
900
Heure de synchronisation
L'heure de synchronisation spécifiée dans un format de 24 heures. Peut être omise.
Délai d'expiration (en secondes)
Spécifie la durée pendant laquelle le workflow est autorisé à être exécuté avant d'être fermé et marqué comme un échec.
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 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 = WitnessAccessibility(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 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
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", 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