7.7 Имя удаленного компьютера

Тема в разделе "1C и всё что с ней связано", создана пользователем olga13, 12 авг 2011.

  1. olga13

    olga13 Well-Known Member

    Регистрация:
    10 окт 2008
    Сообщения:
    208
    Симпатии:
    0
    Добрый день. Подскажите, как можно определить имя компьютера при работе с 1С через удаленный рабочий стол?
     
  2. olga13

    olga13 Well-Known Member

    Регистрация:
    10 окт 2008
    Сообщения:
    208
    Симпатии:
    0
    Похоже, никак нельзя. Тогда опишу конкретную задачу, может быть, у нее есть другое решение.
    Есть сеть компьютеров, которые работают с 1С через терминальный сервер. Компьютеры находятся на трех торговых точках. На каждой точке установлен кассовый аппарат (учет выручки ведется в разрезе касс). Пользователи могут перемещаться по точкам.
    Задача: при запуске системы определить, какая касса на данной точке (в настоящее время кассы привязаны к пользователям).
    Я хотела создать справочник компьютеров, привязать кассы к компьютерам и при запуске системы определять, какая касса на данной точке. Но средствами 1С так не получается - имя компьютера у всех пользователей одинаковое - имя сервера. Как можно по-другому?
     
  3. Gluk8888

    Gluk8888 Гость

    как-то так пробуйте:

    ИмяКлиентскогоКомпа = "";
    Реестр = СоздатьОбъект("РеестрWin");
    Если Реестр.ОткрытьКлюч("HKEY_CURRENT_USER", "Volatile Environment", "KEY_QUERY_VALUE") = 1 Тогда
    Реестр.ЗапроситьЗначение("CLIENTNAME", ИмяКлиентскогоКомпа);
    КонецЕсли;

    Попытка
    objNet = СоздатьОбъект("WScript.NetWork");
    ИмяКлиентскогоСервера = objNet.ComputerName;
    ИмяПользователяWindows = objNet.UserName;
    Исключение
    ИмяКлиентскогоСервера = "";
    ИмяПользователяWindows = "";
    КонецПопытки;

    Сообщить("Сервер: " + ИмяКлиентскогоСервера + " комп: " + ИмяКлиентскогоКомпа + " польз.: " + ИмяПользователяWindows);

    ЗЫ: должна быть загружена 1С++
     
  4. olga13

    olga13 Well-Known Member

    Регистрация:
    10 окт 2008
    Сообщения:
    208
    Симпатии:
    0
    Огромное спасибо! Всё получилось!
     
Загрузка...

Поделиться этой страницей