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