Propriétés utilisateur personnalisées WinNT
Le fournisseur WinNT met à disposition les propriétés personnalisées suivantes pour la classe User. Ils sont accessibles via les méthodes IADs.Get et IADs.Put . Pour plus d’informations, consultez la structure USER_INFO_3 .
| Propriété | Type | Description |
|---|---|---|
| HomeDirDrive | String | Home Directory Drive de l’utilisateur. Il s’agit d’un pointeur vers une chaîne Unicode qui spécifie le chemin d’accès du répertoire de base. La chaîne peut être null. Consultez l’exemple de cette rubrique. |
| ObjectSID | Chaîne d’octets | SID d’objet de l’utilisateur. Pour obtenir un exemple de récupération du SID d’objet à l’aide du fournisseur WinNT, consultez Object SID (Fournisseur WinNT) |
| Paramètres | String | Paramètres de l’utilisateur. Pointe vers une chaîne Unicode qui est mise de côté pour une utilisation par les applications. Cette chaîne peut être une chaîne null ou avoir un nombre quelconque de caractères avant le caractère null de fin. Les produits Microsoft utilisent ce membre pour stocker les données de configuration utilisateur. Cette propriété ne peut être modifiée par une application que pendant l’installation. |
| PasswordAge | Temps | Durée du mot de passe en cours d’utilisation. Cette propriété indique le nombre de secondes qui se sont écoulées depuis la dernière modification du mot de passe. |
| PasswordExpired | Integer | Indique à quel moment le mot de passe a expiré. Lorsque vous utilisez Get, il retourne zéro si le mot de passe n’a pas expiré, ou non zéro s’il a expiré. Consultez l’exemple de cette rubrique. |
| PrimaryGroupID | Integer | ID de groupe principal de l’utilisateur, par exemple, ID de groupe d’utilisateurs de domaine. Consultez l’exemple de cette rubrique. |
| UserFlags | Integer | Indicateur utilisateur défini dans ADS_USER_FLAG_ENUM. Pour obtenir un exemple d’utilisation de UserFlags, consultez Mot de passe n’expire jamais (fournisseur WinNT) |
Cet exemple montre comment définir le répertoire Home Drive d’un utilisateur.
Dim usr As Object
Set usr = GetObject("WinNT://Fabrikam/jsmith,user")
usr.HomeDirectory = "UserHomeDirHere"
usr.HomeDirDrive = "HomeDirDriveHere"
usr.SetInfo
Cet exemple montre comment utiliser PasswordExpired pour forcer un utilisateur à modifier le mot de passe à la prochaine ouverture de session.
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
Cet exemple montre comment obtenir le groupe principal de l’utilisateur.
Dim usr As Object
Dim grpPrimaryID As Object
Set usr = GetObject("WinNT://Fabrikam/jsmith,user")
grpPrimaryID = usr.Get("PrimaryGroupID")