IADsNameTranslate：：InitEx 方法 (iads.h)

项目
03/09/2024

IADsNameTranslate：：InitEx 方法使用指定的用户凭据通过绑定到指定的目录服务器、域或全局目录来初始化名称转换对象。若要在没有显式用户凭据的情况下初始化对象，请使用 IADsNameTranslate：：Init。

IADsNameTranslate：：InitEx 方法通过设置对象将指向的服务器或域并提供用户凭据来初始化对象。

语法

HRESULT InitEx(
  long lnSetType,
  BSTR bstrADsPath,
  BSTR bstrUserID,
  BSTR bstrDomain,
  BSTR bstrPassword
);

参数

lnSetType

要执行的初始化类型。 ADS_NAME_INITTYPE_ENUM 中定义了可能的值。

bstrADsPath

服务器或域的名称，具体取决于 lnInitType 的值。发出 ADS_NAME_INITTYPE_GC 时，将忽略此参数。当前计算机域的全局编录服务器将用于执行名称转换操作。如果计算机不是域的一部分，此方法将失败，因为在这种情况下找不到全局编录。有关详细信息，请参阅 ADS_NAME_INITTYPE_ENUM。

bstrUserID

用户名。

bstrDomain

用户域名。

bstrPassword

用户密码。

返回值

返回标准 HRESULT 或 RPC 错误代码，包括：

注解

成功初始化后，使用 name translate 对象提交目录对象的名称转换请求。有关详细信息，请参阅 IADsNameTranslate：：Set、 IADsNameTranslate：：Get、 IADsNameTranslate：：SetEx 或 IADsNameTranslate：：GetEx。

示例

以下 C/C++ 代码示例使用 IADsNameTranslate：：InitEx 方法初始化 IADsNameTranslate 对象，然后用户对象的可分辨名称以 s 格式呈现。

IADsNameTranslate *pNto;
HRESULT hr;
hr = CoCreateInstance(CLSID_NameTranslate,
                      NULL,
                      CLSCTX_INPROC_SERVER,
                      IID_IADsNameTranslate,
                      (void**)&pNto);
if(FAILED(hr)) { exit 1;}
 
hr = pNto->InitEx(ADS_NAME_INITTYPE_SERVER,
                  CComBSTR("myServer"),
                  CComBSTR("jeffsmith"),
                  CComBSTR("Fabrikam"),
                  CComBSTR("top secret"));
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：：InitEx 方法初始化 IADsNameTranslate 对象，以便以 s 用户名格式呈现用户对象的可分辨名称。

Dim nto As New NameTranslate
dso="CN=jeffsmith, CN=users, DC=Fabrikam dc=COM"
server = "myServer"
domain = "Fabrikam"
user = "jeffsmith"
passwd = "myPass"
 
nto.InitEx  ADS_NAME_INITTYPE_SERVER, server,user,domain,passwd
nto.Set ADS_NAME_TYPE_1779, dso
trans = nto.Get(ADS_NAME_TYPE_NT4) 
MsgBox "Name in the translated format: " & trans

以下 VBScript/ASP 代码示例使用 IADsNameTranslate：：InitEx 方法初始化 IADsNameTranslate 对象，以便以用户名格式呈现用户对象的可分辨名称。

<%@ 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
 
  server = "myServer"
  domain = "Fabrikam"
  user = "jeffsmith"
  passwd = "myPass"
 
  dn = "CN=jeffsmith,CN=Users,DC=Fabrikam,DC=COM" 
 
  Set nto = Server.CreateObject("NameTranslate")
  nto.InitEx ADS_NAME_INITTYPE_SERVER, server,user,domain,passwd
  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>