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;
    *Value = strVal.Detach();
    WSACleanup();

 JS