Administration And Monitoring Server Discovery

Microsoft.BitLocker.Administration.And.Monitoring.Discovery.Administration.And.Monitoring.Server (Discovery)

Knowledge Base article:

Element properties:

Object Discovery Details:

Member Modules:

Source Code:

<Discovery ID="Microsoft.BitLocker.Administration.And.Monitoring.Discovery.Administration.And.Monitoring.Server" Enabled="true" Target="Microsoft.BitLocker.Administration.And.Monitoring.Class.Administration.And.Monitoring.Server.Seed" ConfirmDelivery="false" Remotable="true" Priority="Normal">

  <Category>Discovery</Category>

  <DiscoveryTypes>

    <DiscoveryClass TypeID="Microsoft.BitLocker.Administration.And.Monitoring.Class.Administration.And.Monitoring.Server">

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

    </DiscoveryClass>

    <DiscoveryClass TypeID="Microsoft.BitLocker.Administration.And.Monitoring.Class.Microsoft.BitLocker.Administration.And.Monitoring">

      <Property TypeID="Microsoft.BitLocker.Administration.And.Monitoring.Class.Microsoft.BitLocker.Administration.And.Monitoring" PropertyID="ApplicationName"/>

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

    </DiscoveryClass>

    <DiscoveryRelationship TypeID="Administration.And.Monitoring.Server.Seed.Hosts.Administration.And.Monitoring.Server"/>

    <DiscoveryRelationship TypeID="Microsoft.BitLocker.Administration.And.Monitoring.Contains.Administration.And.Monitoring.Server"/>

  </DiscoveryTypes>

  <DataSource ID="DS" TypeID="Windows!Microsoft.Windows.TimedScript.DiscoveryProvider">

    <IntervalSeconds>14400</IntervalSeconds>

    <SyncTime/>

    <ScriptName>DiscoveryScript.vbs</ScriptName>

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

    <ScriptBody><Script>

Option Explicit

SetLocale("en-us")



Dim oScriptAPI, oDiscoveryData



Set oScriptAPI = CreateObject("MOM.ScriptAPI")

Set oDiscoveryData = oScriptAPI.CreateDiscoveryData(0, "$MPElement$", "$Target/Id$")



Dim oTarget

oTarget = WScript.Arguments(0)



Dim oInst0

Set oInst0 = oDiscoveryData.CreateClassInstance("$MPElement[Name='Microsoft.BitLocker.Administration.And.Monitoring.Class.Microsoft.BitLocker.Administration.And.Monitoring']$")



Call oInst0.AddProperty("$MPElement[Name='Microsoft.BitLocker.Administration.And.Monitoring.Class.Microsoft.BitLocker.Administration.And.Monitoring']/ApplicationName$", "Microsoft BitLocker Administration And Monitoring")

Call oInst0.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "Microsoft BitLocker Administration And Monitoring")



Call oDiscoveryData.AddInstance(oInst0)



Dim oInst1

Set oInst1 = oDiscoveryData.CreateClassInstance("$MPElement[Name='Microsoft.BitLocker.Administration.And.Monitoring.Class.Administration.And.Monitoring.Server']$")



Call oInst1.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", oTarget)

Call oInst1.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "Administration And Monitoring Server (" + oTarget + ")")



Call oDiscoveryData.AddInstance(oInst1)



Dim oRel0

Set oRel0 = oDiscoveryData.CreateRelationshipInstance("$MPElement[Name='Microsoft.BitLocker.Administration.And.Monitoring.Contains.Administration.And.Monitoring.Server']$")



oRel0.Source = oInst0

oRel0.Target = oInst1



Call oDiscoveryData.AddInstance(oRel0)



Call oScriptAPI.Return(oDiscoveryData)

</Script></ScriptBody>

    <TimeoutSeconds>300</TimeoutSeconds>

  </DataSource>

</Discovery>