Из 1С

да

А как?

Переменная окружения CLIENTNAME

какое имя ?

(3) А как к ней обратиться?

а если нету никакого имени ?

(4) Комп, с которого вышли  в терминал

(6) Если нет - не надо тогда

(7) а я через 2 файрвола хожу и имя моему компу localhost.localdomain
а могло совсем не быть...

Как узнать значение переменной окружения из 1С

КомандаСистемы("ECHO %CLIENTNAME% > %TEMP%\ClientName.txt")
и читай потом текстовый файл

ИмяКомпьютера()
либо
WshNetwork=СоздатьОбъект("WScript.Network");
Сообщить(WshNetwork.ComputerName);

(12) И даст тебе это имя терминала...

не, тока имя твоего компа...

(14) Нет, это неправда. ТОлько что проверил.
1с - запущена в терминале, который залогинен с терминального цитрикс-декстопа, на которой пришёл с тини-воркстешна под пингвином.
ИмяКомпьютера() выдало имя первого терминала (на котором физически работает 1с).
В то же время echo %clientname% дало имя линукс-машины.

почто непрада?! правда! Где запустил - то и получил...
ИмяКомпьютера()
Назначение:
Возвращает сетевое имя компьютера, работающего в данный момент с программой.
а ты где её запускал?

(16) Сабж внимательнее читаем.

(16) Что непонятного я говорю? Я получил имя, где физически работает 1с - то есть имя терминала. В (0), как я понимаю, требуется имя компьютера, на котором физически сидит юзер, то есть не терминала, а рабочей станции, с которой инициирован процесс на терминале.

Привожу пример.
1. Рабочая станция - PC100 - бездисковая станция.
2. Рабочий стол - Desktop - цитрикс-терминал, на который логинится 2 при начальной загрузке.
3. Dev - ещё один терминальный сервер, выделенный для программистов, к которому я логинюсь через Custom ISA Connection и имею на нём рабочий стол.

Запускаю на Dev 1с и смотрю ИмяКомпьютера() - имею Dev. Смотрю на Dev echo %clientname% - вижу PC100.

Где и что непонятно?

присоеденяюсь че не вкурили то?

Вот и я говорю - Почто "не правда"? что ИмяКомпьютера() - выдает имя компутера на котором запущена эска...

тыж в терминале запускал... вот и получил имя сервака...

(21) Внимательно читаем заголовок темы

Перем ЗначениеКлюча;

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

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

(21) а надо было (7)

(22)я прекрасно вижу заголовок темы... тока некто отверг моё утверждение об некоторых функциях...

(25) Какое утверждение?
В (7) задача описана предельно ясно.
Если конечно уметь читать, а не утверждать.

(26) см (13)(14)(15 первое предложение)

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

(28)+1 Да не приставайте ко мне! %)))
я знаю кунг-фу, тау-джитсу и есче много матерных слов... ;))

(27) я опроверг твоё неверное суждение. Где я не прав?

(29) а я ган-фу знаю! Во!

(30) неверное суждение о том что фн покажет имя компутера на котором запущена?

(32) Верное. Покажет имя терминального сервера.
Но не клиентского компа.

WshShell = CreateObject("WScript.Shell");
   Сообщить(WshShell.ExpandEnvironmentStrings("%clientname%"));

(32) Посмотри ОЧЕНЬ внимательно на (23)

(32) "не, тока имя твоего компа..." (с) НеСкажуКто.

(28) Он писатель-эстонец.

(36) ты хочеш сказать что эска в "терминале" запускается с твоего компа?

"твоего компа" - подразумевался компутер на котором запущена эска, в данном случае - сервак, соответственно имя выдаст сервака...

(39) я не телепат. Для мен мой комп - это тот, на котором я сижу.

(39) И еще раз читаем (7)

а я все время считал что сидят за компутером, а не на них...

(39) Блин, ну ступил ты. И сам это понял. И слить грамотно не можешь.
Ну почему бы просто не сказать: "Блин! Точно! Не верно прочитал/не правильно понял, да и вообе, пятница :)"
Нет, мы будем на кучу постов изворачиваться, пытаться говорить, что нас не правильно поняли и т.д.
Тьфу.

Я не ступил, и прочел тему прально...
каюсь - неверно ответил в (12), в (14) осознал свою ошибку и дальше понеслось...

(37+) И родственники до седьмого колена эстонцы.

Даешь день Эстонии на мисте!
Главный героем объявляется Табуретка :))

WshShell = СоздатьОбъект("WScript.Shell");
WshSysEnv = WshShell.Environment("PROCESS");
ИмяВДомене = WshSysEnv.Item("USERNAME");
ИмяКомпа = WshSysEnv.Item("CLIENTNAME");

(0) WshShell = СоздатьОбъект("WScript.Shell");
WshSysEnv = WshShell.Environment("PROCESS");
ИмяВДомене = WshSysEnv.Item("USERNAME");
ИмяКомпа = WshSysEnv.Item("CLIENTNAME");

Спасибо всем за внимание и участие.

1С++

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

   Если Реестр.ОткрытьКлюч("HKEY_CURRENT_USER", "Software\Microsoft\Windows\CurrentVersion\Explorer", "KEY_QUERY_VALUE") = 1 Тогда
       Если Реестр.ЗапроситьЗначение("Logon User Name", ЗначениеКлюча) = 1 Тогда
           Если ПустаяСтрока(ИмяПользователяWindows) = 0 Тогда
               ИмяПользователяWindows = ИмяПользователяWindows + "\";
           КонецЕсли;
           ИмяПользователяWindows = ИмяПользователяWindows + ЗначениеКлюча;
       КонецЕсли;
   КонецЕсли;
   
   Возврат ИмяПользователяWindows;
КонецФункции // ПолучитьИмяПользователя()

Никто не угадал... У всех при разных раскладах вернет савсем не то, что хочется...