获取主机名和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
){
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;
}