사용하도록 설정된 경우 이 규칙은 DFS 복제(복제 백로그)를 사용하여 복제 대기 중인 파일 수를 검색합니다.
Knowledge Base article:
요약
사용하도록 설정된 경우 이 규칙은 DFS 복제(복제 백로그)를 사용하여 복제 대기 중인 파일 수를 검색합니다. 이 검색 규칙은 운영 콘솔의 복제 백로그 보기를 채웁니다.
구성
대체로 Operations Manager가 검색 규칙을 실행할 때마다 백로그 개수가 자주 변경될 수 있으므로 이 검색 규칙은 기본적으로 사용하지 않도록 설정되어 있습니다. 복제 백로그를 모니터링하려면 이 검색 규칙을 사용하도록 설정하고, 백로그 개수에 대한 최신 정보를 제공하는 덜 빈번한 값으로 빈도를 구성합니다. 서버 로드와 네트워크 트래픽을 최소화하려면 빈도를 1시간 이상으로 설정하는 것이 좋습니다.
추가 정보
DFS 복제 또는 해당 명령줄 도구가 설치되어 있는 서버에서 Dfsrdiag backlog 명령을 사용하여 복제 백로그를 즉시 표시할 수 있습니다.
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
KOR