WinNT Custom User Properties
The WinNT provider makes available the following custom properties for the User class. They may be accessed through the IADs.Get and IADs.Put methods. For more information, see the USER_INFO_3 structure.
| Property | Type | Description |
|---|---|---|
| HomeDirDrive | String | Home Directory Drive of the user. This is a pointer to a Unicode string that specifies the path of the home directory. The string can be null. See example in this topic. |
| ObjectSID | Octet String | Object SID of the user. For an example of how to retrieve the Object SID using the WinNT Provider, see Object SID (WinNT Provider) |
| Parameters | String | Parameters of the user. Points to a Unicode string that is set aside for use by applications. This string can be a null string, or it can have any number of characters before the terminating null character. Microsoft products use this member to store user configuration data. This property can only be modified by an application during installation. |
| PasswordAge | Time | Time duration of the password in use. This property indicates the number of seconds that have elapsed since the password was last changed. |
| PasswordExpired | Integer | Tells when the password was expired. When you use Get, it will return zero is the password has not expired, or nonzero if it has expired. See example in this topic. |
| PrimaryGroupID | Integer | User's primary group ID, for example, domain user group ID. See example in this topic. |
| UserFlags | Integer | User Flag defined in ADS_USER_FLAG_ENUM. For an example of how to use UserFlags, see Password Never Expires (WinNT Provider) |
This example shows how to set a user's Home Drive Directory.
Dim usr As Object
Set usr = GetObject("WinNT://Fabrikam/jsmith,user")
usr.HomeDirectory = "UserHomeDirHere"
usr.HomeDirDrive = "HomeDirDriveHere"
usr.SetInfo
This example shows how to use PasswordExpired to force a user to change the password at the next logon.
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
This example shows how to get the user's primary group.
Dim usr As Object
Dim grpPrimaryID As Object
Set usr = GetObject("WinNT://Fabrikam/jsmith,user")
grpPrimaryID = usr.Get("PrimaryGroupID")