WASListenerWebSphereMQ Discovery

Microsoft.HostIntegrationServer.2010.WASListenerWebSphereMQDiscovery (Discovery)

Discovers the WAS Listener for WebSphere MQ service

Knowledge Base article:

Element properties:

Object Discovery Details:

Member Modules:

Source Code:

<Discovery ID="Microsoft.HostIntegrationServer.2010.WASListenerWebSphereMQDiscovery" Enabled="true" Target="Microsoft.HostIntegrationServer.2010.MsgInt" ConfirmDelivery="false" Remotable="true" Priority="Normal">

  <Category>Discovery</Category>

  <DiscoveryTypes>

    <DiscoveryClass TypeID="Microsoft.HostIntegrationServer.2010.WASListenerWebSphereMQ">

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

    </DiscoveryClass>

  </DiscoveryTypes>

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

    <IntervalSeconds>43220</IntervalSeconds>

    <SyncTime/>

    <ScriptName>HIS2010 WASListenerWebSphereMQ Discovery.vbs</ScriptName>

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

    <ScriptBody><Script>

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

' &lt;name&gt;HIS2010 WASListenerWebSphereMQ Discovery.vbs&lt;/name&gt;

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

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

' &lt;summary&gt;

'   Microsoft Host Integration Server 2010 WASListenerWebSphereMQ discovery script for use with SCOM 2007.

'	Provides discovery functions for Host Integration Server 2010 Net.Mqs Listener Adapter. 

' &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)



' MSMQ-MQS Bridge Discovery

' Search for Net.Mqs Listener Adapter instance of root\cimv2\Win32_Service.

' If &gt; 0, create the Net.Mqs Listener Adapter 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='Net.Mqs Listener Adapter'",, 0)



    for each objWin32Service in colWin32Services



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

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

    call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "WAS Listener for WebSphere MQ")

    call oDiscoveryData.AddInstance(oInst)



    next



    call oAPI.Return(oDiscoveryData)



  </Script></ScriptBody>

    <TimeoutSeconds>360</TimeoutSeconds>

  </DataSource>

</Discovery>