Checks for Opt-Out keys
Session Integration Service must be configured.
Knowledge Base article:
Summary
The Session Integrator discovery checks the registry location "HKLM\SOFTWARE\Microsoft\ SNA Server\CurrentVersion\Monitoring\" for the existence of the “Opt-Out” key DisableSessionIntegratorMonitoring. If the key value 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 “Session Integrator Server” service. If the service is found, the Host Integration ServerManagement Pack creates an instance of the SIServer class.
Case HIS_TN3_OPTOUT_KEY
bDisableTN3Monitoring = TRUE
'ScriptContext.Echo (strIndent2 & strValue)
Case HIS_TN5_OPTOUT_KEY
bDisableTN5Monitoring = TRUE
'ScriptContext.Echo (strIndent2 & strValue)
Case HIS_PRINT_OPTOUT_KEY
bDisablePrintMonitoring = TRUE
'ScriptContext.Echo (strIndent2 & strValue)
Case HIS_HIP_OPTOUT_KEY
bDisableHIPMonitoring = TRUE
'ScriptContext.Echo (strIndent2 & strValue)
Case HIS_LU62RESYNC_OPTOUT_KEY
bDisableLU62ResyncMonitoring = TRUE
'ScriptContext.Echo (strIndent2 & strValue)
Case HIS_IPRESYNC_OPTOUT_KEY
bDisableIPResyncMonitoring = TRUE
'ScriptContext.Echo (strIndent2 & strValue)
Case HIS_SI_OPTOUT_KEY
bDisableSIMonitoring = TRUE
'ScriptContext.Echo (strIndent2 & strValue)
Case HIS_MI_OPTOUT_KEY
bDisableMIMonitoring = TRUE
'ScriptContext.Echo (strIndent2 & strValue)
Case HIS_DI_OPTOUT_KEY
bDisableDIMonitoring = TRUE
'ScriptContext.Echo (strIndent2 & strValue)
Case HIS_WIP_OPTOUT_KEY
bDisableWIPMonitoring = TRUE
'ScriptContext.Echo (strIndent2 & strValue)
End Select
next
end if
End Sub 'GetRegParams
Sub SISvcsDiscovery()
Dim colWin32Services
Dim objWin32Service
' =============================================================
' Session Integrator Discovery
' Check for Win32 service names that match the SI service name pattern.
' If present add the SI state component and set Session Integrator attribute = 1.
'
if NOT bDisableSIMonitoring then
Set Service = Locator.ConnectServer(TargetComputer, "root\cimv2")
set colWin32Services = Service.ExecQuery("select * from Win32_Service where DisplayName='Session Integrator Server'",, 0)
for each objWin32Service in colWin32Services
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Microsoft.HostIntegrationServer.2009.SIServer']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "Session Integrator")
call oDiscoveryData.AddInstance(oInst)
next
end if
End Sub 'SISvcsDiscovery </Script></ScriptBody>
<TimeoutSeconds>360</TimeoutSeconds>
</DataSource>
</Discovery>