Home
  •  

SNA Print Service Discovery

Microsoft.HostIntegrationServer.2009.SNAPrintDiscovery (Discovery)

Discovers the SNA Print Service.
Checks Opt-Out keys.
SNA Print sessions must be defined in order to be discovered.

Knowledge Base article:

Summary

The SNA Print Service discovery checks the registry location "HKLM\SOFTWARE\Microsoft\ SNA Server\CurrentVersion\Monitoring\" for the existence of the “Opt-Out” key (DisablePrintMonitoring). If the key is found, no further action is taken. If the key does not exist, the Host Integration Server 2009 Management Pack queries the WMI namespace “root\MicrosoftHIS”, looking for SNA print sessions defined on the server. If any sessions are found, the Host Integration Server 2009 Management Pack creates an instance of the SNAPrint class.

Element properties:

TargetMicrosoft.HostIntegrationServer.2009.SNAGateway
EnabledTrue
Frequency43240
RemotableFalse

Object Discovery Details:

Discovered Classes and their attribuets:

Member Modules:

ID Module Type TypeId RunAs 
DS DataSource Microsoft.Windows.TimedScript.DiscoveryProvider Default

Source Code:

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

  <Category>Discovery</Category>

  <DiscoveryTypes>

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

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

      <Property TypeID="Microsoft.HostIntegrationServer.2009.SNAPrint" PropertyID="SNAPrintDefs"/>

    </DiscoveryClass>

  </DiscoveryTypes>

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

    <IntervalSeconds>43240</IntervalSeconds>

    <SyncTime/>

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

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

    <ScriptBody><Script>

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

' &lt;name&gt;HIS2009 PrintService 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 SNA Print service discovery script for use with SCOM 2007.

'	Provides discovery functions for HIS SNA Print service. 

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



Dim strNetbiosName

strNetbiosName = "$Target/Host/Property[Type='Windows!Microsoft.Windows.Computer']/NetbiosComputerName$"



Dim bDisableTN3Monitoring, bDisableTN5Monitoring, bDisablePrintMonitoring, bDisableHIPMonitoring, bDisableLU62ResyncMonitoring, bDisableIPResyncMonitoring

Dim bDisableSIMonitoring, bDisableMIMonitoring, bDisableDIMonitoring, bDisableWIPMonitoring



bDisableTN3Monitoring           = FALSE

bDisableTN5Monitoring           = FALSE

bDisablePrintMonitoring         = FALSE

bDisableHIPMonitoring           = FALSE

bDisableLU62ResyncMonitoring    = FALSE

bDisableIPResyncMonitoring      = FALSE

bDisableSIMonitoring            = FALSE

bDisableMIMonitoring            = FALSE

bDisableDIMonitoring            = FALSE

bDisableWIPMonitoring           = FALSE



Dim Locator, Service

Set Locator = CreateObject("WbemScripting.SWbemLocator")



GetRegParams()

PrintSvcsDiscovery()



call oAPI.Return(oDiscoveryData)



Sub GetRegParams()



	' Sub GetRegParams()

	' Performs all registry lookups required for service discovery.



    	Const WMI_REG_HKLM              = &amp;H80000002



    	Const HIS_OPTOUT_KEYPATH        = "SOFTWARE\Microsoft\SNA Server\CurrentVersion\Monitoring\"

    	Const HIS_TN3_OPTOUT_KEY        = "DisableTN3270Monitoring"

    	Const HIS_TN5_OPTOUT_KEY        = "DisableTN5250Monitoring"

    	Const HIS_PRINT_OPTOUT_KEY      = "DisablePrintMonitoring"

    	Const HIS_HIP_OPTOUT_KEY        = "DisableHIPMonitoring"

    	Const HIS_LU62RESYNC_OPTOUT_KEY = "DisableLU62ResyncMonitoring"

    	Const HIS_IPRESYNC_OPTOUT_KEY   = "DisableIPResyncMonitoring"

    	Const HIS_SI_OPTOUT_KEY         = "DisableSessionIntegratorMonitoring"

    	Const HIS_DI_OPTOUT_KEY         = "DisableDataIntegrationMonitoring"

    	Const HIS_MI_OPTOUT_KEY         = "DisableMessageIntegrationMonitoring"

    	Const HIS_WIP_OPTOUT_KEY        = "DisableWIPMonitoring"



    	Const HIS_SNA_CONFIG_KEYPATH            = "SOFTWARE\Microsoft\Host Integration Server\ConfigFramework\ConfiguredFeatures"

    	Const HIS_SNA_SERVICE_KEY               = "SNA_SERVICE"

    	Const HIS_SNA_APPLICATION_SUPPORT_KEY   = "SNA_APPLICATION_SUPPORT"

		

	Dim oRegProvider

	Dim intReturn

	Dim colValues, strValue

	Dim colTypes



	' =============================================================

	

	' Check for the possible set of monitoring opt-out keys, and for each that exists

	' set the corresponding boolean variable to TRUE

	

	set oRegProvider=GetObject("winmgmts:\\" &amp; TargetComputer &amp; "\root\default:StdRegProv")



	intReturn = oRegProvider.EnumValues (WMI_REG_HKLM, HIS_OPTOUT_KEYPATH, colValues, colTypes)



	if intReturn = 0 AND NOT(IsNull(colValues)) then

	

		for each strValue in colValues



			Select Case strValue



				Case HIS_TN3_OPTOUT_KEY

					bDisableTN3Monitoring = TRUE

					'ScriptContext.Echo (strIndent2 &amp; strValue)



				Case HIS_TN5_OPTOUT_KEY

					bDisableTN5Monitoring = TRUE

					'ScriptContext.Echo (strIndent2 &amp; strValue)

					

				Case HIS_PRINT_OPTOUT_KEY 

					bDisablePrintMonitoring = TRUE

					'ScriptContext.Echo (strIndent2 &amp; strValue)

					

				Case HIS_HIP_OPTOUT_KEY

					bDisableHIPMonitoring = TRUE

					'ScriptContext.Echo (strIndent2 &amp; strValue)

					

				Case HIS_LU62RESYNC_OPTOUT_KEY

					bDisableLU62ResyncMonitoring = TRUE

					'ScriptContext.Echo (strIndent2 &amp; strValue)

					

				Case HIS_IPRESYNC_OPTOUT_KEY

					bDisableIPResyncMonitoring = TRUE

					'ScriptContext.Echo (strIndent2 &amp; strValue)

					

				Case HIS_SI_OPTOUT_KEY

					bDisableSIMonitoring = TRUE

					'ScriptContext.Echo (strIndent2 &amp; strValue)

					

				Case HIS_MI_OPTOUT_KEY

					bDisableMIMonitoring = TRUE

					'ScriptContext.Echo (strIndent2 &amp; strValue)

					

				Case HIS_DI_OPTOUT_KEY					

					bDisableDIMonitoring = TRUE

					'ScriptContext.Echo (strIndent2 &amp; strValue)

					

				Case HIS_WIP_OPTOUT_KEY

					bDisableWIPMonitoring = TRUE

					'ScriptContext.Echo (strIndent2 &amp; strValue)

			End Select

		next

	end if

	

End Sub 'GetRegParams





Sub PrintSvcsDiscovery()

	

	Dim colSessions

	Dim colWin32Services

	Dim objWin32Service



	Dim intPrintSessions

	intPrintSessions = 0

    

    ' =============================================================

	' Print Discovery

	' Get the set of print sessions for this HIS server, and if &gt; 0 add the 

	' Print state monitoring component in the HIS Svcs role.

	'

	if NOT bDisablePrintMonitoring then



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

		

		' Get Print session count

		set colSessions = Service.ExecQuery("select * FROM MsSna_PrintSession where Service='" &amp; strNetbiosName &amp; "'",, 0)

		

		if NOT colSessions.Count = 0 then

			intPrintSessions = colSessions.Count

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

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

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

			call oInst.AddProperty("$MPElement[Name='Microsoft.HostIntegrationServer.2009.SNAPrint']/SNAPrintDefs$", intPrintSessions)

			call oDiscoveryData.AddInstance(oInst)

		end if

	

	end if

	

End Sub 'PrintSvcsDiscovery

</Script></ScriptBody>

    <TimeoutSeconds>360</TimeoutSeconds>

  </DataSource>

</Discovery>