Individuazione backlog di replica DFS

Microsoft.Windows.FileServer.DFSR.BacklogDiscovery (Discovery)

Se abilitata, questa regola consente di individuare quanti file sono in attesa di replica mediante Replica DFS (backlog di replica).

Knowledge Base article:

Riepilogo

Se abilitata, questa regola consente di individuare quanti file sono in attesa di replica mediante Replica DFS (backlog di replica). Questa regola di individuazione popola la vista Backlog di replica nella Console operatore.

Configurazione

Questa regola di individuazione è disabilitata per impostazione predefinita perché il conteggio backlog può cambiare frequentemente, spesso ogni volta che Operations Manager esegue la regola di individuazione. Per monitorare i backlog di replica, abilitare la regola di individuazione e configurare come valore la frequenza minima che fornisce informazioni sufficientemente aggiornate sul conteggio backlog. È consigliabile impostare la frequenza su un'ora o più, per ridurre al minimo il carico del server e il traffico di rete.

Informazioni aggiuntive

Per visualizzare il backlog di replica immediatamente è possibile utilizzare il comando Dfsrdiag backlog in un server con Replica DFS o i relativi strumenti della riga di comando installati.

Element properties:

Target	Microsoft.Windows.FileServer.DFSR.Service
Enabled	False
Frequency	14400
Remotable	False

Object Discovery Details:

Discovered Classes and their attribuets:
Microsoft.Windows.FileServer.DFSR.ReplicationConnection ReplicationGroupName ReplicatedFolderName SendingMemberName ReceivingMemberName Enabled BacklogCount ReplicationGroupGUID ReplicatedFolderGUID ConnectionGUID SendingMemberGUID ReceivingMemberGUID DisplayName

Member Modules:

ID	Module Type	TypeId	RunAs
DS	DataSource	Microsoft.Windows.TimedScript.DiscoveryProvider	Microsoft.Windows.FileServer.DFSR.MonitoringAccount

Source Code:

