Überprüft, ob der Zugriff auf den Datenbank-Spiegelungszeugen möglich ist.
Knowledge Base article:
Zusammenfassung
Dieser Monitor überprüft den von Microsoft® SQL Server™ gemeldeten Datenbank-Spiegelungszeugen. Dazu wird eine Abfrage für die master-Datenbank der SQL Server-Instanz ausgeführt und der Status des Datenbank-Spiegelungszeugen zurückgegeben. Wenn Sie eine Warnung von diesem Monitor erhalten, ist eine Aktion erforderlich, um den Datenbank-Spiegelungszeugen in einen funktionsfähigen Zustand zurückzuversetzen.
Ursachen
Ein fehlerhafter Zustand ist ein Hinweis darauf, dass der SQL Server™-Datenbankspiegelungszeuge zurzeit nicht verfügbar ist. Alle Status außer CONNECTED und NO-WITNESS verursachen einen fehlerhaften Zustand. Die möglichen Statusangaben werden unten genauer beschrieben:
Status des Spiegelungszeugen
Beschreibung
MOM Integritätsstatus
CONNECTED
Dies ist der normale Betriebszustand. Spiegelungspartner kann auf den Zeugenserver zugreifen.
GRÜN
NO-WITNESS
Dieser Status gibt an, dass kein Zeuge für die Spiegelungssitzung angegeben wurde. Dies ist der normale Betriebszustand für den Hochleistungs- und den Hochsicherheitsmodus ohne automatisches Failover.
GRÜN
UNKNOWN
Es gibt einige Probleme mit der Verbindung zwischen Spiegelungspartner und Zeugenserver.
GELB
DISCONNECTED
Es gibt keine Verbindung zwischen Spiegelungspartner und Zeugenserver.
ROT
Lösungen
Versuchen Sie Folgendes, um das Problem zu lösen:
Stellen Sie sicher, dass die Spiegelungskonfiguration abgeschlossen ist und der Spiegelungsprozess ausgeführt wird.
Überprüfen Sie die physische Verbindung zwischen Spiegelungspartner und Zeugenserver.
Konfigurieren Sie Firewallregeln auf beiden Servern entsprechend der Endpunktkonfiguration.
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
DEU