gifts2017

Получение данных о сетевом адресе компьютера из 1С

Опубликовал Alex Newman (alexnov) в раздел Администрирование - Системное

Простая обработка отображения ученых данных пользователя в сети Windows.

Часто на предприятии, при удаленной поддержке пользователей 1С по телефону, необходимо узнать сетевой адрес, имя компьютера или логин пользователя в Windows. Чтобы долго не объяснять пользователю разницу между всеми этими учетными данными, можно просто попросить его запустить соответствующую обработку и продиктовать данные с экрана, предварительно, естестенно, предоставив общий доступ к ней в справочнике Внешние обработки. Именно для этого и предназначена эта простая разработка.

Скачать файлы

Наименование Файл Версия Размер Кол. Скачив.
Обработка
.epf 7,01Kb
11.02.14
13
.epf 7,01Kb 13 Скачать

См. также

PowerTools от 1 000
Подписаться Добавить вознаграждение

Комментарии

1. unsafe (StaticUnsafe) 11.02.14 17:02
2. Артем Артеменко (dock) 12.02.14 07:47
Замечательная простенькая обработочка... еще бы пользователи работали не на терминальном сервере, адрес которого и так знаем ;)
3. Сергей Крымов (СергейК) 12.02.14 11:08
(2) dock,
Попробуйте, мож пригодится
	
Шелл=СоздатьОбъект("WScript.Shell"); 
Проц=Шелл.Environment("Process");
Сообщить("USERNAME="    +Проц.Item("USERNAME"));
Сообщить("USERDOMAIN="  +Проц.Item("USERDOMAIN"));
Сообщить("COMPUTERNAME="+Проц.Item("COMPUTERNAME"));
...Показать Скрыть
4. Павел Питеев (paulpit) 14.02.14 09:56
Внесу и свои 5 копеек. Еще одна полезная функция по работе с IP-адресом
// Пингуем сервер
Попытка
IPАдрес = НастройкиГлавнойБазы;
objShell = Новый COMОбъект("WScript.Shell") ;
objScriptExec = objShell.Exec("ping.exe -n 1 " + IPАдрес) ;
strPingResults = НРег(objScriptExec.StdOut.ReadAll());
РезПоиска = Найти(strPingResults, "ttl=");
ОтветСервера = ?(РезПоиска>0 ,1, 0);
Исключение
ОтветСервера = 0;
КонецПопытки;
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа