WinNT カスタム ユーザー プロパティ

WinNT プロバイダーは、User クラスに対して次のカスタム プロパティを使用できるようにします。 これらは、IADs.Get および IADs.Put メソッドを介してアクセスできます。 詳細については、USER_INFO_3 構造を参照してください。

財産	種類	形容
HomeDirDrive	糸	ユーザーのホーム ディレクトリ ドライブ。 これは、ホーム ディレクトリのパスを指定する Unicode 文字列へのポインターです。 文字列は null できます。 このトピックの例を参照してください。
ObjectSID	オクテット文字列	ユーザーのオブジェクト SID。 WinNT プロバイダーを使用してオブジェクト SID を取得する方法の例については、「オブジェクト SID (WinNT プロバイダー)
パラメーターの	糸	ユーザーのパラメーター。 アプリケーションで使用するために確保されている Unicode 文字列を指します。 この文字列は null 文字列にすることも、終端の null 文字の前に任意の数の文字を含めることもできます。 Microsoft 製品では、このメンバーを使用してユーザー構成データを格納します。 このプロパティは、インストール中にアプリケーションによってのみ変更できます。
PasswordAge	時間	使用中のパスワードの期間。 このプロパティは、パスワードが最後に変更されてから経過した秒数を示します。
PasswordExpired	整数	パスワードの有効期限が切れた日時を示します。 Get を使用すると、パスワードの有効期限が切れていない場合は 0 が返され、有効期限が切れている場合は 0 以外の値が返されます。 このトピックの例を参照してください。
PrimaryGroupID を する	整数	ユーザーのプライマリ グループ ID (ドメイン ユーザー グループ ID など)。 このトピックの例を参照してください。
UserFlags の	整数	ADS_USER_FLAG_ENUMで定義されているユーザー フラグ。 UserFlags の使用方法の例については、「パスワードの有効期限なし (WinNT プロバイダー) を参照してください。

 

この例では、ユーザーのホーム ドライブ ディレクトリを設定する方法を示します。

Dim usr As Object

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

この例では、PasswordExpired を使用して、次回ログオン時にユーザーにパスワードの変更を強制する方法を示します。

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

この例では、ユーザーのプライマリ グループを取得する方法を示します。

Dim usr As Object
Dim grpPrimaryID As Object

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