Propiedades de usuario personalizado de WinNT
El proveedor winNT pone a disposición las siguientes propiedades personalizadas para la clase User. Se puede acceder a ellos a través de los métodos IADs.Get e IADs.Put . Para obtener más información, consulte la estructura USER_INFO_3 .
| Propiedad | Tipo | Descripción |
|---|---|---|
| HomeDirDrive | String | Unidad de directorio principal del usuario. Se trata de un puntero a una cadena Unicode que especifica la ruta de acceso del directorio principal. La cadena puede ser null. Vea el ejemplo de este tema. |
| ObjectSID | Cadena de octeto | SID de objeto del usuario. Para obtener un ejemplo de cómo recuperar el SID de objeto mediante el proveedor WinNT, vea SID de objeto (proveedor WinNT). |
| Parámetros | String | Parámetros del usuario. Apunta a una cadena Unicode que se reserva para su uso por parte de las aplicaciones. Esta cadena puede ser una cadena nula o puede tener cualquier número de caracteres antes de terminar el carácter NULO. Los productos de Microsoft usan este miembro para almacenar datos de configuración de usuario. Esta propiedad solo se puede modificar mediante una aplicación durante la instalación. |
| PasswordAge | Time | Duración de la contraseña en uso. Esta propiedad indica el número de segundos transcurridos desde que se cambió la contraseña por última vez. |
| PasswordExpired | Entero | Indica cuándo expiró la contraseña. Cuando use Get, devolverá cero si la contraseña no ha expirado o distinto de cero si ha expirado. Vea el ejemplo de este tema. |
| PrimaryGroupID | Entero | Identificador de grupo principal del usuario, por ejemplo, identificador de grupo de usuarios de dominio. Vea el ejemplo de este tema. |
| UserFlags | Entero | Marca de usuario definida en ADS_USER_FLAG_ENUM. Para obtener un ejemplo de cómo usar UserFlags, consulta Password Never Expires (Proveedor WinNT) |
En este ejemplo se muestra cómo establecer el directorio de unidad principal de un usuario.
Dim usr As Object
Set usr = GetObject("WinNT://Fabrikam/jsmith,user")
usr.HomeDirectory = "UserHomeDirHere"
usr.HomeDirDrive = "HomeDirDriveHere"
usr.SetInfo
En este ejemplo se muestra cómo usar PasswordExpired para forzar a un usuario a cambiar la contraseña en el siguiente inicio de sesión.
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
En este ejemplo se muestra cómo obtener el grupo principal del usuario.
Dim usr As Object
Dim grpPrimaryID As Object
Set usr = GetObject("WinNT://Fabrikam/jsmith,user")
grpPrimaryID = usr.Get("PrimaryGroupID")