void __fastcall TForm1::Button1Click(TObject *Sender)
{
   NCB Ncb;
   UCHAR uRetCode;
   char NetName[50];
   LANA_ENUM lenum;
   int i;       ZeroMemory(&Ncb, sizeof(Ncb));
   Ncb.ncb_command=NCBENUM;
   Ncb.ncb_buffer=(UCHAR*)&lenum;
   Ncb.ncb_length=sizeof(lenum);
   uRetCode=Netbios(&Ncb);       for(i=0; i < lenum.length; i++)
   {
      ZeroMemory(&Ncb, sizeof(Ncb));
      Ncb.ncb_command=NCBRESET;
      Ncb.ncb_lana_num=lenum.lana[i];          uRetCode=Netbios(&Ncb);
      ZeroMemory(&Ncb, sizeof(Ncb));
      Ncb.ncb_command=NCBASTAT;
      Ncb.ncb_lana_num=lenum.lana[i];
      strcpy(Ncb.ncb_callname, "*               ");
      Ncb.ncb_buffer=(char*)&Adapter;
      Ncb.ncb_length=sizeof(Adapter);
      uRetCode=Netbios(&Ncb);
      if(uRetCode==0)
      {
         ShowMessage("The Ethernet Number on LANA "+IntToStr(lenum.lana[i])+" is: "
            +IntToHex(Adapter.adapt.adapter_address[0], 2)+" "
            +IntToHex(Adapter.adapt.adapter_address[1], 2)+" "
            +IntToHex(Adapter.adapt.adapter_address[2], 2)+" "
            +IntToHex(Adapter.adapt.adapter_address[3], 2)+" "
            +IntToHex(Adapter.adapt.adapter_address[4], 2)+" "
            +IntToHex(Adapter.adapt.adapter_address[5], 2));
      }
   }
}