Share via

IADsUser インターフェイス (iads.h)

  • [アーティクル]

IADsUser インターフェイスは、IAD から継承するデュアル インターフェイスです。 これは、ネットワーク上のエンド ユーザー アカウントを表し、管理するように設計されています。 このインターフェイスのメソッドを呼び出して、エンド ユーザー アカウント データにアクセスして操作します。 このようなデータには、ユーザーの名前、電話番号、役職などが含まれます。 このインターフェイスは、ユーザーのグループの関連付けを決定したり、パスワードを設定または変更したりするための機能をサポートします。

WinNT プロバイダーを使用してドメイン ユーザーにバインドするには、次のコード例に示すように、ドメイン名を ADsPath の一部として使用します。

GetObject("WinNT://MYDOMAIN/jeffsmith,user")

同様に、ADsPath の一部としてコンピューター名を使用して、ローカル ユーザーにバインドします。

GetObject("WinNT://MYCOMPUTER/jeffsmith,user")

Active Directory では、ドメイン ユーザーは ディレクトリに存在します。 次のコード例は、LDAP プロバイダーを介してドメイン ユーザーにバインドする方法を示しています。

GetObject("LDAP://CN=Jeff Smith,OU=Sales,DC=Fabrikam,DC=Com")

ただし、ローカル アカウントはローカル SAM データベースに存在し、LDAP プロバイダーはローカル データベースと通信しません。 したがって、ローカル ユーザーにバインドするには、2 番目のコード例で説明されているように WinNT プロバイダーを使用する必要があります。

継承

IADsUser インターフェイスは、IDispatch と IAD を継承します。 IADsUser には、次の種類のメンバーもあります。

メソッド

IADsUser インターフェイスには、これらのメソッドがあります。

 
IADsUser::ChangePassword

指定した古い値から新しい値にユーザー パスワードを変更します。
IADsUser::Groups

このユーザーが属する ADSI グループ オブジェクトのコレクションを取得します。
IADsUser::SetPassword

ユーザー パスワードを指定した値に設定します。

解説

他の ADSI オブジェクトと同様に、コンテナー オブジェクトは Windows ユーザー アカウント オブジェクトを作成します。 まず、コンテナー オブジェクトにバインドします。 次に、 IADsContainer::Create メソッドを 呼び出し、必須または省略可能な属性を指定します。

WinNT では、ユーザーの作成時に追加の属性を指定する必要はありません。 IADsContainer::Create メソッドを呼び出して、ユーザー オブジェクトを直接作成できます。

Dim dom As IADsContainer
Dim usr As IADsUser

On Error GoTo Cleanup

Set dom = GetObject("WinNT://MyDomain")
Set usr = dom.Create("user","jeffsmith")
usr.SetInfo

Cleanup:
    If(Err.Number<>0) Then
        MsgBox("An error has occurred. " & Err.Number)
    End If
    Set mach = Nothing
    Set usr = Nothing

この場合、ドメイン ユーザーは次の既定値で作成されます。

プロパティ 値
[名前] SAM アカウント名 (jeffsmith など)
パスワード Empty
ユーザーがパスワードを変更する必要がある TRUE
ユーザーがパスワードを変更できない FALSE
パスワードの有効期限なし FALSE
アカウントが無効 FALSE
グループ Domain User
プロファイル Empty
アカウントの有効期限なし TRUE
 

ローカル ユーザーを作成するには、次のコード例に示すように、ターゲット コンピューターにバインドします。

Dim mach As IADsContainer
Dim usr as IADsUser

On Error GoTo Cleanup
Set mach = GetObject("WinNT://MyMachine,Computer")
Set usr = mach.Create("user","jeffsmith")
usr.SetInfo

Cleanup:
    If(Err.Number<>0) Then
        MsgBox("An error has occurred. " & Err.Number)
    End If
    Set mach = Nothing
    Set usr = Nothing

新しく作成されたローカル ユーザーには、ドメイン ユーザーと同じ既定のプロパティがあります。 ただし、グループ メンバーシップは "ドメイン ユーザー" ではなく "ユーザー" になります。

要件

   
サポートされている最小のクライアント Windows Vista
サポートされている最小のサーバー Windows Server 2008
対象プラットフォーム Windows
ヘッダー iads.h

関連項目

Iad

IADsContainer::Create

IADsUser プロパティ メソッド

IDispatch