Определение имени компьютера в терминальном режиме.
 

Добрый день.

1с v7.7. Подключаемся через терминал. В журнале регистрации имя компьютера равно имени сервера. Хотелось бы узнать с какого компьютера произошло подключение к сервере. Нашел вот такую обработочку:

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

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

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

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

Имя сервера выдает, имя пользователя выдает, имя компа - пусто. Подскажите, пожалуйста, решение вопроса.

CLIENTNAME

1-Lexusss > Не понял. Я подозреваю, что в строке:
Реестр.ЗапроситьЗначение("CLIENTNAME", ИмяКлиентскогоКомпа);
переменной ИмяКлиентскогоКомпа и присваивается значение CLIENTNAME, которое выдергивается из реестра, но так как поле пустое, видимо неправильная переменная. Видать обработку писали под 2003 сервак, а у нас 2008.

Все эти страшные 100500 строк кода для меня совершенно не понятно. Это обычная переменная среды, получаемая командой set из командной строки.
Для 1С проще всего:
WSH=Новый COMobject("wscript.shell");
Сообщить(WSH.ExpandEnvironmentStrings("%CLIENTNAME%"));

3+ Для 7.7 (пропустил замечание про платформу) будет
WSH=СоздатьОбъект("wscript.shell");
Сообщить(WSH.ExpandEnvironmentStrings("%CLIENTNAME%"));

4+ Черт, первая же ссылка в гугле при поиске по названию темы!

Да, действительно, выдало имя компа. Видимо в гугле забанили, потому как название темы отправляет совсем на другие ссылки.

Спасибо, вопрос снят!

все ответы фуфло

7-Гинзбург > Предложите свой)

8-Abaz > Нет ответа.
Запусти сессию на одном клиентском компе и забери ее с другого. И полюбуйся на имя компа.

9-Sadovnikov > Не думаю, что у нас пойдут на такие ухищрения.

10-Abaz > Запусти сессию на одном клиентском компе. Дисконнектни ее. Подними с другого компа. Никаких особых ухищрений :)
Я к тому, что нет 100%-но правильно варианта. Как минимум, мне такой не знаком. Какое-то время назад по этому поводу долго здесь бились.

разбирайтесь сами

[url]http://www.n-d.ru/pub/ts.rar[/url]

12-Гинзбург > Спасибо, на досуге посмотрю.
11-Sadovnikov > Интересно. Ну, в принципе, перейдем на восьмерку и забудем этот вопрос как страшный сон... надеюсь.

13-Abaz> А как всё это связано с переходом на восьмерку?

(12) красивая картинка. это фотка или художественный вымысел?

14-Sadovnikov > Напрямую никак, просто будем использовать клиент-серверный вариант и журнал регистрации будет отрабатывать корректно.

16-Abaz > Блажен, кто верует...