IADsNameTranslate：：GetEx 方法 (iads.h)

發行項
08/24/2023

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 傳回值，包括：

備註

這個方法會取得多個物件的名稱。不過，傳回的所有名稱都會使用單一格式。

當轉介追捕開啟時，這個方法不會嘗試追蹤並解析不在連線伺服器上之指定物件的路徑。

範例

下列 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 相容的辨別名稱轉譯為 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>