IADsNameTranslate：：Set 方法 (iads.h)

项目
08/24/2023

IADsNameTranslate：：Set 方法指示目录服务为名称转换设置指定的对象。若要设置多个对象的名称和格式，请使用 IADsnametranslate：：SetEx。

语法

HRESULT Set(
  long lnSetType,
  BSTR bstrADsPath
);

parameters

lnSetType

目录对象的名称的格式。有关详细信息，请参阅 ADS_NAME_TYPE_ENUM。

bstrADsPath

对象名称，例如“CN=Administrator，CN=users，DC=Fabrikam，DC=com”。

返回值

此方法支持标准 HRESULT 返回值，包括：

注解

在调用此方法设置对象名称之前，应已使用 IADsNameTranslate：：Init 或 IADsNameTranslate：：InitEx 与目录服务建立连接。

可以使用 IADsNameTranslate：：Set 方法为驻留在目录服务器上的对象设置名称转换。当引用追逐处于打开状态时，此方法还将设置在其他服务器上找到的任何对象。有关引用追逐的详细信息，请参阅 IADsNameTranslate 属性方法。

示例

下面的 C/C++ 代码示例使用 IADsNameTranslate：：Set 方法设置对象，以便其名称可以从 RFC 1779 格式转换为 s 用户名格式。

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：：Set 方法设置对象，以便其名称可以从 RFC 1779 格式转换为 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：：Set 方法设置对象，使其名称从 RFC 1779 格式转换为 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>