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

Имя терминального пользователя

Получение имя пользователя в терминале

(0) лентяй!

(3) согласен

спасибо

(1), (2) это конечно здорово, но по-моему не совсем то что просил автор
(1) сообщает имя и клиента пользователя, где запущен скрипт, и запустив скрипт на одном сеансе, не получишь параметры других сеансов
(2) здесь предлагается заходить в 1С под пользователем 1С, совпадающим с именем логина, решение конечно простое но обходит проблему вместо решения
может как то можно делать автоматически то, что делается вручную когда хочешь узнать кто сидит в 1С под безымянным юзером в терминале: вручную смотришь ID процессов, заблокировавших 1Сv7.lck и потом в диспетчере задач смотришь владельцев - юзеров этих процессов

то что нужно, вопрос снят

(7) если позволите, перехвачу вашу тему своим вопросом из (6), в расширение темы так сказать

(8) :-))) я получил то что хотел спасибо, дальше как хотите

(6) Тоже интересно, давай думать вместе...
видится так - при старте системы получить системное имя пользователя и куда-нибудь его записать

да хоть в справочник пользователей)

Получить имя текущего пользователя windows в 1с .7.7

вот тут имя получили, дальше всё просто)

scr = СоздатьОбъект("WScript.Shell");    ДоменноеИмя=scr.ExpandEnvironmentStrings("%username%");

угу-угу, ещё бы что-нибудь поэлегантнее справочника пользователи придумать...
можно в принципе в файл писать в каталоге базы, вида :
ИмяПользователя=СистемноеИмяКотороеПолучили

(6) не надо тут, а с учетом (7) проходи мимо.
Рано тебе еще телепатировать
:)

Процедура ЗаписатьДоменноеИмяВФайл()  
   ТекПольз1с = ИмяПользователя();
   scr = СоздатьОбъект("WScript.Shell");    
   ДоменноеИмя=scr.ExpandEnvironmentStrings("%username%");      
   ИмяФайла =  КаталогИБ() +   "users.ini";    
   Ф = СоздатьОбъект("текст");      
   если ФС.СуществуетФайл(ИмяФайла) = 1 Тогда
       Ф.Открыть(ИмяФайла);
   КонецЕсли;    
   
   найдено=0;ъ=0;
   для ъ =1 по Ф.КоличествоСтрок() Цикл    
       если СтрЧислоВхождений(ф.ПолучитьСтроку(ъ), ТекПольз1с + "=") > 0 Тогда
           ф.ЗаменитьСтроку(ъ,ТекПольз1с + "=" + ДоменноеИмя);    
           найдено=1; Прервать;        
       КонецЕсли;    
   КонецЦикла;    
   
   если найдено = 0 Тогда
       ф.ДобавитьСтроку(ТекПольз1с + "=" + ДоменноеИмя);    
   КонецЕсли;
   ф.Записать(ИмяФайла);    
КонецПроцедуры

добавить в глобальник,
на выходе - в каталоге ИБ файл users.ini вида
"Администратор=root1
Администратор1=root"

(16), (17) хорошо, но как и раньше это обход задачи и не прямое решение по автоматизации действия  "вручную смотришь ID процессов, заблокировавших 1Сv7.lck и потом в диспетчере задач смотришь владельцев - юзеров этих процессов"

Может вам вот это поможет:
   Попытка
       ИмяЮзераТ="";
       ИмяКомпаТ="";
       
       scrptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl");
       scrptCtrl.language="vbscript";
       scrptCtrl.addcode("
       |Function GetUser()
       |Set WSHShell = CreateObject(""WScript.Shell"")
       |Set WshSysEnv = WshShell.Environment(""Process"")
       |GetUser = WshSysEnv(""Username"")
       |End Function
       |Function GetClient()
       |Set WSHShell = CreateObject(""WScript.Shell"")
       |Set WshSysEnv = WshShell.Environment(""Process"")
       |GetClient = WshSysEnv(""Clientname"")
       |End Function
       |");
       ИмяЮзераТ = scrptCtrl.run("GetUser");     // возвращает имя пользователя Windows (пользователь в терминале)
       ИмяКомпаТ = scrptCtrl.run("GetClient");   // имя терминального клиента (комп в терминале)

   Исключение
       Сообщить(ОписаниеОшибки());
   КонецПопытки;

   Попытка    
       ИмяКомпа= "";
       ИмяЮзера="";
       ИмяДомена="";
       Network = CreateObject("WScript.Network");
   Исключение
       Сообщить("> Ошибка: не удалось создать объект ""WScript.Network""","i");
   КонецПопытки;
   ИмяКомпа    = Network.ComputerName;
   ИмяЮзера    = Network.UserName;
   ИмяДомена    = Network.UserDomain;
   Network        = 0;

(18) а как ты себе это представляешь?

(19) спасибо, надо действительно в файл имя компа добавить. Мало-ли с какого терминала он зайдет...