#0
by tmpnikl
Вот в этом запросе определяется статус, Scr.AddObject("oPing",Service.ExecQuery("Select * From Win32_PingStatus where Address = '192.168.0.1')) но если статус Ok, хотелось бы определить имя компа, но я не знаю каким классом воспользоваться...
#1
by palpetrovich
хз, может не совсем в тему, но мало-ли, мо кому пригодится :) спКомп = СоздатьОбъект("СписокЗначений"); Попытка ScrptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl"); ScrptCtrl.Language="vbscript"; ScrptCtrl.AddCode(" |Function GetComputers | Set WinNT = GetObject(""WinNT:"") | WinNT.Filter = Array(""domain"") | For Each Domain In WinNT | Set ADSI = GetObject(""WinNT://"" & Domain.Name) | ADSI.Filter = Array(""computer"") | For Each Comp In ADSI | strInfo=strInfo & Domain.Name & "";"" & Comp.Name & vbCrLf | Next | Next | GetComputers = strInfo |End Function |"); Текст=СокрЛП(ScrptCtrl.Run("GetComputers")); ScrptCtrl = ""; Исключение Предупреждение(ОписаниеОшибки); Возврат; КонецПопытки; Для Индекс=1 по СтрКоличествоСтрок(Текст) Цикл СтрТекста = СтрПолучитьСтроку(Текст,Индекс); Разделитель = Найти(СтрТекста,";"); Домен = Лев(СтрТекста,Разделитель-1); Компьютер = Прав(СтрТекста,СтрДлина(СтрТекста)-Разделитель); спКомп.ДобавитьЗначение(Компьютер,Домен+""+Компьютер); КонецЦикла; зы не мое :)
Тэги: Админ
Ответить:
Комментарии доступны только авторизированным пользователям
Похожие вопросы 1С
- как узнать какой процесс 1С с какой базой работает?
- Какой Raid лучше использовать для 1с 7.7 8.0
- Какой драйвер надо использовать для подключения сканера который читает двум
- Как узнать имя текущей базы SQL или имя базы 1с .
- Как определить какой ключ HASP какой?
- Как можно узнать имя таблицы в 1С если знаешь её имя в SQL?
- как узнать имя текущего пользователя (не полное имя, а просто имя?)
- как в C# узнать, был ли этот класс предком того класса?
В этой группе 1С
- Управление поиском в табличном поле формы (УФ). Вопрос.
- Ошибка полнотекстового индекса
- Как программно задать тип СправочникСсылка (все справочники) для элемента формы
- v7: Перетаскивание Drag and drop в 1с
- Как указать оптическую характеристику линзы (Салон оптики 2.1)
- ДобавитьКДате в СКД
- УТ 11.1 и Розница 2.1 , Сдача ДС в Банк или Инкассация в банк?
- Возврат товаров от покупателя нет себестоимости
- Параметры страницы Внешней печатной формы. Как изменить Поля. Колонтитулы
- Зарплата, доплата за работы с ВИЧ пациентами
- Красная сетка вместо штрихкода
- проведение требования накладной
- СКД Не найдено определение иерархической связи
- Подскажите, как проморгать строку табличного поля.
- поле адреса и форма ввода адреса в справочник
- УТ 10.3 Получить значение поле описание" номенклатуры в документе Счет на оплат
- Дата запрета редактирования в ЗУП 2.5
- Вызов процедуры внешней обработки?
- 1С8_ЗУП 3.0_Командировка и средний заработок
- Ошибка Excel.Application :Интерфейс не поддерживается