Detección de trabajo pendiente en la Replicación DFS

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

Esta regla, cuando está habilitada, detecta el número de archivos esperando a ser replicados, utilizando la Replicación DFS (trabajo pendiente de replicación).

Knowledge Base article:

Resumen

Esta regla, cuando está habilitada, detecta el número de archivos esperando a ser replicados, utilizando la Replicación DFS (trabajo pendiente de replicación). Esta regla de detección completa la vista de trabajos pendientes de replicación en la Consola del operador.

Configuración

Esta regla de detección está deshabilitada de forma predeterminada porque el número de trabajos pendientes puede cambiar con frecuencia, a menudo cada vez que el Operations Manager ejecuta la regla de detección. Para supervisar trabajos pendientes de replicación, habilite esta regla de detección y configure la frecuencia al valor menos frecuente, que le ofrecerá información lo suficientemente actualizada acerca del número del trabajos pendientes. Recomendamos configurar la frecuencia a una hora o más, para minimizar la carga del servidor y el tráfico de la red.

Adicional

Puede utilizar el comando Dfsrdiag backlog en un servidor con Replicación DFS, o su herramienta de línea de comando instalada, para mostrar de forma inmediata los trabajos pendientes de replicación.

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>