获取主机名和IP地址

BOOL CenumhostsDlg::GetIp(CString& hostname,CStringArray& striplist)
{
 
 char szhostname[128];
 WSADATA wsaData;
 WSAStartup(MAKEWORD(1,1),&wsaData);
 if(gethostname(szhostname,128)==0)
 {
  struct hostent *phost;
  int occurred;
  phost=gethostbyname(szhostname);
  hostname=szhostname;
  int j,n=0;
  CString strs,str;
  strs.Format("%d/n",sizeof((phost->h_addr_list)));
  MessageBox(strs);
  while((unsigned char*)phost->h_addr_list[n]){
  for(j=0;j<4;j++)
  {
   CString addr;
   if(j>0)
    str+=".";
   addr.Format("%u",(unsigned int)((unsigned char*)phost->h_addr_list[0])[j]);
   
   str+=addr;
  }
  n++;
  striplist.Add(str);
  }
 }
 else
  return false;
 
 WSACleanup();
 return true;
}