Список компов в сети

  • Автор темы Rate93
  • Дата начала
R

Rate93

#1
Подскажите как ограничить область поиска компов. Необходимо найти только сервера в пределах одного известного домена. Как переделать имеющийся код?

Код:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int ln, wgc, j = 0;
wchar_t * servername = NULL;
unsigned long level = 100;
SERVER_INFO_100 *bufptr;
unsigned long prefmaxlen =- 1;
unsigned long entriesread = 0;
unsigned long totalentries = 0;
unsigned long servertype = SV_TYPE_DOMAIN_ENUM;
wchar_t **domine;
unsigned long resumehandle = 0;
NET_API_STATUS ret;
ret = NetServerEnum(servername, level, (unsigned char **)&bufptr, prefmaxlen, &entriesread, &totalentries, servertype, NULL, &resumehandle);
wgc = totalentries;
domine = new wchar_t*[wgc];

for (int k = 0; k < wgc; k++)
{
ln = wcslen(bufptr->sv100_name);
domine [k] = new wchar_t [ln+1];
for (int i = 0; i < ln; i++)
domine[k][i]=bufptr->sv100_name[i];
domine[k][ln]=NULL;
bufptr++;
}
servertype = SV_TYPE_NT;

for (int k = 0; k < wgc; k ++)
{
Application->ProcessMessages();
bool bl = true;
while (bl == true)
{
ret = NetServerEnum (servername, level, (unsigned char **)&bufptr, prefmaxlen, &entriesread, &totalentries, servertype, domine[k],&resumehandle);
for (j = 1; j <= totalentries; j++)
{
Form1->ListBox1->Items->Add(bufptr->sv100_name);
bufptr ++;
}

if (resumehandle == 0) bl = false;
}
} 
}