Public Function Create() As TDMSUser

Option Explicit
Call TDMSUsers_Create_Example()

Sub TDMSUsers_Create_Example()

  Dim Users, Us

  'Получение ссылки на коллекцию пользователей приложения
  Set Users = ThisApplication.Users
  MsgBox("У приложения " & Users.Count & " пользователей!")
    If (ThisApplication.Attributes.Permissions.ParentAdmin = FALSE) then
      MsgBox("Создавать пользователей может только системный администратор!")
    Else 
      Set Us = Users.Create
      Us.Description = "Test user"
      MsgBox("Пользователь " & Us.Description & " добавлен в коллекцию! Теперь в ней " &_
             Users.Count & " пользователей!")
    End If
End Sub