1С 8.3 Получить характеристики сервера
Данные > Примеры кода 1С > 1С 8.3 Приложение, система, интерфейс
Перейти в раздел примеры кода 1С 8.3:
Данный пример можно бесплатно скачать в виде внешней обработки 1С 8.3 (УзнатьСистемныеХарактеристикиСервера.epf)
Получить программно характеристики компьютера в 1С 8.3:
&НаСервере
Процедура ПриОткрытииНаСервере()
СистемнаяИнфо = Новый СистемнаяИнформация;
ТипОС = СистемнаяИнфо.ТипПлатформы;
Если ТипОС = ТипПлатформы.Windows_x86 Или
ТипОС = ТипПлатформы.Windows_x86_64 Тогда
ПараметрыЗапуска = ФайловаяСистема.ПараметрыЗапускаПрограммы();
ПараметрыЗапуска.ДождатьсяЗавершения = Истина;
ПараметрыЗапуска.ПолучитьПотокВывода = Истина;
ПараметрыЗапуска.ПолучитьПотокОшибок = Истина;
Результат = ФайловаяСистема.ЗапуститьПрограмму("systeminfo /FO LIST", ПараметрыЗапуска);
КодВозврата = Результат.КодВозврата;
ПотокВывода = Результат.ПотокВывода;
ПотокОшибок = Результат.ПотокОшибок;
РезультатЗапуска = Результат.ПотокВывода;
Иначе
РезультатЗапуска = "Не работает в ОС "+ТипОС;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
ПриОткрытииНаСервере();
КонецПроцедуры
Процедура ПриОткрытииНаСервере()
СистемнаяИнфо = Новый СистемнаяИнформация;
ТипОС = СистемнаяИнфо.ТипПлатформы;
Если ТипОС = ТипПлатформы.Windows_x86 Или
ТипОС = ТипПлатформы.Windows_x86_64 Тогда
ПараметрыЗапуска = ФайловаяСистема.ПараметрыЗапускаПрограммы();
ПараметрыЗапуска.ДождатьсяЗавершения = Истина;
ПараметрыЗапуска.ПолучитьПотокВывода = Истина;
ПараметрыЗапуска.ПолучитьПотокОшибок = Истина;
Результат = ФайловаяСистема.ЗапуститьПрограмму("systeminfo /FO LIST", ПараметрыЗапуска);
КодВозврата = Результат.КодВозврата;
ПотокВывода = Результат.ПотокВывода;
ПотокОшибок = Результат.ПотокОшибок;
РезультатЗапуска = Результат.ПотокВывода;
Иначе
РезультатЗапуска = "Не работает в ОС "+ТипОС;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
ПриОткрытииНаСервере();
КонецПроцедуры
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник