The WIP discovery checks the registry location "HKLM\SOFTWARE\Microsoft\ SNA Server\CurrentVersion\Monitoring\" for the existence of the “Opt-Out” key DisableWIPMonitoring. If the key exists, no further action is taken. If the key does not exist, the Host Integration Server 2010 Management Pack queries MSI to verity that the feature TRANSACTION_INTEGRATOR has been installed. If the feature is installed, the Host Integration Server 2010 Management Pack creates an instance of the WIP class.
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:\\" & TargetComputer & "\root\default:StdRegProv")
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 WIPDiscovery()
CONST HIS_WIP_FEATURE = "TRANSACTION_INTEGRATOR"
Dim intWIP
intWIP = 0
If NOT bDisableWIPMonitoring Then
' =============================================================
' Check for MSI feature installed
intWIP = FindFeature(HIS_WIP_FEATURE)
if NOT intWIP = 0 then
set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Microsoft.HostIntegrationServer.2010.WIP']$")
call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)
call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "WIP Application")
call oDiscoveryData.AddInstance(oInst)
end if
End If
End Sub 'WIPDiscovery
Function FindFeature(strFeatureName)
' Query MSI to determine if the specified HIS feature name is installed or advertised.
' Return 1 if true, 0 if false
set installer = CreateObject("WindowsInstaller.Installer")
set features = installer.Features(HIS_2010_PRODUCT_CODE)
for each feature in features
if feature = strFeatureName then
state = installer.FeatureState(HIS_2010_PRODUCT_CODE, feature)
if state = INSTALLSTATE_LOCAL then
FindFeature = 1
else
FindFeature = 0
end if
Exit Function
end if
next
FindFeature = 0
Exit Function
End function 'FindFeature </Script></ScriptBody>
<TimeoutSeconds>360</TimeoutSeconds>
</DataSource>
</Discovery>