Метод IADsNameTranslate::Get (iads.h)

Статья
02/26/2024

Метод IADsNameTranslate::Get извлекает имя объекта каталога в указанном формате. Различающееся имя должно быть задано в соответствующем формате с помощью метода IADsNameTranslate::Set .

Синтаксис

HRESULT Get(
  long lnFormatType,
  BSTR *pbstrADsPath
);

Параметры

lnFormatType

Тип формата имени выходных данных. Дополнительные сведения см. в разделе ADS_NAME_TYPE_ENUM. Этот метод не поддерживает элемент ADS_NAME_TYPE_SID_OR_SID_HISTORY_NAME в ADS_NAME_TYPE_ENUM.

pbstrADsPath

Имя возвращаемого объекта.

Возвращаемое значение

Этот метод поддерживает стандартные возвращаемые значения HRESULT , в том числе:

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=jeff,CN=Users,DC=myDomain,DC=Fabrikam,DC=COM,O=Internet"));
if(FAILED(hr)) {exit 1;}
 
BSTR bstr;
hr = pNto->Get(ADS_NAME_TYPE_GUID, &bstr);
printf("Translation: %S\n", bstr);
 
SysFreeString(bstr);
pNto->Release();

В следующем примере кода Visual Basic показано, как преобразовать различающееся имя, совместимое с RFC 1779, в формат GUID. Имя компьютера сервера каталогов — myServer.

Dim nto As New NameTranslate
Dim result As String
 
dn = "CN=rob,CN=Users,DC=myDomain,DC=Fabrikam,DC=COM,O=Internet" 
nto.Init ADS_NAME_INITTYPE_SERVER, "myServer"
nto.Set ADS_NAME_TYPE_1779, dn
result = nto.Get ADS_NAME_TYPE_GUID
MsgBox result

В следующем примере кода 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
  nto.Set ADS_NAME_TYPE_1779, dn
  result = nto.Get(ADS_NAME_TYPE_GUID)
 
  Response.Write "<p>Translated name: " & result
 
%>
</body>
</html>

Требования

Требование	Значение
Минимальная версия клиента	Windows Vista
Минимальная версия сервера	Windows Server 2008
Целевая платформа	Windows
Header	iads.h
DLL	Activeds.dll