[glukin]

Iska, Вот

Код:

'=============================================================================
' Процедура асинхронной обработки экземпляра объекта (замечание: в данном конкретном случае
' будет возвращаться единственный объект, однако, в большинстве случаев запросы
' возвращают множество объектов)
Sub Sink_OnObjectReady(objWbemObject, objWbemAsyncContext)
    Dim strComputer    
    strComputer = objWbemAsyncContext.Item("HostName")    
    If Not IsNull(objWbemObject.StatusCode) Then
     If objWbemObject.StatusCode = 0 Then
      objWmiNamedValueSet.Add "AgentAddress", strComputer
      objWmiNamedValueSet.Add "AgentReadCommunityName", "poll"
      on error resume next
     
Set colSystem = objWmiServices.InstancesOf("SNMP_RFC1213_MIB_system", , objWmiNamedValueSet)
      For Each objSystem In colSystem
'На предыдущей строке  выдает error, если устройство не умеет SNMP. 
       If (Right(objSystem.sysName,12)="123456789012") Then               
        objSystem.sysName=Left(objSystem.sysName,Len(objSystem.sysName)-12) + ".m"
       Else   
        objSystem.sysName=objSystem.sysName + ".m"               
        End If
       NFile1.WriteLine objSystem.sysName + "	IN	A	" + strComputer  
      Next
     End If
    End If
End Sub

Нужно - если устройство не умеет SNMP, то записать его ИП-адрес в файл.
Другими словами - прошел пинг и прошла запись
"NFile1.WriteLine objSystem.sysName + " IN A " + strComputer"
то оно умеет, иначе пишем его ИП-адрес в файл для дальнейшего анализа.