Vlastní vlastnosti uživatele WinNT
Zprostředkovatel WinNT zpřístupňuje následující vlastní vlastnosti pro třídu User. Mohou být přístupné prostřednictvím ID.Get a ID.Put metody. Další informace najdete v USER_INFO_3 struktuře.
| Vlastnost | Typ | Popis |
|---|---|---|
| HomeDirDrive | Řetězec | Jednotka domovského adresáře uživatele Toto je ukazatel na řetězec Unicode, který určuje cestu domovského adresáře. Řetězec může být null. Podívejte se na příklad v tomto tématu. |
| ObjectSID | Osmičkový řetězec | Identifikátor SID objektu uživatele. Příklad načtení identifikátoru SID objektu pomocí zprostředkovatele WinNT najdete v tématu identifikátor SID objektu (WinNT Provider) |
| parametrů | Řetězec | Parametry uživatele Odkazuje na řetězec Unicode, který je vyhrazen pro použití aplikacemi. Tento řetězec může být řetězec null nebo může mít libovolný počet znaků před ukončením znaku null. Produkty Microsoftu používají tohoto člena k ukládání konfiguračních dat uživatelů. Tuto vlastnost může upravit pouze aplikace během instalace. |
| PasswordAge | Čas | Doba trvání hesla, která se používá. Tato vlastnost označuje počet sekund, které uplynuly od poslední změny hesla. |
| PasswordExpired | Celé číslo | Udává, kdy vypršela platnost hesla. Když použijete get, vrátí se nula, je, že platnost hesla nevypršela nebo pokud vypršela platnost, nenulová. Podívejte se na příklad v tomto tématu. |
| PrimaryGroupID | Celé číslo | ID primární skupiny uživatele, například ID skupiny uživatelů domény. Podívejte se na příklad v tomto tématu. |
| UserFlags | Celé číslo | Příznak uživatele definovaný v ADS_USER_FLAG_ENUM. Příklad použití UserFlags najdete v tématu Nikdy nevyprší platnost hesla (zprostředkovatel WinNT). |
Tento příklad ukazuje, jak nastavit adresář domovské jednotky uživatele.
Dim usr As Object
Set usr = GetObject("WinNT://Fabrikam/jsmith,user")
usr.HomeDirectory = "UserHomeDirHere"
usr.HomeDirDrive = "HomeDirDriveHere"
usr.SetInfo
Tento příklad ukazuje, jak použít PasswordExpired k vynucení změny hesla uživatele při příštím přihlášení.
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
Tento příklad ukazuje, jak získat primární skupinu uživatele.
Dim usr As Object
Dim grpPrimaryID As Object
Set usr = GetObject("WinNT://Fabrikam/jsmith,user")
grpPrimaryID = usr.Get("PrimaryGroupID")