Proprietà utente personalizzate WinNT

Il provider WinNT rende disponibili le proprietà personalizzate seguenti per la classe User. È possibile accedervi tramite i metodi IADs.Get e IADs.Put. Per altre informazioni, vedere la struttura U edizione StandardR_INFO_3.

Proprietà	Type	Descrizione
HomeDirDrive	String	Home Directory Drive dell'utente. Si tratta di un puntatore a una stringa Unicode che specifica il percorso della home directory. La stringa può essere null. Vedere l'esempio in questo argomento.
ObjectSID	Octet String	SID oggetto dell'utente. Per un esempio di come recuperare il SID oggetto usando il provider WinNT, vedere Object SID (WinNT Provider)
Parametri	String	Parametri dell'utente. Punta a una stringa Unicode che viene messa da parte per l'uso da parte delle applicazioni. Questa stringa può essere una stringa Null oppure può avere un numero qualsiasi di caratteri prima del carattere Null di terminazione. I prodotti Microsoft usano questo membro per archiviare i dati di configurazione utente. Questa proprietà può essere modificata solo da un'applicazione durante l'installazione.
PasswordAge	Ora	Durata della password in uso. Questa proprietà indica il numero di secondi trascorsi dall'ultima modifica della password.
PasswordExpired	Intero	Indica quando la password è scaduta. Quando si usa Get, restituirà zero è che la password non è scaduta o diversa da zero se è scaduta. Vedere l'esempio in questo argomento.
PrimaryGroupID	Intero	ID gruppo primario dell'utente, ad esempio ID gruppo di utenti di dominio. Vedere l'esempio in questo argomento.
UserFlags	Intero	Flag utente definito in ADS_Uedizione StandardR_FLAG_ENUM. Per un esempio di come usare UserFlags, vedere Password Never Expires (WinNT Provider)

 

Questo esempio mostra come impostare home drive di un utente.

Dim usr As Object

Set usr = GetObject("WinNT://Fabrikam/jsmith,user") 
usr.HomeDirectory = "UserHomeDirHere"
usr.HomeDirDrive = "HomeDirDriveHere"
usr.SetInfo

In questo esempio viene illustrato come usare PasswordExpired per forzare un utente a modificare la password all'accesso successivo.

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

Questo esempio illustra come ottenere il gruppo primario dell'utente.

Dim usr As Object
Dim grpPrimaryID As Object

Set usr = GetObject("WinNT://Fabrikam/jsmith,user") 
grpPrimaryID = usr.Get("PrimaryGroupID")