Cómo obtener la dirección IP local a través de la función WIN API

CString CNetUsers::GetLocalIP()

{

// Esta función devuelve la dirección IP de la máquina local

/ / Vía: 2000.7.13

CString Result = "";

WSADATA wsaData

char Nombre[255]; >

hostent * hostinfo;

WORD wVersionRequested = MAKEWORD(2, 2);

if(WSAStartup(wVersionRequested,&wsaData) == 0){

if (gethostname(Nombre, tamaño de(Nombre))==0){

hostinfo = gethostbyname(Nombre);

if( hostinfo != NULL)

Resultado = inet_ntoa (*(struct in_addr *)*hostinfo-gt; h_addr_list

}

WSACleanup()

}

devolver resultado;

}