#ifndef WIN32_LEAN_AND_MEAN
#define WIN32_LEAN_AND_MEAN
#endif

#include <windows.h>
#include <winsock2.h>
#include <ws2ipdef.h>
#include <iphlpapi.h>
#include <stdio.h>
#include <stdlib.h>
#pragma comment(lib,"Ws2_32.lib")
#pragma comment(lib, "Iphlpapi.lib")

#define MALLOC(x) HeapAlloc(GetProcessHeap(), 0, (x))
#define FREE(x) HeapFree(GetProcessHeap(), 0, (x))

int main()
{
    WSAData wsaData;
    in_addr ip;
    char hostname[128];
    if (WSAStartup(0x101, &wsaData) == 0) {
        gethostname(&hostname[0], 128);
        hostent *h = gethostbyname(&hostname[0]);
        ip = *(reinterpret_cast<in_addr *>(*(h->h_addr_list)));
    }
    WSACleanup();
    
    printf("IP adress : %d.%d.%d.%d\n", ip.S_un.S_un_b.s_b1, ip.S_un.S_un_b.s_b2, ip.S_un.S_un_b.s_b3, ip.S_un.S_un_b.s_b4);

    DWORD dwRetVal = 0;
    PMIB_IPADDRTABLE pIPAddrTable;
    DWORD dwSize = 0;

    pIPAddrTable = (MIB_IPADDRTABLE *)MALLOC(sizeof(MIB_IPADDRTABLE));

    if (GetIpAddrTable(pIPAddrTable, &dwSize, 0) == ERROR_INSUFFICIENT_BUFFER) {
        FREE(pIPAddrTable);
        pIPAddrTable = (MIB_IPADDRTABLE *)MALLOC(dwSize);
    }

    if (pIPAddrTable == NULL) {
        printf("Memory allocation failed for GetIpAddrTable\n");
        exit(1);
    }
    if ((dwRetVal = GetIpAddrTable(pIPAddrTable, &dwSize, 0)) != NO_ERROR) {
        printf("GetIpAddrTable failed with error %d\n", dwRetVal);
        return 0;
    }

    DWORD index = 0;
    for (int i = 0; i < (int)pIPAddrTable->dwNumEntries; i++) {
        if (ip.S_un.S_addr == pIPAddrTable->table[i].dwAddr)
            index = pIPAddrTable->table[i].dwIndex;
    }

    if (pIPAddrTable) {
        FREE(pIPAddrTable);
        pIPAddrTable = NULL;
    }


    ULONG adapter_info_size = 0;
    PIP_ADAPTER_INFO ptr_adapter_info = NULL;
    PIP_ADAPTER_INFO ptr_adapter_info_first = NULL;

    GetAdaptersInfo(ptr_adapter_info, &adapter_info_size);

    ptr_adapter_info_first = ptr_adapter_info = (PIP_ADAPTER_INFO) new(char[adapter_info_size]);

    if (GetAdaptersInfo(ptr_adapter_info, &adapter_info_size) != ERROR_SUCCESS) {
        printf("Error while GetAdaptersInfo\n");
        delete(ptr_adapter_info);
        return(1);
    }

    while (ptr_adapter_info) {
        if (ptr_adapter_info->Index == index) {
            printf("MAC address: ");
            for (char i = 0; i < (int)ptr_adapter_info->AddressLength; i++)
                printf("%02x ", (unsigned char)ptr_adapter_info->Address[i]);
            printf("\n");
            break;

        }
        ptr_adapter_info = ptr_adapter_info->Next;

    }
    delete(ptr_adapter_info_first);

    return 0;
}