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

10.12.04

✎

10:19

У меня все юзвери в 1С работают через терминал.

Хочу знать имена машин, с которых они вошли в сессию и имена пользователей.

Подскажите как?

+
Писал батничек для этого - работает, но хотелось бы не батничком, а то он на экране появляется.

Скорее всего через WSH, но как ?

1 Ёжик в тумане

10.12.04

✎

10:28

(0) No passaran!
иными словами - бей шпионов!

2 YF

10.12.04

✎

10:30

(1)

Не понял.
А по делу есть что?

3 DimG

10.12.04

✎

10:30

clientname

4 Ёжик в тумане

10.12.04

✎

10:34

(3) это он вроде и так знал..

5 Rovan

гуру

10.12.04

✎

10:42

(0) У терминального сервака разве нет что-то типа "Администрирование (текущие сеансы)" ? (я точно не помню давно не работал)

6 Прапорщик Задов

10.12.04

✎

10:46

если у тебя поднят домен, воспользуйся ADSI
там можно что хош делать

7 YF

10.12.04

✎

10:47

+

Наверное непонятно выразился:

Хочу все это узнать кодом из 1С. Сделал файл*.vbs с кодом
Set WSHShell = CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("Process")
WScript.Echo WshSysEnv("Username")
WScript.Echo WshSysEnv("Clientname")

Выдает то, что нужно.
Но как етот код запустить из 1С, т.е. именно код, не создавая файла-скрипта.

Не ругайте сильно, чо-то я не догоняю пока как запустить. Сделал так:
Процедура Сформировать()
scrptCtrl=createobject("MSScriptControl.ScriptControl");
scrptCtrl.language="vbscript";
scrptCtrl.addcode("
|Function GetName()
|Set WSHShell = CreateObject(""WScript.Shell"")
|Set WshSysEnv = WshShell.Environment(""Process"")
|WScript.Echo WshSysEnv(""Username"")
|WScript.Echo WshSysEnv(""Clientname"")
|End Function");
scrptCtrl.run("GetName");
КонецПроцедуры
но не работает.