Собственно интерисует такая весч как VBScript особенно, та его часть где описывается работа с протоколом SNMP. ЗЫ: желательно на русском языке, хотя в принципе я буду безмерно рад и благодарен, если найдется вообще что-либо по этой части. помогите пожалуйста!
Мануалы на сабжевую тему легко гуглятся по ключевому слову "WMI", правда в них тем о SNMP практически нет. Могу посоветовать почитать вот это - http://technet.microsoft.com/en-us/library/bb742612.aspx и курить соответствующие публичные vbs-скрипты, касающиеся темы
конкретно язык VBscript не имеет ни малейшего отношения к протоколам. Лишь постольку поскольку можно создать объект IExplorer.Application, через vbscript можно работать ... не с самим протоколом http, но используя его. Ну и как-то так же SNMP. По ссылке, на которую вы ссказали "не то", описывается как получить через WMI класс и какие там есть методы... то есть выглядит как раз как "то". Другой связи с SNMP вы не найдете, разве что написать свой активХ-компонент для этой цели, зарегистрировать, и вызывать из vbscript'а
эм тогда как классифицировать код такого вида? Код (Text): vServer = "SERVERNAME" vCommunityString = "YOURCONNECTIONSTRING" aControllers = Split(SNMPWALK(vServer, vCommunityString, _ ".1.3.6.1.4.1.232.3.2.2.1.1.1", "0"), "|") vNumberOfControllers = UBound(aControllers) Dim aDriveSizes(10, 100) On Error Resume Next vControllerNumber = -1 Do Until vControllerNumber = UBound(aControllers) 'populate controller info vControllerNumber = vControllerNumber + 1 aSingleDriveSizes = Split(SNMPWALK(vServer, vCommunityString, _ ".1.3.6.1.4.1.232.3.2.5.1.1.45." & aControllers(vControllerNumber), "0"), _ "|") vDriveLoop = 0 For Each vSingleDriveSize In aSingleDriveSizes aDriveSizes(vControllerNumber, vDriveLoop) = vSingleDriveSize vDriveLoop = vDriveLoop + 1 Next Loop vControllerNumber = 0 For Each vController In aControllers vDisplayString = vDisplayString & "Controler Information " & _ vController & vbLF vDriveID = -1 Do Until vDriveID = 100 vDrive = aDriveSizes(vControllerNumber, vDriveID) vDriveID = vDriveID + 1 If Len(vDrive) > 0 Then vDisplayString = vDisplayString & " -- Drive " & vDriveID & " (" & _ vDrive & "MB)" & vbLF End If Loop vControllerNumber = vControllerNumber + 1 Next WScript.Echo vDisplayString
как использование WSH-скрипта на машине с установленным NETSNMP. Так можно что угодно использовать. Особенно консольное. Из скрипта запустить, результат вывода прочитать. Мне вот эту ссылку выдало моментально по запросу в гугл "SNMPWALK windows vbscript"
т.е. если я правильно понял, это выглядит примерно так: есть компутер с установленым клиентом для перехвата SNMP-пакетов и из этого клиента скриптом берутся переменные?
есть NETSNMP, пакет консольных утилит. (Кстати, возможно, что-то такое же с апачем и php вместе может ставится, в пхп есть похожая функция.) Написана функция на VBScripte, SNMPWALK. Которая вызывает с диска одну из утилит, направляя ее вывод вместо консоли во временный файл. Потом разбирает этот файл путем поиска нужного, возвращает что хотели, удаляя за собой временный файл. Есть основной скрипт, вызывающий эту функцию. Все.