Шаг 30 - Получаем имя пользователя

Задача получения имени пользователя актуальна при распределении прав на работу с программой в сети. Сетевую информацию о компьютере возвращает системная функция SYS(0). Ее я и возьму за основу:


*********************************************
* Функция для получения имени пользователя         
*********************************************
function GetUser()
	cUserFullName=sys(0)
	nPos=at('#', cUserFullName)
	if nPos > 0
		cUserName=substr(cUserFullName, nPos+1)
	else
		cUserName='unknown'
	endif
	return upper(alltrim(cUserName))
endfunc

Результат:

30_1.gif (3189 b)

Вот и все.


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Клементьев В.А.