複寫群組探索

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

此規則會探索受監視電腦上的複寫群組。

Knowledge Base article:

Element properties:

Object Discovery Details:

Member Modules:

Source Code:

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

  <Category>Discovery</Category>

  <DiscoveryTypes>

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

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

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

    </DiscoveryClass>

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

      <Property TypeID="Microsoft.Windows.FileServer.DFSR.ReplicationGroupMember" PropertyID="MemberGUID"/>

    </DiscoveryClass>

    <DiscoveryRelationship TypeID="Microsoft.Windows.FileServer.DFSR.ReplicationGroup.Contains.ReplicationGroupMembers"/>

  </DiscoveryTypes>

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

    <IntervalSeconds>14400</IntervalSeconds>

    <SyncTime/>

    <ScriptName>ReplicationGroupMembersDiscovery.vbs</ScriptName>

    <Arguments>0 $MPElement$ $Target/Id$ $Target/Host/Property[Type="Windows!Microsoft.Windows.Computer"]/PrincipalName$ $Target/Property[Type="Microsoft.Windows.FileServer.DFSR.ReplicationGroupMember"]/ReplicationGroupGUID$ "$Target/Property[Type="Microsoft.Windows.FileServer.DFSR.ReplicationGroupMember"]/RGName$" $Target/Property[Type="Microsoft.Windows.FileServer.DFSR.ReplicationGroupMember"]/MemberGUID$</Arguments>

    <ScriptBody><Script>

            Option Explicit



            On Error Resume Next



            Dim SourceType, SourceID, ManagedEntityId, oArgs, oAPI, ReplicationGroupId, ReplicationGroupName, ReplicationMemberId, sDfsrServerName



            SetLocale("en-us")



            Set oAPI = CreateObject("MOM.ScriptAPI")

            Set oArgs = WScript.Arguments



            if oArgs.Count &lt; 7 Then

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

            Wscript.Quit -1

            End If



            Dim oDiscData, oRGMembers, oRel, oReplicationGroup



            SourceType = oArgs(0)

            SourceId = oArgs(1)

            ManagedEntityId = oArgs(2)

            sDfsrServerName = oArgs(3)

            ReplicationGroupId = oArgs(4)

            ReplicationGroupName = oArgs(5)

            ReplicationMemberId = oArgs(6)



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



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



            call oReplicationGroup.AddProperty("$MPElement[Name='Microsoft.Windows.FileServer.DFSR.ReplicationGroup']/ReplicationGroupGUID$", ReplicationGroupId)

            call oReplicationGroup.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", ReplicationGroupName)



            Call oDiscData.AddInstance(oReplicationGroup)



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



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

            call oRGMembers.AddProperty("$MPElement[Name='Microsoft.Windows.FileServer.DFSR.ReplicationGroupMember']/MemberGUID$", ReplicationMemberId)

            call oRGMembers.AddProperty("$MPElement[Name='Microsoft.Windows.FileServer.DFSR.ReplicationGroupMember']/ReplicationGroupGUID$", ReplicationGroupId)



            Call oDiscData.AddInstance(oRGMembers)



            Set oRel = oDiscData.CreateRelationshipInstance("$MPElement[Name='Microsoft.Windows.FileServer.DFSR.ReplicationGroup.Contains.ReplicationGroupMembers']$")



            oRel.Source = oReplicationGroup

            oRel.Target = oRGMembers



            Call oDiscData.AddInstance(oRel)



            Call oAPI.Return(oDiscData)

          </Script></ScriptBody>

    <TimeoutSeconds>900</TimeoutSeconds>

  </DataSource>

</Discovery>