Отличить свой клиентский компьютер, сервер, сеанс и соединение

Одинаковая функция ИмяКомпьютера выполняется в двух разных контекстах. Номер сеанса и номер соединения тоже не следует считать одним идентификатором.

Подготовка

1. Работайте только в отдельной собственной конфигурации УчебнаяКонфигурацияСинтаксиса. Диагностику рабочих серверов и копирование реальных идентификаторов в общий учебник эти уроки не предусматривают.

2. Для первого урока вставьте полный модуль в свою управляемую форму и создайте команду ПроверитьСреду с одноимённым обработчиком. Для остальных создайте серверный общий модуль УчебнаяДиагностика, вставьте полный модуль урока и вызовите ВыполнитьПример из серверного обработчика команды.

3. Серверный модуль не должен быть привилегированным. Код не включает привилегии, не меняет безопасный режим, права, конфигурацию, настройки пользователей или соединения.

4. Вывод содержит только сведения текущего собственного учебного сеанса. Не публикуйте имена рабочих компьютеров, пользователей и идентификаторы конфигураций.

5. Фактические значения зависят от файловой или клиент-серверной базы, текущего режима и прав. Код проверяет типы и явно подписывает наблюдения, не обещает фиксированные номера или имена.

6. Проверки BSL-модулей в реальном запущенном клиенте 1С не проводились автоматически. Статическая сверка со справкой не подтверждает состояние вашей базы.

&НаКлиенте
Процедура ПроверитьСреду(Команда)
    Снимок = ПрочитатьСвойСерверныйСнимок();
    КлиентскийКомпьютер = ИмяКомпьютера();
    Сообщить(ТипЗнч(КлиентскийКомпьютер) = Тип("Строка"));
    Сообщить(ТипЗнч(Снимок.КомпьютерСервера) = Тип("Строка"));
    Сообщить(ТипЗнч(Снимок.НомерСеанса) = Тип("Число"));
    Сообщить(ТипЗнч(Снимок.НомерСоединения) = Тип("Число"));
    Сообщить(ТипЗнч(Снимок.ПолноеИмя) = Тип("Строка"));
    Сообщить("Клиентский компьютер своей базы: " + КлиентскийКомпьютер);
    Сообщить("Серверный компьютер своей базы: " + Снимок.КомпьютерСервера);
    Сообщить("Номер своего сеанса: " + Строка(Снимок.НомерСеанса));
    Сообщить("Номер своего соединения: " + Строка(Снимок.НомерСоединения));
    Сообщить("Полное имя учебного пользователя заполнено: " + Строка(СтрДлина(Снимок.ПолноеИмя) > 0));
КонецПроцедуры

&НаСервереБезКонтекста
Функция ПрочитатьСвойСерверныйСнимок()
    Возврат Новый Структура("КомпьютерСервера,НомерСеанса,НомерСоединения,ПолноеИмя",
        ИмяКомпьютера(), НомерСеансаИнформационнойБазы(), НомерСоединенияИнформационнойБазы(), ПолноеИмяПользователя());
КонецФункции

Разбор по шагам

1. Сначала вызвать серверную функцию с ограничением на свою учебную конфигурацию и получить простой снимок значений.

2. На сервере прочитать имя серверного компьютера, текущие номера сеанса и соединения и полное имя учебного пользователя.

3. После возврата на клиент вызвать ИмяКомпьютера ещё раз: теперь это имя клиентской машины.

4. Проверить типы, вывести подписанные собственные имена и номера. Полное имя пользователя не печатать, вывести лишь факт заполненности.

5. Сравнить файловый локальный запуск и свою клиент-серверную учебную базу, если она есть. Не считать совпадение имён доказательством одного контекста.

Как проверить результат

1. Пять проверок типов Истина; затем фактические подписанные значения, без заранее обещанных имён или номеров.

2. В файловой или локально размещённой учебной среде имена могут совпасть; на удалённом сервере обычно разные.

Ожидаемый результат

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

На что обратить внимание

1. ИмяКомпьютера на сервере не возвращает автоматически имя компьютера пользователя.

2. Не передавайте номер сеанса методу, ожидающему номер соединения.

3. Номера не являются постоянными идентификаторами пользователя и могут меняться между запусками.

4. ПолноеИмяПользователя читает данные пользователя текущего сеанса, не учётную запись Windows.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.