Home
  •  

TN5250 Service Discovery

Microsoft.HostIntegrationServer.2016.TN5250Discovery (Discovery)

Checks Opt-Out registry keys
Checks for AS/400 definitions must assigned to the TN5250 service

Knowledge Base article:

Summary

The TN5250 Service discovery checks the registry location "HKLM\SOFTWARE\Microsoft\SNA Server\CurrentVersion\Monitoring\" for the existence of the “Opt-Out” key (Disable TN5250Monitoring). If the key exists, no further action is taken. If the key does not exist, the Host Integration Server 2016 Management Pack queries the WMI namespace “root\MicrosoftHIS”, looking for AS/400 definitions on the server. If any sessions are found, the Host Integration Server 2016 Management Pack creates an instance of the TN5250 class.

Element properties:

TargetMicrosoft.HostIntegrationServer.2016.SNAGateway
EnabledTrue
Frequency21600
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.2016.TN5250Discovery" Enabled="true" Target="Microsoft.HostIntegrationServer.2016.SNAGateway" ConfirmDelivery="false" Remotable="true" Priority="Normal">

  <Category>Discovery</Category>

  <DiscoveryTypes>

    <DiscoveryClass TypeID="Microsoft.HostIntegrationServer.2016.TN5250">

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

      <Property TypeID="Microsoft.HostIntegrationServer.2016.TN5250" PropertyID="TN5250Defs"/>

    </DiscoveryClass>

  </DiscoveryTypes>

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

    <IntervalSeconds>21600</IntervalSeconds>

    <SyncTime/>

    <ScriptName>HIS2016 TN5250Service Discovery.vbs</ScriptName>

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

    <ScriptBody><Script>

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

' &lt;name&gt;HIS2016 TN5250Service Discovery.vbs&lt;/name&gt;

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

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

' &lt;summary&gt;

' Microsoft Host Integration Server 2016 TN5250 service discovery script for use with SCOM 2016.

'	Provides discovery functions for HIS TN5250. 

' &lt;/summary&gt;

'

' See Management Pack Guide for details on parameters and usage

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

Option Explicit

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 intTN5Defs

intTN5Defs = 0



Dim bDisableTN3Monitoring, bDisableTN5Monitoring, bDisablePrintMonitoring, bDisableHIPMonitoring, bDisableLU62ResyncMonitoring

Dim bDisableSIMonitoring, bDisableMIMonitoring, bDisableDIMonitoring, bDisableWIPMonitoring



bDisableTN3Monitoring           = FALSE

bDisableTN5Monitoring           = FALSE

bDisablePrintMonitoring         = FALSE

bDisableHIPMonitoring           = FALSE

bDisableLU62ResyncMonitoring    = FALSE

bDisableSIMonitoring            = FALSE

bDisableMIMonitoring            = FALSE

bDisableDIMonitoring            = FALSE

bDisableWIPMonitoring           = FALSE



Dim Locator, Service

Set Locator = CreateObject("WbemScripting.SWbemLocator")



GetRegParams()

TN5250SvcsDiscovery()



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_SI_OPTOUT_KEY         = "DisableSessionIntegratorMonitoring"

    	Const HIS_DI_OPTOUT_KEY         = "DisableDataIntegrationMonitoring"

    	Const HIS_MI_OPTOUT_KEY         = "DisableMessageIntegrationMonitoring"

    	Const HIS_WIP_OPTOUT_KEY        = "DisableWIPMonitoring"

		

	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_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 TN5250SvcsDiscovery()

	

	Dim colTN5Defs

	Dim colWin32Services

	Dim objWin32Service



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

	' TN5250 Discovery

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

	' TN5 state monitoring component in the HIS Svcs role.

	'

	

	if NOT bDisableTN5Monitoring then



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

    

		' Get TN5250 definition count

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

		

		if NOT colTN5Defs.Count = 0 then 

			intTN5Defs = colTN5Defs.Count

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

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

			call oInst.AddProperty("$MPElement[Name='Microsoft.HostIntegrationServer.2016.TN5250']/TN5250Defs$", intTN5Defs )

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

			call oDiscoveryData.AddInstance(oInst)

		end if

		

	end if

	

End Sub 'TN5250SvcsDiscovery

</Script></ScriptBody>

    <TimeoutSeconds>360</TimeoutSeconds>

  </DataSource>

</Discovery>