Benutzerdefinierte WinNT-Benutzereigenschaften

Der WinNT-Anbieter stellt die folgenden benutzerdefinierten Eigenschaften für die User-Klasse zur Verfügung. Auf sie kann über die Methoden IADs.Get und IADs.Put zugegriffen werden. Weitere Informationen finden Sie in der USER_INFO_3-Struktur .

Eigenschaft	type	Beschreibung
HomeDirDrive	String	Startverzeichnislaufwerk des Benutzers. Dies ist ein Zeiger auf eine Unicode-Zeichenfolge, die den Pfad des Basisverzeichnisses angibt. Die Zeichenfolge kann NULL sein. Siehe Beispiel in diesem Thema.
Objectsid	Oktettzeichenfolge	Objekt-SID des Benutzers. Ein Beispiel zum Abrufen der Objekt-SID mithilfe des WinNT-Anbieters finden Sie unter Objekt-SID (WinNT-Anbieter).
Parameter	String	Parameter des Benutzers. Zeigt auf eine Unicode-Zeichenfolge, die für die Verwendung durch Anwendungen festgelegt ist. Diese Zeichenfolge kann eine NULL-Zeichenfolge sein oder eine beliebige Anzahl von Zeichen vor dem beendenden NULL-Zeichen aufweisen. Microsoft-Produkte verwenden dieses Element zum Speichern von Benutzerkonfigurationsdaten. Diese Eigenschaft kann nur während der Installation von einer Anwendung geändert werden.
PasswordAge	Time	Zeitdauer des verwendeten Kennworts. Diese Eigenschaft gibt die Anzahl der Sekunden an, die seit der letzten Änderung des Kennworts verstrichen sind.
PasswordExpired	Integer	Gibt an, wann das Kennwort abgelaufen ist. Wenn Sie Get verwenden, wird null zurückgegeben, wenn das Kennwort nicht abgelaufen ist, oder nonzero, wenn es abgelaufen ist. Siehe Beispiel in diesem Thema.
PrimaryGroupID	Integer	Die primäre Gruppen-ID des Benutzers, z. B. die Domänenbenutzergruppen-ID. Siehe Beispiel in diesem Thema.
UserFlags	Integer	In ADS_USER_FLAG_ENUM definiertes Benutzerflag. Ein Beispiel für die Verwendung von UserFlags finden Sie unter Kennwort läuft nie ab (WinNT-Anbieter).

 

In diesem Beispiel wird gezeigt, wie das Home Drive-Verzeichnis eines Benutzers festgelegt wird.

Dim usr As Object

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

In diesem Beispiel wird gezeigt, wie Sie PasswordExpired verwenden, um einen Benutzer zu zwingen, das Kennwort bei der nächsten Anmeldung zu ändern.

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

In diesem Beispiel wird gezeigt, wie Die primäre Gruppe des Benutzers abgerufen wird.

Dim usr As Object
Dim grpPrimaryID As Object

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