Вывод всех компьютеров сети

void __fastcall TForm1::Button9Click(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; // тут я было вставил //SV_TYPE_WORKSTATION но программа застопорилась
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 ++)
    {
    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++)
            {
 
             ListBox4->Items->Add(bufptr->sv100_name);
 
            bufptr ++;
                }
 
        if (resumehandle == 0)
            bl = false;
        }
    }
 
  }

#include <Lm.h>