次の方法で共有


IADsNameTranslate::Init メソッド (iads.h)

IADsNameTranslate::Init メソッドは、現在のユーザーの資格情報を使用して、指定されたディレクトリ サーバー、ドメイン、またはグローバル カタログにバインドすることで、名前変換オブジェクトを初期化します。 オブジェクトを別のユーザー資格情報で初期化するには、 IADsNameTranslate::InitEx を使用します。

構文

HRESULT Init(
  long lnSetType,
  BSTR bstrADsPath
);

パラメーター

lnSetType

実行する初期化の種類。 使用可能な値は 、ADS_NAME_INITTYPE_ENUMで定義されます。

bstrADsPath

lnInitType の値に応じて、サーバーまたはドメインの名前。 ADS_NAME_INITTYPE_GCが発行されると、このパラメーターは無視されます。 現在のコンピューターのドメインのグローバル カタログ サーバーは、名前変換操作を実行します。 このシナリオではグローバル カタログが見つからないので、コンピューターがドメインの一部でない場合、このメソッドは失敗します。 詳細については、「 ADS_NAME_INITTYPE_ENUM」を参照してください。

戻り値

次を含む標準の HRESULT または RPC エラー コードを返します。

解説

初期化が正常に完了したら、名前 translate オブジェクトを使用して、ディレクトリ内のオブジェクトの名前変換の要求を送信できます。 詳細については、「 IADsNameTranslate::Set」または 「IADsNameTranslate::Get」を参照してください

次の C/C++ コード例では、ユーザー オブジェクトの識別名が s 形式でレンダリングされる前に、 IADsNameTranslate::Init メソッドを使用して IADsNameTranslate オブジェクトを初期化します。

IADsNameTranslate *pNto;
HRESULT hr;
hr = CoCreateInstance(CLSID_NameTranslate,
                      NULL,
                      CLSCTX_INPROC_SERVER,
                      IID_IADsNameTranslate,
                      (void**)&pNto);
if(FAILED(hr)) { exit 1;}
 
hr = pNto->Init(ADS_NAME_INITTYPE_SERVER,
                  CComBSTR("myServer"));
if (FAILED(hr)) { exit 1;}
 
hr =pNto->Set(ADS_NAME_TYPE_1779,
             CComBSTR("cn=jeffsmith,cn=users,dc=Fabrikam,dc=com"));
if(FAILED(hr)) {exit 1;}
 
BSTR bstr;
hr = pNto->Get(ADS_NAME_TYPE_NT4, &bstr);
printf("Name in the translated format: %S\n", bstr);
 
SysFreeString(bstr);
pNto->Release();

次の Visual Basic コード例では 、IADsNameTranslate::Init メソッドを使用して IADsNameTranslate オブジェクトを初期化し、ユーザー オブジェクトの識別名を s ユーザー名形式でレンダリングします。

Dim nto As New NameTranslate
dso="CN=jeffsmith, CN=users, DC=Fabrikam dc=COM"
 
nto.Init  ADS_NAME_INITTYPE_SERVER, "myServer"
nto.Set ADS_NAME_TYPE_1779, dso
trans = nto.Get(ADS_NAME_TYPE_NT4)  

次の VBScript/ASP コード例では 、IADsNameTranslate::Init メソッドを使用して IADsNameTranslate オブジェクトを初期化し、ユーザー オブジェクトの識別名を s ユーザー名形式でレンダリングします。

<%@ Language=VBScript %>
<html>
<body>
<%
  Dim nto
  const ADS_NAME_INITTYPE_SERVER = 2  ' VBScript cannot read 
  const ADS_NAME_TYPE_1779 = 1        ' enumeration definition
  const ADS_NAME_TYPE_NT4 = 3
 
  dn = "CN=jeffsmith,CN=Users,DC=Fabrikam,DC=COM" 
 
  Set nto = Server.CreateObject("NameTranslate")
  nto.Init ADS_NAME_INITTYPE_SERVER, "myServer"
  nto.Set ADS_NAME_TYPE_1779, dn
  result = nto.Get(ADS_NAME_TYPE_NT4)
 
  Response.Write "<p>Name in the translated format: " & result
 
%>
</body>
</html>

要件

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

関連項目

ADS_NAME_TYPE_ENUM

IADsNameTranslate

IADsNameTranslate::Get

IADsNameTranslate::InitEx

IADsNameTranslate::Set