If boolIsReverse Then
wmiQueryString = "SELECT * FROM MicrosoftDNS_WINSRType WHERE DomainName = '" & strZoneName & "'"
Else
wmiQueryString = "SELECT * FROM MicrosoftDNS_WINSType WHERE DomainName = '" & strZoneName & "'"
End If
Set oAPI = CreateObject("MOM.ScriptAPI")
Set oDiscoveryData = oAPI.CreateDiscoveryData(0, strSourceId, strManagedEntityId)
ON ERROR RESUME NEXT
set objWMIService = GetObject(wmiNamespaceString)
If Err.Number <> 0 Then
Call ReturnDiscovery
End If
set colitems = objWMIService.ExecQuery(wmiQueryString)
junkVar = colitems.count
If Err.Number <> 0 Then
Call ReturnDiscovery
End If
If ( colitems.count = 0 ) Then
Call ReturnDiscovery
End If
For Each objItem In colitems
If boolIsReverse Then
Set lInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Microsoft.Windows.Server.DNS.Zone.WINSRConnector']$")
call lInst.AddProperty("$MPElement[Name='Microsoft.Windows.Server.DNS.Zone.WINSRConnector']/ResultDomain$", objItem.ResultDomain)
Else
Set lInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Microsoft.Windows.Server.DNS.Zone.WINSConnector']$")
call lInst.AddProperty("$MPElement[Name='Microsoft.Windows.Server.DNS.Zone.WINSConnector']/IPAddress$", objItem.WinsServers)
End If