Discovers the SNA Service.
SNA services (Nodes) must be defined in order to be discovered.
Knowledge Base article:
Summary
The SNA Service discovery queries the WMI namespace “root\MicrosoftHIS” for instances of the SNA service that are configured on the local machine. If found, the Host Integration Server 2016 Management Pack creates an instance of the SNAService class.
set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)
Dim strNetbiosName
strNetbiosName = "$Target/Host/Property[Type='Windows!Microsoft.Windows.Computer']/NetbiosComputerName$"
Dim colSNAServices, objSNAService, objWMIService
Dim intSNAServices, intInStr
' Get SNA Services
Set objWMIService = GetObject("winmgmts:\\" & strNetbiosName & "\root\MicrosoftHIS")
Set colSNAServices = objWMIService.ExecQuery("SELECT * FROM MsSna_ServiceSNA",,48)
For Each objSNAService in colSNAServices
'Need to make sure the service is on the local machine
'and not another machine in the SNA subdomain - was getting duplicates
intInStr = InStr(Ucase(objSNAService.Name), UCase(strNetbiosName))