IADsNameTranslate::GetEx メソッド (iads.h)
IADsNameTranslate::GetEx メソッドは、指定した形式でオブジェクト名を取得します。 オブジェクト名は 、IADsNameTranslate::SetEx によって設定する必要があります。
構文
HRESULT GetEx(
long lnFormatType,
VARIANT *pvar
);
パラメーター
lnFormatType
出力名に使用される書式の種類。 使用できるさまざまな種類の形式の詳細については、「 ADS_NAME_TYPE_ENUM」を参照してください。 このメソッドは、 ADS_NAME_TYPE_ENUMの ADS_NAME_TYPE_SID_OR_SID_HISTORY_NAME 要素をサポートしていません。
pvar
返されるオブジェクトの名前を保持する文字列のバリアント配列。
戻り値
このメソッドは、次を含む標準 の HRESULT 戻り値をサポートしています。
解説
このメソッドは、複数のオブジェクトの名前を取得します。 ただし、返されるすべての名前は 1 つの形式を使用します。
参照の追跡がオンの場合、このメソッドは、接続されているサーバー上に存在しない指定されたオブジェクトのパスを追跡して解決しようとしません。
例
次の C/C++ コード例は、RFC 1779 に準拠している識別名を GUID 形式に変換する方法を示しています。 ディレクトリ サーバーのコンピューター名は "myServer" です。
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;}
LPWSTR str[1] = { L"CN=jim,CN=Users,DC=myDomain,DC=Fabrikam,DC=COM",
L"CN=rob,CN=Users,DC=myDomain,DC=Fabrikam,DC=COM"};
DWORD dwNum = sizeof(str)/sizeof(LPWSTR);
VARIANT varStr;
VariantInit(&varStr);
hr = ADsBuildVarArrayStr(str,dwNum,&varStr);
hr =pNto->SetEx(ADS_NAME_TYPE_1779, varStr);
if(FAILED(hr)) {exit 1;}
VariantClear(&varStr);
hr = pNto->GetEx(ADS_NAME_TYPE_GUID, &varStr);
if(FAILED(hr)) {exit 1;}
LONG lstart, lend;
SAFEARRAY *sa = V_ARRAY(&varStr);
VARIANT varItem;
VariantInit(&varItem);
printf("Names in the translated format:\n");
for (long idx = lstart; idx <= lend; idx++)
{
hr = SafeArrayGetElement(sa, &idx, &varItem);
printf(" %S\n", V_BSTR(&varItem));
VariantClear(&varItem);
}
VariantClear(&varStr);
pNto->Release();
次のコード例は、RFC 1779 型から GUID 型に複数の名前を変換する方法を示しています。 ディレクトリ サーバーのコンピューター名は "myServer" です。
Dim nto As new NameTranslate
Dim result As Variant
Dim ns(1) As String
nto.Init ADS_NAME_INITTTYPE_SERVER, "myServer"
ns(0)="CN=rob,CN=users,DC=example,DC=Fabrikam,DC=COM,O=Internet"
ns(1)="CN=jim,CN=users,DC=example,DC=Fabrikam,DC=COM,O=Internet"
nto.SetEx ADS_NAME_TYPE_1779, ns
nto.GetEx ADS_NAME_TYPE_GUID, result
MsgBox "name(0): " & result(0) & " name(1): " & result(1)
次の VBScript/ASP コード例では、RFC 1779 に準拠している 2 つの識別名を GUID 形式に変換します。 ディレクトリ サーバーのコンピューター名は "myServer" です。
<%@ Language=VBScript %>
<html>
<body>
<%
Dim nto
const ADS_NAME_INITTYPE_SERVER = 2
const ADS_NAME_TYPE_1779 = 1
const ADS_NAME_TYPE_NT4 = 3
server = "myServer"
user = "jeffsmith"
dom = "Fabrikam"
passwd = "top secret"
Set nto = Server.CreateObject("NameTranslate")
nto.InitEx ADS_NAME_INITTYPE_SERVER, server, user, dom, passwd
ns(0)="CN=rob,CN=users,DC=example,DC=Fabrikam,DC=COM,O=Internet"
ns(1)="CN=jim,CN=users,DC=example,DC=Fabrikam,DC=COM,O=Internet"
nto.SetEx ADS_NAME_TYPE_1779, ns
result = nto.GetEx(ADS_NAME_TYPE_GUID)
Response.Write "<p>Names in the translated format: " & result(0) & _
", " & result(1)
%>
</body>
</html>
要件
| サポートされている最小のクライアント | Windows Vista |
| サポートされている最小のサーバー | Windows Server 2008 |
| 対象プラットフォーム | Windows |
| ヘッダー | iads.h |
| [DLL] | Activeds.dll |