Задача получения имени пользователя актуальна при распределении прав на работу с программой в сети. Сетевую информацию о компьютере возвращает системная функция 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

Результат:

Вот и все.