hakobakoさん、こんにちは。
ありがとうございます。
ご指摘の方法で、うまくいきました。
エンコード、あんまりよく知らなかったです。
勉強になりました。

＞mnさん、こんばんは。
＞
＞＞hakobakoさん、こんばんは。
＞＞
＞＞そうかな？と思って、下記に変更しました。
＞＞function long WSAStartup(uint wVersionRequested, ref SG_WSADATA lpWSAData) 
library \"wsock32.dll\" 
＞＞alias for \"WSAStartup;Ansi\"
＞＞function long WSACleanup() library \"wsock32.dll\"
＞＞
＞＞function long gethostname(ref string strName, long namelen) library \"wsock32.dll\" alias 
＞＞for \"gethostname;Ansi\"
＞＞function long gethostbyname(string strName) library \"wsock32.dll\" alias 
for \"gethostbyname;Ansi\"
＞＞
＞＞function long inet_ntoa(ulong addr) library \"wsock32.dll\"
＞＞
＞＞subroutine RtlMoveMemory( ref SG_HOSTENT buf, long p, long s ) library \"kernel32.dll\" alias 
＞＞for \"RtlMoveMemory;Ansi\"
＞＞subroutine RtlMoveMemory( ref ulong buf, long p, long s ) library \"kernel32.dll\" 
＞＞
＞＞でも、残念でした。
＞
＞すみません、もう一つ忘れてました。
＞恐らく返ってくる値が文字化けしてるのではないですか？
＞
＞以下の部分を修正してみてください。
＞-----------------------------------------------------------
＞// 文字列に変換
＞string s_addr
＞s_addr = String( inet_ntoa(addr), \'address\' ) /////ＩＰアドレス
＞-----------------------------------------------------------
＞↓
＞-----------------------------------------------------------
＞// 文字列に変換
＞string s_addr
＞blob lb_temp
＞s_addr = String( inet_ntoa(addr), \'address\' ) /////ＩＰアドレスがunicodeのままなのでこのままじゃ
見れない！
＞lb_temp = Blob(s_addr) // 一旦blob型にして…
＞s_addr = String(lb_temp , EncodingANSI!) // Ansiでエンコード→IPアドレス
＞-----------------------------------------------------------
＞
＞これでどうでしょう？
＞