🚀 go-pugleaf

"TerryC" <terrycDONT_SPAM_PLEASE@sweetwaterhsa.SPAM_DIEDIE.com> wrote
in message news:4318b2cc$1@newsgroups.borland.com...
>
> What is the Win32 API function to enumerate the available
> domains?  I have looked at a bunch of Net... functions, many
> want you to supply the relevant domain, but none to give you the
> list of domains.  I'd like to be able to fill a ComboBox for the
> interface.
>
> Thanks,
> Terry



Hi Terry,

have a look on the following function...NOTE i cannot test it on my machine, because it's
a standalone workstation..so i hope it will run on yours...



Oren

/************************************************************************/

#include <windows.h>
#include <tchar.h>
#include <stdio.h>

TFormular *Formular;

__fastcall TFormular::TFormular(TComponent* Owner): TForm(Owner) { }

#define NUM_ELEMENTS(x) (sizeof((x)) / sizeof((x)[0]))

int go(void)
{
    SID_NAME_USE snu;
    TOKEN_USER* ptu;
    HANDLE hProcessToken;
    DWORD dwLen = 0, cbAccountName, cbDomainName;
    TCHAR szAccountName[256], szDomainName[256], szDomainAccount[512];

    if(OpenProcessToken(GetCurrentProcess(), TOKEN_ALL_ACCESS, &hProcessToken))
    {
        GetTokenInformation(hProcessToken, TokenUser, NULL, 0, &dwLen);

        if((dwLen) && (NULL != (ptu = (TOKEN_USER*)HeapAlloc(GetProcessHeap(), 0, dwLen))))
        {
            if(GetTokenInformation(hProcessToken, TokenUser, (PVOID)ptu,  dwLen, &dwLen))
            {
                cbAccountName = NUM_ELEMENTS(szAccountName);
                cbDomainName = NUM_ELEMENTS(szDomainName);

                if(LookupAccountSid(NULL, ptu->User.Sid, szAccountName,
                               &cbAccountName, szDomainName,
                               &cbDomainName, &snu))
                {
                    _tcscpy(szDomainAccount, szDomainName);
                    if(_tcslen(szDomainAccount))
                    {
                        _tcscat(szDomainAccount, TEXT("\\"));
                    }
                    _tcscat(szDomainAccount, szAccountName);
                    _tprintf(TEXT("%s\n"), szDomainAccount);
                }
                else
                {
                    _tprintf(TEXT("LookupAccountSid failed: %u\n"), GetLastError());
                }
            }
            else
            {
                _tprintf(TEXT("GetTokenInformation failed: %u\n"), GetLastError());
            }
            HeapFree(GetProcessHeap(), 0, (PVOID)ptu);
        }
    CloseHandle(hProcessToken);
    }
    else
    {
    _tprintf(TEXT("OpenProcessToken failed: %u\n"), GetLastError());
    }
    return(0);
}

void __fastcall TFormular::Button1Click(TObject *Sender)
{
   String str = IntToStr(go());

   ShowMessage(str);
}