Nuta
Dostęp do tej strony wymaga autoryzacji. Możesz spróbować się zalogować lub zmienić katalog.
Dostęp do tej strony wymaga autoryzacji. Możesz spróbować zmienić katalogi.
Dostawca WinNT udostępnia następujące właściwości niestandardowe dla klasy User. Dostęp do nich można uzyskać za pośrednictwem metod IADs.Get i IADs.Put. Aby uzyskać więcej informacji, zobacz USER_INFO_3 struktura.
| Własność | Typ | Opis |
|---|---|---|
| HomeDirDrive | Struna | Dysk katalogu głównego użytkownika. Jest to wskaźnik do ciągu Unicode, który określa ścieżkę katalogu macierzystego. Ciąg może być wartości null. Zobacz przykład w tym temacie. |
| ObjectSID | Ciąg oktetu | Identyfikator SID obiektu użytkownika. Aby zapoznać się z przykładem pobierania identyfikatora SID obiektu przy użyciu dostawcy WinNT, zobacz Object SID (WinNT Provider) |
| parametrów | Struna | Parametry użytkownika. Wskazuje ciąg Unicode, który jest odkładany do użytku przez aplikacje. Ten ciąg może być ciągiem o wartości null lub może zawierać dowolną liczbę znaków przed kończeniem znaku null. Produkty firmy Microsoft używają tego członka do przechowywania danych konfiguracji użytkownika. Tę właściwość można modyfikować tylko przez aplikację podczas instalacji. |
| passwordAge | Godzina | Czas trwania używanego hasła. Ta właściwość wskazuje liczbę sekund, które upłynęły od czasu ostatniej zmiany hasła. |
| PasswordExpired | Liczba całkowita | Informuje, kiedy hasło wygasło. Jeśli używasz polecenia Get, zwróci zero, to hasło nie wygasło lub niezero, jeśli wygasło. Zobacz przykład w tym temacie. |
| PrimaryGroupID | Liczba całkowita | Identyfikator grupy podstawowej użytkownika, na przykład identyfikator grupy użytkowników domeny. Zobacz przykład w tym temacie. |
| UserFlags | Liczba całkowita | Flaga użytkownika zdefiniowana w ADS_USER_FLAG_ENUM. Aby zapoznać się z przykładem korzystania z usługi UserFlags, zobacz Hasło nigdy nie wygasa (dostawca WinNT) |
W tym przykładzie pokazano, jak ustawić katalog dysku głównego użytkownika.
Dim usr As Object
Set usr = GetObject("WinNT://Fabrikam/jsmith,user")
usr.HomeDirectory = "UserHomeDirHere"
usr.HomeDirDrive = "HomeDirDriveHere"
usr.SetInfo
W tym przykładzie pokazano, jak za pomocą funkcji PasswordExpired wymusić zmianę hasła podczas następnego logowania.
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
W tym przykładzie pokazano, jak uzyskać grupę podstawową użytkownika.
Dim usr As Object
Dim grpPrimaryID As Object
Set usr = GetObject("WinNT://Fabrikam/jsmith,user")
grpPrimaryID = usr.Get("PrimaryGroupID")