[glukin]

Никто так и не направит на путь истинный? ((
Хоть в общих чертах скриптик, потом методом проб и ошибок подгоню его под свои нужды...
Затык у меня не в алгоритме, а в синтаксисе vbs. ((

[glukin]

Готов заплатить разумную сумму. За полностью рабочий скрипт.

[megaloman]

Нашел, как узнать DeviceName для отдельно взятого устройства: »

И оно работает?

[glukin]

megaloman,
Да. Попробуйте на чем-нибудь, что умеет SNMP и откликается на коммунити "public"

[megaloman]

А как это все в цикле сделать и чтобы в файл писалось? В vbs не силён, прошу помощи. »

Мне не на чем пробовать, тупо написал цикл и вывод в файл

Код:

File_Out = "Z:\Box_Out\SNMP.txt"
 
Set objWmiLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWmiServices = objWmiLocator.ConnectServer("", "root\snmp\localhost")
Set objWmiNamedValueSet = CreateObject("WbemScripting.SWbemNamedValueSet")

Set FSO = CreateObject("Scripting.FileSystemObject")
Set NFile = FSO.OpenTextFile(File_Out, 2, True)

For i = 0 To 255
  For j = 0 To 255
    strTargetSnmpDevice = "10.1." + CStr(i) + "." + CStr(j)
    objWmiNamedValueSet.Add "AgentAddress", strTargetSnmpDevice
    objWmiNamedValueSet.Add "AgentReadCommunityName", "public"

    Set colSystem = objWmiServices.InstancesOf("SNMP_RFC1213_MIB_system", , objWmiNamedValueSet)

    For Each objSystem In colSystem
        NFile.WriteLine objSystem.sysName + " IN A " + strTargetSnmpDevice
    Next
  
  Next
Next

NFile.Close

Ваша безграничная сумма в разумных пределах в успешном случае меня не интересует

[glukin]

megaloman, Спасибо большое! Попробую завтра ночью, когда на работе буду.

[glukin]

megaloman, после тщательного допиливания работает. Спасибо за направление.