Где то так, только штатными средствами виндуза
нужные вам команды ищите в rfc 1759

//*******************************************
Процедура Сформировать()
   Протокол = СоздатьОбъект("OlePrn.OleSnmp");
   Сообщество = "public";
   Попытки = 1;
   Ожидание = 100;
   Команда="25.3.2.1.3.1";
   ШелСкрипт = СоздатьОбъект("WScript.Shell");
   Ремота = СоздатьОбъект("rcbdyctl.setting");
   Стр = СтрЗаменить(Ремота.GetIpAddress, ".", "" "");
   Адреса = "";
   Для Сч = 1 По 3 Цикл
       Адреса = Адреса + СтрПолучитьСтроку(Стр, Сч) + ".";
   КонецЦикла;
   Для Сч = 1 По 255 Цикл
       Адрес = Адреса + Сч;
       Если ШелСкрипт.Run("ping -n 1 -w 10 " + Адрес, 0, -1) = 0 Тогда
           Состояние("Опрос " + Адрес);
           Попытка
               Протокол.Open(Адрес, Сообщество, Попытки, Ожидание);
               Сообщить(Адрес + " -> "  + Протокол.Get(Команда));
               Протокол.Close();
           Исключение
           КонецПопытки;
       КонецЕсли;
   КонецЦикла;
КонецПроцедуры


ктонить проверит ?

какие принтеры он должен показывать? которые по сетевому протоколу подключены?

на вынь2к : Неудачная попытка создания объекта (rcbdyctl.setting)

на хрюше: полез в сеть провайдера опрашивать заместо локалки :)

2 нашла всего...
И ещё один на странном адресе 192,168,0,255 :-))

(3) с адресами сами разбирайтеся, можете ручками вбить

(4) зависит от "сообщества"

(5) дык как ему интерфейс-то показать нужный? понятно, что можно айпишники конкретные подсунуть, но так не интересно

+(6) и таймаутов с попытками

(7) гетипадрес выдает список через точку с запятой адресов, если нужен интерфейс - то вми

соответственно замечаний (только не начинайте про маски, подсети и т.п. )))


//*******************************************
Процедура Сформировать()
   Протокол = СоздатьОбъект("OlePrn.OleSnmp");
   Сообщество = "public";
   Попытки = 1;
   Ожидание = 200;
   Команда="25.3.2.1.3.1";
   ШелСкрипт = СоздатьОбъект("WScript.Shell");
   Ремота = СоздатьОбъект("rcbdyctl.setting");
   Адреса = СтрЗаменить(Ремота.GetIpAddress, ";", "" "");
   Для х = 1 По СтрКоличествоСтрок(Адреса) Цикл
       Стр = СтрЗаменить(СтрПолучитьСтроку(Адреса, х), ".", "" "");
       Сеть = "";
       Для Сч = 1 По 3 Цикл
           Сеть = Сеть + СтрПолучитьСтроку(Стр, Сч) + ".";
       КонецЦикла;
       Для Сч = 1 По 254 Цикл
           Адрес = Сеть + Сч;
           Состояние("Пинг: " + Адрес);
           Если (ШелСкрипт.Run("ping -n 1 -w 10 " + Адрес, 0, -1) = 0) и (СтрПолучитьСтроку(Адреса, х) <> Адрес) Тогда
               Состояние("Опрос: " + Адрес);
               Попытка
                   Протокол.Open(Адрес, Сообщество, Попытки, Ожидание);
                   Сообщить(Адрес + " -> "  + Протокол.Get(Команда));
                   Протокол.Close();
               Исключение
                   Ошибка = ОписаниеОшибки();
                   Если Найти(Ошибка, "Unknown Error") = 0 Тогда
                       Сообщить(Адрес + " -> на SNMP овечает, но " + Сред(Ошибка, Найти(Ошибка, ":") + 1), "!!!");
                   КонецЕсли;
               КонецПопытки;
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;
КонецПроцедуры


напоминает детство: вкладыши от жвачек, красиво, круто, а вот по делу куда применить  - хз. ;-)

ЗЫ не в обиду

именно ))

попытаемся изменить (11) )))
(статусы, порты и т.п. так же)

//*******************************************
Процедура Сформировать()
   Протокол = СоздатьОбъект("OlePrn.OleSnmp");
   Сообщество = "public";
   Попытки = 1;
   Ожидание = 200;
   Команды = СоздатьОбъект("СписокЗначений");
   Команды.ДобавитьЗначение("25.3.2.1.3.1", "Имя");
   Команды.ДобавитьЗначение("43.10.2.1.4.1.1", "Количество");
   ШелСкрипт = СоздатьОбъект("WScript.Shell");
   Ремота = СоздатьОбъект("rcbdyctl.setting");
   Адреса = СтрЗаменить(Ремота.GetIpAddress, ";", "" "");
   Для х = 1 По СтрКоличествоСтрок(Адреса) Цикл
       Стр = СтрЗаменить(СтрПолучитьСтроку(Адреса, х), ".", "" "");
       Сеть = "";
       Для Сч = 1 По 3 Цикл
           Сеть = Сеть + СтрПолучитьСтроку(Стр, Сч) + ".";
       КонецЦикла;
       Для Сч = 1 По 254 Цикл
           Адрес = Сеть + Сч;
           Состояние("Пинг: " + Адрес);
           Если (ШелСкрипт.Run("ping -n 1 -w 10 " + Адрес, 0, -1) = 0) и (СтрПолучитьСтроку(Адреса, х) <> Адрес) Тогда
               Состояние("Опрос: " + Адрес);
               Попытка
                   Протокол.Open(Адрес, Сообщество, Попытки, Ожидание);
                   Стр = "Адрес: " + Адрес + "; ";
                   Для к = 1 По Команды.РазмерСписка() Цикл
                       Имя = "";
                       Команда = Команды.ПолучитьЗначение(к, Имя);
                       Стр = Стр + Имя + ": " + Протокол.Get(Команда) + "; ";
                   КонецЦикла;
                   Сообщить(Стр);
                   Протокол.Close();
               Исключение
                   Ошибка = ОписаниеОшибки();
                   Если Найти(Ошибка, "Unknown Error") = 0 Тогда
                       Сообщить("Адрес: " + Адрес + " на SNMP овечает, но " + Сред(Ошибка, Найти(Ошибка, ":") + 1), "!!!");
                   КонецЕсли;
               КонецПопытки;
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;
КонецПроцедуры