IP Resync Service Discovery

Microsoft.HostIntegrationServer.2009.IPResyncServiceDiscovery (Discovery)

Discovers the IP Resync Service

Knowledge Base article:

Summary

The IP Resync discovery checks the registry location "HKLM\SOFTWARE\Microsoft\ SNA Server\CurrentVersion\Monitoring\" for the existence of the “Opt-Out” key DisableIPResyncMonitoring. If the key exists, no further action is taken. If the key does not exist, the Host Integration Server 2009 Management Pack queries the WMI namespace “root\cimv2” for the “HIS TCP/IP Resync Service” service. If the service is found, the Host Integration Server 2009 Management Pack creates an instance of the IPResync class.

Element properties:

Target	Microsoft.HostIntegrationServer.2009.DataInt
Enabled	True
Frequency	43205
Remotable	False

Object Discovery Details:

Discovered Classes and their attribuets:
Microsoft.HostIntegrationServer.2009.IPResync DisplayName

Member Modules:

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

Source Code:

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

  <Category>Discovery</Category>

  <DiscoveryTypes>

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

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

    </DiscoveryClass>

  </DiscoveryTypes>

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

    <IntervalSeconds>43205</IntervalSeconds>

    <SyncTime/>

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

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

    <ScriptBody><Script>

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

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

'	Provides discovery functions for HIS IPResync. 

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

IPResyncSvcsDiscovery()



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 IPResyncSvcsDiscovery()

	

	Dim colWin32Services

	Dim objWin32Service



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

	' IP Resync Service Discovery

	' Check for Win32 service names that match the IP Resync service name pattern.

	' If present add the IPResync state component and set IP Resync attribute = number found.

	'

	if NOT bDisableIPResyncMonitoring then

	

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

	    	set colWin32Services = Service.ExecQuery("select * from Win32_Service where DisplayName='HIS TCP/IP Resync Service'",, 0)

		

		for each objWin32Service in colWin32Services

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

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

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

			call oDiscoveryData.AddInstance(oInst)

		next

		

	end if

	

End Sub 'IPResyncSvcsDiscovery

</Script></ScriptBody>

    <TimeoutSeconds>360</TimeoutSeconds>

  </DataSource>

</Discovery>