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アドレス
-----------------------------------------------------------

これでどうでしょう？