Santa_SAdaptive Server Anywhere 9

Доброго всем времени суток, необходимо прочитать значение реестра (ветвь HKCU), либо получить значение среды %USERNAME%. Обыскался уже ничего найти не могу, может кто подскажет.

Заранее благодорю.
Посмотрите Creating procedures and functions with external calls

Santa_S,
Ты все-таки верно поставь задачу, насколько я понял тебе надо поиметь имя пользователя открывшего данную сессию или я ошибаюсь? Если не ошибаюсь, то
call sa_conn_properties() - первый столбец id сессии, после чего
call sa_conn_info() - вывод параметров всех сессий, выбираешь свою и там есть поле UserId

Santa_SV.V.L.,
совершенно верно, в программе, все измерения производятся под одним именем, нужно произвести идентификацию пользователей, используя Windows logon name
Другими словами, тебе надо по ip из сессии запустить скрипт-dll и она по этому ip должна прочитать
значение username из hklm\software\microsoft\windows nt\winlogon удаленной машины

Santa_SSergey Orlov,
Не совсем, у меня задача достаточно простая, программа работает на одном, выделенном компьютере (Windows XP, без терминальных сессий, операторы делают смену пользователя напрямую с консоли), на нем же запущен ASA. Необходимо получить имя текущего пользователя Windows на этом компьютере средствами ASA.
Блин, прочитай мой первый пост, затем идем в win32 API и ищем системную dll в которой есть функция/процедура, которая возвращает имя пользователя, залогиненного на консоли. Если сам программист, то создай свою dll с этой единственной функцией...

функция getusername и находится она в библиотеке Advapi32.dll

Syntax

BOOL WINAPI GetUserName(
__out LPTSTR lpBuffer,
__inout LPDWORD lpnSize
);

ALTER PROCEDURE "DBA"."GetuserNameW32"(inout UserName char(32),inout UserLenght integer) external name 'WindowsNT:GetUserNameA@Advapi32'
Применение

ALTER PROCEDURE "DBA"."FuncTemp1"()
begin
declare UName char(255);
declare ULength integer;
set Uname=space(254);
set Ulength=254;
call GetUserNameW32(Uname,ULength);
set Uname=trim(Uname);
set ULength=length(Uname);
select Uname,Ulength
end