WinNT 自定义用户属性
WinNT 提供程序为用户类提供以下自定义属性。 可以通过 IADs.Get 和 IADs.Put 方法访问它们。 有关详细信息，请参阅 USER_INFO_3 结构。
| properties | 类型 | 描述 |
|---|---|---|
| HomeDirDrive | 字符串 | 用户的主目录驱动器。 这是一个指向 Unicode 字符串的指针，该字符串指定主目录的路径。 字符串可以为 null。 请参阅本主题中的示例。 |
| ObjectSID | 八进制数字符串 | 用户的对象 SID。 有关如何使用 WinNT 提供程序检索对象 SID 的示例，请参阅对象 SID （WinNT 提供程序） |
| Parameters | 字符串 | 用户的参数。 指向一个预留给应用程序使用的 Unicode 字符串。 此字符串可以是 null 字符串，也可以在终止 null 字符之前具有任意数量的字符。 Microsoft 产品使用此成员来存储用户配置数据。 此属性只能由应用程序在安装过程中修改。 |
| PasswordAge | 时间 | 密码使用的持续时间。 此属性表示自上次更改密码以来经过的秒数。 |
| PasswordExpired | Integer | 告知密码何时过期。 当使用 Get 时，如果密码未过期，将返回零；如果密码已过期，则返回非零。 请参阅本主题中的示例。 |
| PrimaryGroupID | Integer | 用户的主要组 ID，例如域用户组 ID。 请参阅本主题中的示例。 |
| UserFlags | Integer | 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")