Jump to content
Sign in to follow this  
Zaitsev Oleg

Новые функции скрипт-языка

Recommended Posts

Предлагаю протестировать две новые функции:

begin
 AddToLog('UserName = ' + GetUserName);
end.

Данная функция возвращает текущее имя пользователя, под которым запущен AVZ

var
 UserInfo : TStringList;
begin
 UserInfo := TStringList.Create;
 GetUserInfo('', UserInfo);
 AddToLog(UserInfo.Text);
 UserInfo.Free;
end.

Соответственно GetUserInfo формирует ассоциативный массив с различными данными по пользователю ПК с заданным в первом параметре именем. Если первый параметр равен пустой строке, то автоматически подставляется имя текущего пользователя, под которым запущен AVZ. Имена параметров совпадают с их именами в структурах MSDN, наиболее полезный из них usri1_password_age, который показывает, как давно последний раз пользователь менял свой пароль (описание параметров см. https://docs.microsoft.com/en-us/windows/desktop/api/lmaccess/ns-lmaccess-_user_info_2)

Share this post


Link to post
Sign in to follow this  

×
×
  • Create New...

Important Information

We use cookies to make your experience of our websites better. By using and further navigating this website you accept this. Detailed information about the use of cookies on this website is available by clicking on more information.