Propriedades de usuário personalizadas 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 | Tipo | Descrição |
|---|---|---|
| HomeDirDrive | String | Home Directory Drive 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 null. Veja o exemplo neste tópico. |
| ObjectSID | Corda 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. Esta propriedade só pode ser modificada por um aplicativo durante a instalação. |
| PasswordAge | Hora | Tempo de duração da senha em uso. Esta propriedade indica o número de segundos decorridos desde que a palavra-passe foi alterada pela última vez. |
| PasswordExpired | Inteiro | Informa quando a senha expirou. Quando você usa Get, ele retornará zero se a senha não tiver expirado, 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 senha nunca expira (provedor WinNT) |
Este exemplo mostra como definir o diretório da unidade inicial 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")