/*Пример как вытащить список серверов, на которых сейчас запущен MS-SQL*/
void __fastcall TfrmMain::GetSQLServers()
{
 DWORD i;
 NET_API_STATUS Stat;
 LPSERVER_INFO_101 myInfo = NULL;
 LPSERVER_INFO_101 pTmpBuf;
 DWORD level =  101 ;
 DWORD prefmaxlen = - 1 ;
 DWORD entriesread =  0 ;
 DWORD totalentries =  0 ;
 DWORD servertype = SV_TYPE_SQLSERVER;
 DWORD resume_handle =  0 ;
 AnsiString s;
try{
 Stat = NetServerEnum(NULL,
                      level,
                      (LPBYTE*) &myInfo,
                      prefmaxlen,
                      &entriesread,
                      &totalentries,
                      servertype,
                      NULL,
                      &resume_handle);
 if(Stat ==  0 ){
  if((pTmpBuf = myInfo) != NULL){
   for(i =  0 ; i < entriesread; i++, pTmpBuf++){
    assert(pTmpBuf != NULL);
    cbSQLServers->Items->Add(pTmpBuf->sv101_name); // Заполняем ComboBox именами серверов
    }
 }
 }
  }
  __finally
  {
   if(myInfo != NULL) NetApiBufferFree(myInfo);
  }
}