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

Тема в разделе "Borland C++ Builder & Kylix", создана пользователем Rate93, 9 сен 2008.

  1. Rate93

    Rate93 Гость

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

    Код (Text):
    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;
    }
    }
    }
     
Загрузка...
Похожие Темы - Список компов сети
  1. gx6060
    Ответов:
    2
    Просмотров:
    423
  2. gx6060
    Ответов:
    6
    Просмотров:
    563
  3. Shandrik
    Ответов:
    6
    Просмотров:
    807
  4. anna
    Ответов:
    8
    Просмотров:
    813
  5. erhe
    Ответов:
    10
    Просмотров:
    790

Поделиться этой страницей