查询本地主机名及IP

#define NAME_LEN 256
CString strHostName; // 主机名
CString strIP; // IP
WSADATA wsaData;
PHOSTENT pHostEnt;
char name[NAME_LEN];
BOOL bOK = FALSE;
if ( WSAStartup( 2, &wsaData ) == 0 && LOBYTE( wsaData.wVersion ) >= 1 )
{
if ( gethostname( name, NAME_LEN ) == 0 )
{
if ( ( pHostEnt = gethostbyname( name ) ) != NULL )
{
strIP = inet_ntoa( *((struct in_addr*)pHostEnt->h_addr) );
strHostName = pHostEnt->h_name;
bOK = TRUE;
}
}
WSACleanup();
}
if ( bOK )
AfxMessageBox("Host Name: "+strHostName+"\n\nIP: "+strIP);