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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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.