This rule, when enabled, discovers how many files are waiting to be replicated by using DFS Replication (the replication backlog).
Knowledge Base article:
Summary
This rule, when enabled, discovers how many files are waiting to be replicated by using DFS Replication (the replication backlog). This discovery rule populates the Replication Backlog view in the Operations console.
Configuration
This discovery rule is disabled by default because the backlog count can change frequently, often every time the Operations Manager runs the discovery rule. To monitor replication backlogs, enable this discovery rule and configure the frequency to the least-frequent value that provides you with sufficiently up-to-date information about the backlog count. We recommend setting the frequency to one hour or more to minimize server load and network traffic.
Additional
You can use the Dfsrdiag backlog command on a server with DFS Replication or its command line tools installed to display the replication backlog immediately.
Dim SourceType, SourceID, ManagedEntityId, oArgs, oAPI, sDfsrServerName, oReplicationConnections, oDiscData
SetLocale("en-us")
Set oAPI = CreateObject("MOM.ScriptAPI")
Set oArgs = WScript.Arguments
If oArgs.Count < 4 Then
call oAPI.LogScriptEvent("BacklogDiscovery.vbs", 100, 1, "Expected 4 arguments. There were only " & oArgs.Count & " arguments. Exiting script.")
Wscript.Quit -1
End If
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & sDfsrServerName & "\root\microsoftdfs")
If Err.Number <> 0 then
strErr = "Unable to connect to local WMI provider. Error: 0x" & Hex(Err.Number) & " " & Err.Description
WScript.Echo strErr
Wscript.Quit -1
End If
Set MemberInfoList = objWMIService.ExecQuery("select MemberGuid from DfsrLocalMemberConfig where MemberName='" & Left(sDfsrServerName, InStr(sDfsrServerName, ".")-1) & "'")
If Err.Number <> 0 then
strErr = "Unable to query DfsrLocalMemberConfig from local WMI provider. Error: 0x" & Hex(Err.Number) & " " & 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='" & MemberInfo.MemberGuid & "'")
If Err.Number <> 0 then
strErr = "Unable to query DfsrConnectionConfig from local WMI provider. Error: 0x" & Hex(Err.Number) & " " & Err.Description
WScript.Echo strErr
Wscript.Quit -1
End If
For Each Connection in ListOfConnections
Set objReceivingWmiService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Connection.PartnerDns & "\root\microsoftdfs")
If Err.Number <> 0 then
strErr = "Unable to connect to remote WMI provider. Server: " & Connection.PartnerDns & ". Error: 0x" & Hex(Err.Number) & " " & Err.Description
WScript.Echo strErr
Err.Clear
oDiscData.IsSnapshot = false
Else
Set ListOfReplicatedFolders = objReceivingWmiService.ExecQuery ("Select ReplicationGroupName, ReplicatedFolderGuid, ReplicatedFolderName from DfsrReplicatedFolderInfo Where MemberGuid ='" & Connection.PartnerGuid & "'")
If Err.Number <> 0 then
strErr = "Unable to query DfsrReplicatedFolderInfo from remote WMI provider. Server: " & Connection.PartnerDns & ". Error: 0x" & Hex(Err.Number) & " " & Err.Description
WScript.Echo strErr
Err.Clear
oDiscData.IsSnapshot = false
Else
For Each objDfsrRfInfo In ListOfReplicatedFolders
BacklogCount = 0
If Err.Number <> 0 then
strErr = "Unable to get backlog information. ReplicatedFolderGuid: "& objDfsrRfInfo.ReplicatedFolderGuid & " Error: 0x" & Hex(Err.Number) & " " & Err.Description
WScript.Echo strErr
Err.Clear
oDiscData.IsSnapshot = false
Else
set oReplicationConnections = oDiscData.CreateClassInstance("$MPElement[Name='Microsoft.Windows.FileServer.DFSR.ReplicationConnection']$")
Home
ENU