Foros Club Delphi - Como obtengo las direcciones IP de mi red (obviamente en delphi)

ahi estan los nombres de las maquinas....en un edit metes el nombre DNS o NeTBIOS del controlador de dominio y en el otro edit metes el nombre del dominio, esta en builder como puedes ver pero no sera gran problema q lo pases a Delphi

Código:

void __fastcall TForm1::Button3Click(TObject *Sender)

{ NET_API_STATUS nStatus;

  wchar_t *Servername;

  DWORD level;

  void *bufptr;

  DWORD prefmaxlen;

  DWORD entriesread;

  DWORD totalentries;

  DWORD servertype;

  LPWSTR domain;

  DWORD resume_handle;

  //--------------------

  Servername = new wchar_t[Edit1->Text.Trim().Length()+1];

  Edit1->Text.Trim().WideChar(Servername,Edit1->Text.Trim().WideCharBufSize());

  level=101L;

  prefmaxlen=32*1024;

  servertype=SV_TYPE_WORKSTATION;

  domain = new wchar_t[Edit2->Text.Trim().Length()+1];

  Edit2->Text.Trim().WideChar(domain,Edit2->Text.Trim().WideCharBufSize());

  resume_handle=0;

  do

  { nStatus = NetServerEnum(Servername,level,(LPBYTE *)&bufptr,prefmaxlen,&entriesread,&totalentries,servertype,domain,&resume_handle);

        if((nStatus == NERR_Success) || (nStatus == ERROR_MORE_DATA))

          { SERVER_INFO_101 *SI101=(SERVER_INFO_101 *)bufptr;

                for(int i = 0; (i < entriesread); i++)

                  { Memo1->Lines->Add("//--------------------------------------");

                        Memo1->Lines->Add("Nombre: "+AnsiString(SI101[i].sv101_name));

                        Memo1->Lines->Add("Id: "+AnsiString(SI101[i].sv101_platform_id));

                        Memo1->Lines->Add("Comment: "+AnsiString(SI101[i].sv101_comment));

                  }

          }

        else

          { LPVOID lpMsgBuf;

                FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,NULL,GetLastError(),MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),(LPTSTR) &lpMsgBuf,0,NULL);

                MessageBox( NULL,(char *)lpMsgBuf, "GetLastError", MB_OK|MB_ICONINFORMATION);

                LocalFree( lpMsgBuf );

          }

        if(nStatus == ERROR_ACCESS_DENIED)

          { ShowMessage("Sin permisos...");

                break;

          }

        if(nStatus == NERR_InvalidComputer)

          { ShowMessage("Pote inválido");

                break;

          }

        if(nStatus == ERROR_NO_BROWSER_SERVERS_FOUND)

          { ShowMessage("ERROR_NO_BROWSER_SERVERS_FOUND");

                break;

          }

  }while(nStatus == ERROR_MORE_DATA);

  if(bufptr)

        NetApiBufferFree(bufptr);

  delete [] Servername;

  delete [] domain;

}