LU6.2 Resync Discovery

Microsoft.HostIntegrationServer.2010.LU62ResyncDiscovery (Discovery)

Discovers the LU 6.2 Resync
Must be enabled on Local and Remote LU's

Knowledge Base article:

Element properties:

Object Discovery Details:

Member Modules:

Source Code:

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

  <Category>Discovery</Category>

  <DiscoveryTypes>

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

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

    </DiscoveryClass>

  </DiscoveryTypes>

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

    <IntervalSeconds>43210</IntervalSeconds>

    <SyncTime/>

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

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

    <ScriptBody><Script>

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

' &lt;name&gt;HIS2010 LU62ResyncService 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 LU62Resync service discovery script for use with SCOM 2007.

'	Provides discovery functions for HIS LU62Resync. 

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

LUResyncSvcsDiscovery()



call oAPI.Return(oDiscoveryData)



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

					

				Case HIS_TN5_OPTOUT_KEY

					bDisableTN5Monitoring = TRUE

										

				Case HIS_PRINT_OPTOUT_KEY 

					bDisablePrintMonitoring = TRUE

										

				Case HIS_HIP_OPTOUT_KEY

					bDisableHIPMonitoring = TRUE

										

				Case HIS_LU62RESYNC_OPTOUT_KEY

					bDisableLU62ResyncMonitoring = TRUE

										

				Case HIS_IPRESYNC_OPTOUT_KEY

					bDisableIPResyncMonitoring = TRUE

										

				Case HIS_SI_OPTOUT_KEY

					bDisableSIMonitoring = TRUE

										

				Case HIS_MI_OPTOUT_KEY

					bDisableMIMonitoring = TRUE

										

				Case HIS_DI_OPTOUT_KEY					

					bDisableDIMonitoring = TRUE

										

				Case HIS_WIP_OPTOUT_KEY

					bDisableWIPMonitoring = TRUE

					

			End Select

		next

	end if

	

End Sub 'GetRegParams





Sub LUResyncSvcsDiscovery()

	

	Dim colWin32Services

	Dim objWin32Service



    	Dim intRemoteResyncLUs, colLocalAPPCLUs, colRemoteAPPCLUs, colServerConnections

    	intRemoteResyncLUs = 0

    

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

    	' LU 6.2 Resync Service Discovery

	' Get the instances of Local and Remote APPC LUs configured for LU 6.2 Resync support 

	' by this HIS server, and if &gt; 0 add the LUResync state monitoring component in the HIS Svcs role.

	

	if NOT bDisableLU62ResyncMonitoring then



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

	    

		' Get count of local APPC LUs configured for resync support

		set colLocalAPPCLUs = Service.ExecQuery("select * from MsSna_LUAPPCLocal where SyncPoint=True and SyncPointClient='" &amp; strNetbiosName &amp; "'",, 0)

	

		if NOT colLocalAPPCLUs.Count = 0 then



			' Get count of remote APPC LUs configured for resync support, 

			' and count those on a connection on this server

			set colRemoteAPPCLUs = Service.ExecQuery("select * from MsSna_LUAPPCRemote where SyncPoint=True",, 0)

			

			if NOT colRemoteAPPCLUs.Count = 0 then

			    

				set colServerConnections = Service.ExecQuery("ASSOCIATORS OF {MsSna_Server.Name='" &amp; strNetbiosName &amp; "'} where ResultClass=MsSna_Connection",, 0)



				for each objRemoteAPPCLU in colRemoteAPPCLUs

					for each objConnection in colServerConnections

						if objRemoteAPPCLU.Connection = objConnection.Name then

							intRemoteResyncLUs = inRemoteResyncLUs + 1

							exit for

						end if

					next

				next



				if NOT intRemoteResyncLUs = 0 then

					intLUResync = 1

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

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

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

			        	call oDiscoveryData.AddInstance(oInst)

				end if

			end if

		end if

	end if

	

End Sub 'LUResyncSvcsDiscovery

</Script></ScriptBody>

    <TimeoutSeconds>360</TimeoutSeconds>

  </DataSource>

</Discovery>