char lpBuffer[MAX_COMPUTERNAME_LENGTH+ 1 ];
     unsigned long nSize = sizeof(lpBuffer);

     if (GetComputerName(lpBuffer,&nSize) ==  0 )
       return HRESULT_FROM_WIN32(GetLastError());

     WideString strVal = AnsiString().sprintf("%s",lpBuffer);
     ShowMessage(strVal);

    WORD wVersionRequested;
    WSADATA WSAData;
    wVersionRequested = MAKEWORD( 1 , 1 );
    WSAStartup(wVersionRequested,&WSAData);
    hostent *P;
    char s[ 128 ];
    in_addr in;
    char *P2;
    gethostname(s,  128 );
    P = gethostbyname(s);
    in.S_un.S_un_b.s_b1 = P->h_addr_list[ 0 ][ 0 ];
    in.S_un.S_un_b.s_b2 = P->h_addr_list[ 0 ][ 1 ];
    in.S_un.S_un_b.s_b3 = P->h_addr_list[ 0 ][ 2 ];
    in.S_un.S_un_b.s_b4 = P->h_addr_list[ 0 ][ 3 ];
    P2 = inet_ntoa(in);
    WideString strVal = P2;
    WSACleanup();
    ShowMessage(strVal);

 JS