Propriedades de usuário personalizado do WinNT
O provedor WinNT disponibiliza as seguintes propriedades personalizadas para a classe User. Eles podem ser acessados através dos métodos IADs.Get e IADs.Put. Para obter mais informações, consulte a estrutura USER_INFO_3.
| Propriedade | Type | Descrição |
|---|---|---|
| HomeDirDrive | String | Unidade de diretório inicial do usuário. Este é um ponteiro para uma cadeia de caracteres Unicode que especifica o caminho do diretório base. A cadeia de caracteres pode ser nula. Veja o exemplo neste tópico. |
| ObjectSID | Cadeia de Octeto | SID do objeto do usuário. Para obter um exemplo de como recuperar o SID de objeto usando o provedor WinNT, consulte SID de objeto (provedor WinNT) |
| Parâmetros | String | Parâmetros do usuário. Aponta para uma cadeia de caracteres Unicode que é reservada para uso por aplicativos. Essa cadeia de caracteres pode ser uma cadeia de caracteres nula ou pode ter qualquer número de caracteres antes do caractere nulo de encerramento. Os produtos da Microsoft usam esse membro para armazenar dados de configuração do usuário. Essa propriedade só pode ser modificada por um aplicativo durante a instalação. |
| SenhaIdade | Hora | Tempo de duração da senha em uso. Essa propriedade indica o número de segundos decorridos desde que a senha foi alterada pela última vez. |
| PasswordExpired | Inteiro | Informa quando a senha expirou. Quando você usa Get, ele retornará zero se a senha não expirou ou diferente de zero se tiver expirado. Veja o exemplo neste tópico. |
| PrimaryGroupID | Inteiro | ID do grupo primário do usuário, por exemplo, ID do grupo de usuários do domínio. Veja o exemplo neste tópico. |
| UserFlags | Inteiro | Sinalizador de usuário definido em ADS_USER_FLAG_ENUM. Para obter um exemplo de como usar UserFlags, consulte Password Never Expires (WinNT Provider) |
Este exemplo mostra como definir o Diretório de Unidade Base de um usuário.
Dim usr As Object
Set usr = GetObject("WinNT://Fabrikam/jsmith,user")
usr.HomeDirectory = "UserHomeDirHere"
usr.HomeDirDrive = "HomeDirDriveHere"
usr.SetInfo
Este exemplo mostra como usar PasswordExpired para forçar um usuário a alterar a senha no próximo 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
Este exemplo mostra como obter o grupo primário do usuário.
Dim usr As Object
Dim grpPrimaryID As Object
Set usr = GetObject("WinNT://Fabrikam/jsmith,user")
grpPrimaryID = usr.Get("PrimaryGroupID")