Шаг 31 - Получаем имя рабочей станции

В прошлом шаге мы получили имя пользователя, но иногда бывает полезна и информация об имени рабочей станции. Видоизменим нашу функцию:

***********************************************
* Функция для получения имени рабочей станции        
***********************************************
function GetComp()
	cCompFullName = sys(0)
	nPos = at('#', cCompFullName)
	if nPos > 0
		cCompName=substr(cCompFullName, 1, nPos - 1)
	else
		cCompName='unknown'
	endif
	return upper(alltrim(cCompName))
endfunc

Результат:

31_1.gif (3189 b)

Теперь можно администрировать :-)


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