Свойства пользовательского пользователя WinNT
Поставщик WinNT предоставляет следующие настраиваемые свойства для класса User. Доступ к им можно получить с помощью методов IADs.Get и IADs.Put. Дополнительные сведения см. в USER_INFO_3 структуре.
| Свойство | Type | Описание |
|---|---|---|
| HomeDirDrive | Строка | Диск домашнего каталога пользователя. Это указатель на строку Юникода, указывающую путь к домашнему каталогу. Строка может иметь значение NULL. См. пример в этом разделе. |
| ObjectSID | Строка октета | Идентификатор безопасности объекта пользователя. Пример получения идентификатора безопасности объекта с помощью поставщика WinNT см. в разделе "Идентификатор безопасности объектов" (поставщик WinNT) |
| Параметры | Строка | Параметры пользователя. Указывает на строку Юникода, которая не используется приложениями. Эта строка может быть пустой строкой или может иметь любое количество символов до конца символа NULL. Продукты Майкрософт используют этот член для хранения данных конфигурации пользователей. Это свойство может изменяться только приложением во время установки. |
| PasswordAge | Время | Длительность использования пароля. Это свойство указывает количество секунд, прошедших после последнего изменения пароля. |
| PasswordExpired | Целое | Сообщает, когда срок действия пароля истек. Если вы используете Get, он вернет нулю пароль не истек или ненулево, если срок действия пароля истек. См. пример в этом разделе. |
| PrimaryGroupID | Целое | Идентификатор основной группы пользователя, например идентификатор группы пользователей домена. См. пример в этом разделе. |
| UserFlags | Целое | Флаг пользователя, определенный в ADS_USER_FLAG_ENUM. Пример использования UserFlags см. в разделе "Срок действия пароля" (поставщик WinNT) |
В этом примере показано, как задать каталог домашнего диска пользователя.
Dim usr As Object
Set usr = GetObject("WinNT://Fabrikam/jsmith,user")
usr.HomeDirectory = "UserHomeDirHere"
usr.HomeDirDrive = "HomeDirDriveHere"
usr.SetInfo
В этом примере показано, как использовать PasswordExpired для принудительного изменения пароля пользователем при следующем входе.
Dim usr As Object
Set usr = GetObject("WinNT://Fabrikam/jsmith,user")
usr.Put "PasswordExpired", CLng(1)
usr.SetInfo
'--- Clear this flag so that the user does not have to change the password at next logon.
usr.Put "PasswordExpired", CLng(0)
usr.SetInfo
В этом примере показано, как получить основную группу пользователя.
Dim usr As Object
Dim grpPrimaryID As Object
Set usr = GetObject("WinNT://Fabrikam/jsmith,user")
grpPrimaryID = usr.Get("PrimaryGroupID")