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

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

プロパティ	タイプ	説明
HomeDirDrive	String	ユーザーのホーム ディレクトリ ドライブ。 これは、ホーム ディレクトリのパスを指定する Unicode 文字列へのポインターです。 文字列には null を指定できます。 このトピックにある例を参照してください。
ObjectSID	オクテット文字列	ユーザーのオブジェクト SID。 WinNT プロバイダーを使用してオブジェクト SID を取得する方法の例については、「オブジェクト SID (WinNT プロバイダー)」を参照してください。
パラメーター	String	ユーザーのパラメーター。 アプリケーションで使用するために置かれている 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")