Takaさん、さすがです。

後、もし、IPアドレスが複数割り当てられている場合について
付け足します。

HOSTENTのh_addr_listについて、charと宣言されていますが
この正体はIN_ADDR構造体です。
IN_ADDR構造体は
IPアドレス(long型)配列とホスト名の
共用体で構成されています。
IPアドレスの各値はポインタ演算でシフトして行うのですが、
PB流に直すと、blobで取得して、解析すれば
複数のIPアドレスを列挙する事ができます。

Takaさんが行った方法はh_addr_listにおいて
先頭IPアドレス情報を格納した方法ですね。

ちょっと断片的ですが、その部分のコード
を書きます
blob{80} lb_addr  //h_addr_list格納用
long ll_len //IPアドレス配列のサイズ
string ls_addr[] //IPアドレスリスト
long i,n //カウンタ
・・・
//h_addr_listの第１ポインタの取得までTakaさんと同じ

//h_addr_listをblobに格納
//本当はこれだと他の領域データも引っ張ってしまうけど
//参照のみなので勘弁してください
RtlMoveMemory(lb_addr,p_addr,80) 

//IPアドレス配列部のサイズを取得
ll_len = len(string(lb_addr))-len(nam)

//IPアドレス抽出
for i = 4 to ll_len step 4
　n ++
　//先頭から４バイトずつ抜き取り格納
　ls_addr[n] = String( inet_ntoa(long(blobmid(lb_addr,i - 3,4))),\'address\')
next

→ls_addr[n]にアドレスが格納される。以降Takaさんと同じ

これも同様もっと良いやり方があればお願いします。