hr = ADsGetObject(L"LDAP://CN=computers,DC=mydomain,DC=local", IID_IADsContainer, (void**) &pCont );

Sub asdas()
Set SI_ = CreateObject("ADSystemInfo")
Set Un_ = GetObject("LDAP://" & SI_.UserName)
UZ_ = Un_.DisplayName
msgbox UZ_
End Sub

#include <activeds.h>
#include <stdio.h>
 
   HRESULT hr;
 
   hr = CoInitialize(NULL);
 hrh = CoInitialize(NULL);
    IADsADSystemInfo *pSys;
    hr = CoCreateInstance(CLSID_ADSystemInfo,
                          NULL,
                          CLSCTX_INPROC_SERVER,
                          IID_IADsADSystemInfo,
                          (void**)&pSys);
 
   BSTR bstr;
   hr = pSys->get_UserName(&bstr);
   if (SUCCEEDED(hr)) {
      hrh = ADsGetObject(L"LDAP://"+pSys->get_UserName(&bstr), IID_IADs, (void**) &pObject);
   }

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#include "lm.h"
#include "tchar.h"
#pragma comment(lib, "netapi32.lib")
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{


DWORD dwLoginLen = 256UL;
TCHAR tUserLogin[256] = {0};
if (::GetUserName(tUserLogin, &dwLoginLen))
{
	BYTE* pbUserInfo = NULL;
	if (::NetUserGetInfo(NULL, tUserLogin, 10UL, &pbUserInfo) == NERR_Success)
	{
		auto pUserInfo = reinterpret_cast<PUSER_INFO_10>(pbUserInfo);

		::MessageBox(NULL, pUserInfo->usri10_full_name, pUserInfo->usri10_name, MB_ICONINFORMATION);
		::NetApiBufferFree(pbUserInfo);
	}
}
}
//---------------------------------------------------------------------------