<Discovery ID="Microsoft.Windows.FileServer.DFSR.BacklogDiscovery" Enabled="false" Target="Microsoft.Windows.FileServer.DFSR.Service" ConfirmDelivery="false" Remotable="true" Priority="Normal">

  <Category>Discovery</Category>

  <DiscoveryTypes>

    <DiscoveryClass TypeID="Microsoft.Windows.FileServer.DFSR.ReplicationConnection">

      <Property TypeID="Microsoft.Windows.FileServer.DFSR.ReplicationConnection" PropertyID="ReplicationGroupName"/>

      <Property TypeID="Microsoft.Windows.FileServer.DFSR.ReplicationConnection" PropertyID="ReplicatedFolderName"/>

      <Property TypeID="Microsoft.Windows.FileServer.DFSR.ReplicationConnection" PropertyID="SendingMemberName"/>

      <Property TypeID="Microsoft.Windows.FileServer.DFSR.ReplicationConnection" PropertyID="ReceivingMemberName"/>

      <Property TypeID="Microsoft.Windows.FileServer.DFSR.ReplicationConnection" PropertyID="Enabled"/>

      <Property TypeID="Microsoft.Windows.FileServer.DFSR.ReplicationConnection" PropertyID="BacklogCount"/>

      <Property TypeID="Microsoft.Windows.FileServer.DFSR.ReplicationConnection" PropertyID="ReplicationGroupGUID"/>

      <Property TypeID="Microsoft.Windows.FileServer.DFSR.ReplicationConnection" PropertyID="ReplicatedFolderGUID"/>

      <Property TypeID="Microsoft.Windows.FileServer.DFSR.ReplicationConnection" PropertyID="ConnectionGUID"/>

      <Property TypeID="Microsoft.Windows.FileServer.DFSR.ReplicationConnection" PropertyID="SendingMemberGUID"/>

      <Property TypeID="Microsoft.Windows.FileServer.DFSR.ReplicationConnection" PropertyID="ReceivingMemberGUID"/>

      <Property TypeID="System!System.Entity" PropertyID="DisplayName"/>

    </DiscoveryClass>

  </DiscoveryTypes>

  <DataSource ID="DS" RunAs="Microsoft.Windows.FileServer.DFSR.MonitoringAccount" TypeID="Windows!Microsoft.Windows.TimedScript.DiscoveryProvider">

    <IntervalSeconds>14400</IntervalSeconds>

    <SyncTime/>

    <ScriptName>BacklogDiscovery.vbs</ScriptName>

    <Arguments>0 $MPElement$ $Target/Id$ $Target/Host/Property[Type="Windows!Microsoft.Windows.Computer"]/PrincipalName$</Arguments>

    <ScriptBody><Script>

            Option Explicit



            On Error Resume Next



            Dim SourceType, SourceID, ManagedEntityId, oArgs, oAPI, sDfsrServerName, oReplicationConnections, oDiscData



            SetLocale("en-us")



            Set oAPI = CreateObject("MOM.ScriptAPI")

            Set oArgs = WScript.Arguments



            If oArgs.Count &lt; 4 Then

            call oAPI.LogScriptEvent("BacklogDiscovery.vbs", 100, 1, "Expected 4 arguments. There were only " &amp; oArgs.Count &amp; " arguments. Exiting script.")

            Wscript.Quit -1

            End If



            SourceType = oArgs(0)

            SourceId = oArgs(1)

            ManagedEntityId = oArgs(2)

            sDfsrServerName = oArgs(3)



            set oDiscData = oAPI.CreateDiscoveryData(SourceType, SourceId, ManagedEntityId)



            Dim objWMIService, ListOfConnections, objDfsrRfInfo, Connection, objReceivingWmiService, BacklogCount, ListOfReplicatedFolders, MemberInfoList, MemberInformation, MemberInfo



            Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &amp; sDfsrServerName &amp; "\root\microsoftdfs")



            If Err.Number &lt;&gt; 0 then

            strErr = "Unable to connect to local WMI provider. Error: 0x" &amp; Hex(Err.Number) &amp; " " &amp; Err.Description

            WScript.Echo strErr

            Wscript.Quit -1

            End If



            Set MemberInfoList = objWMIService.ExecQuery("select MemberGuid from DfsrLocalMemberConfig where MemberName='" &amp; Left(sDfsrServerName, InStr(sDfsrServerName, ".")-1) &amp; "'")

            If Err.Number &lt;&gt; 0 then

            strErr = "Unable to query DfsrLocalMemberConfig from local WMI provider. Error: 0x" &amp; Hex(Err.Number) &amp; " " &amp; Err.Description

            WScript.Echo strErr

            Wscript.Quit -1

            End If



            For Each MemberInfo in MemberInfoList

            Set ListOfConnections = objWMIService.ExecQuery("Select PartnerDns, PartnerGuid, PartnerName, ConnectionGuid, MemberGuid, ReplicationGroupGuid, Enabled from DfsrConnectionConfig Where Inbound = false and MemberGuid='" &amp; MemberInfo.MemberGuid &amp; "'")

            If Err.Number &lt;&gt; 0 then

            strErr = "Unable to query DfsrConnectionConfig from local WMI provider. Error: 0x" &amp; Hex(Err.Number) &amp; " " &amp; Err.Description

            WScript.Echo strErr

            Wscript.Quit -1

            End If



            For Each Connection in ListOfConnections



            Set objReceivingWmiService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &amp; Connection.PartnerDns &amp; "\root\microsoftdfs")

            If Err.Number &lt;&gt; 0 then

            strErr = "Unable to connect to remote WMI provider. Server: " &amp; Connection.PartnerDns &amp; ". Error: 0x" &amp; Hex(Err.Number) &amp; " " &amp; Err.Description

            WScript.Echo strErr

            Err.Clear

            oDiscData.IsSnapshot = false

            Else

            Set ListOfReplicatedFolders = objReceivingWmiService.ExecQuery ("Select ReplicationGroupName, ReplicatedFolderGuid, ReplicatedFolderName from DfsrReplicatedFolderInfo Where MemberGuid ='" &amp; Connection.PartnerGuid &amp; "'")

            If Err.Number &lt;&gt; 0 then

            strErr = "Unable to query DfsrReplicatedFolderInfo from remote WMI provider. Server: " &amp; Connection.PartnerDns &amp; ". Error: 0x" &amp; Hex(Err.Number) &amp; " " &amp; Err.Description

            WScript.Echo strErr

            Err.Clear

            oDiscData.IsSnapshot = false

            Else

            For Each objDfsrRfInfo In ListOfReplicatedFolders

            BacklogCount = 0



            BacklogCount = Backlog(objReceivingWmiService, objWMIService, objDfsrRfInfo)



            If Err.Number &lt;&gt; 0 then

            strErr = "Unable to get backlog information. ReplicatedFolderGuid: "&amp; objDfsrRfInfo.ReplicatedFolderGuid &amp; " Error: 0x" &amp; Hex(Err.Number) &amp; " " &amp; Err.Description

            WScript.Echo strErr

            Err.Clear

            oDiscData.IsSnapshot = false

            Else

            set oReplicationConnections = oDiscData.CreateClassInstance("$MPElement[Name='Microsoft.Windows.FileServer.DFSR.ReplicationConnection']$")



            call oReplicationConnections.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", sDfsrServerName)

            call oReplicationConnections.AddProperty("$MPElement[Name='Microsoft.Windows.FileServer.DFSR.ReplicationConnection']/ConnectionGUID$", Connection.ConnectionGuid)

            call oReplicationConnections.AddProperty("$MPElement[Name='Microsoft.Windows.FileServer.DFSR.ReplicationConnection']/SendingMemberGUID$", Connection.MemberGuid)

            call oReplicationConnections.AddProperty("$MPElement[Name='Microsoft.Windows.FileServer.DFSR.ReplicationConnection']/SendingMemberName$", Left(sDfsrServerName, InStr(sDfsrServerName, ".")-1))

            call oReplicationConnections.AddProperty("$MPElement[Name='Microsoft.Windows.FileServer.DFSR.ReplicationConnection']/ReceivingMemberGUID$", Connection.PartnerGuid)

            call oReplicationConnections.AddProperty("$MPElement[Name='Microsoft.Windows.FileServer.DFSR.ReplicationConnection']/ReceivingMemberName$", Connection.PartnerName)

            call oReplicationConnections.AddProperty("$MPElement[Name='Microsoft.Windows.FileServer.DFSR.ReplicationConnection']/ReplicationGroupGUID$", Connection.ReplicationGroupGuid)

            call oReplicationConnections.AddProperty("$MPElement[Name='Microsoft.Windows.FileServer.DFSR.ReplicationConnection']/ReplicationGroupName$", objDfsrRfInfo.ReplicationGroupName)

            call oReplicationConnections.AddProperty("$MPElement[Name='Microsoft.Windows.FileServer.DFSR.ReplicationConnection']/ReplicatedFolderGUID$", objDfsrRfInfo.ReplicatedFolderGuid)

            call oReplicationConnections.AddProperty("$MPElement[Name='Microsoft.Windows.FileServer.DFSR.ReplicationConnection']/ReplicatedFolderName$", objDfsrRfInfo.ReplicatedFolderName)

            call oReplicationConnections.AddProperty("$MPElement[Name='Microsoft.Windows.FileServer.DFSR.ReplicationConnection']/Enabled$", Connection.Enabled)

            call oReplicationConnections.AddProperty("$MPElement[Name='Microsoft.Windows.FileServer.DFSR.ReplicationConnection']/BacklogCount$", BacklogCount)

            call oReplicationConnections.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "'" &amp; Left(sDfsrServerName, InStr(sDfsrServerName, ".")-1) &amp; " -&gt; " &amp; Connection.PartnerName &amp; "'")



            call oDiscData.AddInstance(oReplicationConnections)

            End If

            Next

            End If

            End If

            Next

            Next



            Call oAPI.Return(oDiscData)



            Function Backlog(objReceivingWmiConn, objSendingWmiConn, objReceivingDfsrRfInfo)



            Backlog = 0



            Dim strVv, strError

            Dim strObjPath

            Dim objSendingDfsrRfInfo

            Dim uintBacklogCount

            Dim uintRecordIdx

            Dim uintErr





            uintErr = objReceivingDfsrRfInfo.GetVersionVector(strVv)



            If uintErr &lt;&gt; 0 Then

            Backlog = 0

            Exit Function

            End If



            strObjPath = objReceivingDfsrRfInfo.Path_.RelPath



            On Error Resume Next

            Set objSendingDfsrRfInfo = objSendingWmiConn.Get(strObjPath)



            If ( Err &lt;&gt; 0 ) Then

            Backlog = 0

            Exit Function

            End If



            uintErr = objSendingDfsrRfInfo.GetOutboundBacklogFileCount(strVv, uintBacklogCount, uintRecordIdx)



            If uintErr &lt;&gt; 0 Then

            backlog = 0

            Exit Function

            End If



            Backlog = uintBacklogCount



            End Function

          </Script></ScriptBody>

    <TimeoutSeconds>300</TimeoutSeconds>

  </DataSource>

</Discovery>