VBS/WSH/JS - [решено] Помогите со скриптом скана сети.

[glukin]

Добрый день всем. Помогите плз написать скрипт.

Есть сеть 10.1.0.0-10.1.255.255.

Нужно сканить ее по SNMP и писать в файл SNMP.txt вида



DeviceName IN A IP-Address

DeviceName IN A IP-Address

DeviceName IN A IP-Address



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

strTargetSnmpDevice = "10.1.36.1"



Set objWmiLocator = CreateObject("WbemScripting.SWbemLocator")

Set objWmiServices = objWmiLocator.ConnectServer("", "root\snmp\localhost")



Set objWmiNamedValueSet = CreateObject("WbemScripting.SWbemNamedValueSet")

objWmiNamedValueSet.Add "AgentAddress", strTargetSnmpDevice

objWmiNamedValueSet.Add "AgentReadCommunityName", "public"



Set colSystem = objWmiServices.InstancesOf("SNMP_RFC1213_MIB_system", , _

objWmiNamedValueSet)



For Each objSystem In colSystem

WScript.Echo objSystem.sysName

Next



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

[glukin]

Никто так и не направит на путь истинный? ((

Хоть в общих чертах скриптик, потом методом проб и ошибок подгоню его под свои нужды...

Затык у меня не в алгоритме, а в синтаксисе vbs. ((

[glukin]

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

[glukin]

Цитата glukin:



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

VBS/WSH/JS - [решено] Помогите со скриптом скана сети.

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

[glukin]

megaloman,

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

[glukin]

Цитата glukin:



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

VBS/WSH/JS - [решено] Помогите со скриптом скана сети.

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

[spoiler]Код:

[/spoiler]

Код: Выделить всё

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, после тщательного допиливания работает. Спасибо за направление.