DDM Service Discovery

Microsoft.HostIntegrationServer.2009.DDMServiceDiscovery (Discovery)

Discovers the DDM Service

Knowledge Base article:

Element properties:

Object Discovery Details:

Member Modules:

Source Code:

<Discovery ID="Microsoft.HostIntegrationServer.2009.DDMServiceDiscovery" Enabled="true" Target="Microsoft.HostIntegrationServer.2009.DataInt" ConfirmDelivery="false" Remotable="true" Priority="Normal">

  <Category>Discovery</Category>

  <DiscoveryTypes>

    <DiscoveryClass TypeID="Microsoft.HostIntegrationServer.2009.DDM">

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

    </DiscoveryClass>

  </DiscoveryTypes>

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

    <IntervalSeconds>43270</IntervalSeconds>

    <SyncTime/>

    <ScriptName>HIS2009 DDMService Discovery.vbs</ScriptName>

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

    <ScriptBody><Script>

'--------------------------------------------------------------------------------------------------

' &lt;name&gt;HIS2009 DDMService Discovery.vbs&lt;/name&gt;

' &lt;company&gt;Microsoft Corporation&lt;/company&gt;

' &lt;copyright&gt;Copyright (c) Microsoft Corporation 2009&lt;/copyright&gt;

' &lt;summary&gt;

'   Microsoft Host Integration Server 2009 DDMService discovery script for use with SCOM 2007.

'	Provides discovery functions for Host Integration Server 2009 DDMService. 

' &lt;/summary&gt;

'

' See Management Pack Guide for details on parameters and usage

'--------------------------------------------------------------------------------------------------











SetLocale("en-us")

Dim oAPI, oDiscoveryData, oInst

Set oAPI = CreateObject("MOM.ScriptAPI")



Dim oArgs

Set oArgs = WScript.Arguments

if oArgs.Count &lt; 3 Then

   Wscript.Quit -1

End If



Dim SourceID, ManagedEntityId, TargetComputer



SourceId = oArgs(0)

ManagedEntityId = oArgs(1)

TargetComputer = oArgs(2)



set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)



' SNA DDM Service Discovery

' Search for SNA DDM Service instance of root\cimv2\Win32_Service.

' If &gt; 0, create the SNA DDM Service



Dim colWin32Services

Dim objWin32Service

Dim Locator, Service



Set Locator = CreateObject("WbemScripting.SWbemLocator")



Set Service = Locator.ConnectServer(TargetComputer, "root\cimv2")



set colWin32Services = Service.ExecQuery("select * from Win32_Service where DisplayName='SNA DDM Service'",, 0)



for each objWin32Service in colWin32Services



      set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Microsoft.HostIntegrationServer.2009.DDM']$")

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

      call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "DDM Service")

      call oDiscoveryData.AddInstance(oInst)

    			

next



call oAPI.Return(oDiscoveryData)



</Script></ScriptBody>

    <TimeoutSeconds>360</TimeoutSeconds>

  </DataSource>

</Discovery>