発言?：14263からのマルチIPアドレスの取得は出来たのですが、
他のネット検索から得た方法でのマルチIPアドレスの取得が出来ません
何方か、ご教授お願い致します。
OS:Windows7
PowerBuilder12.1
[外部関数宣言]
function int WSAStartup (uint UIVerionrequested, ref str_wsadata lpWSAdata)
 library \"wsock32.DLL\" alias for \"WSAStartup;Ansi\"
function int WSACleanup() library \"wsock32.DLL\" alias for \"WSACleanup;Ansi\"
function int WSAGetLastError() library \"wsock32.DLL\" alias for \"WSAGetLastError;Ansi\"
function int gethostname(ref string name, int namelen)
 library \"wsock32.DLL\" alias for \"gethostname;Ansi\"
function string GetHost(string lpszhost,ref blob lpszaddress)
 library \"pbws32.dll\" alias for \"GetHost;Ansi\"
[スクリプト]
String ls_ip, ls_host
Blob{4} lb_host
Integer li_version, li_rc
str_wsadata lstr_wsadata
string s_addr
ls_host = Space(128)
li_version = 257
If WSAStartup(li_version, lstr_wsadata) = 0 Then
   If GetHostName(ls_host, Len(ls_host)) < 0 Then
      li_rc = WSAGetLastError()
   Else
      GetHost(ls_host, lb_host)
      ls_ip  = String(AscA(String(BlobMid(lb_host, 1, 1),Encodingansi!))) + \".\"
      ls_ip += String(AscA(String(BlobMid(lb_host, 2, 1),Encodingansi!))) + \".\"
      ls_ip += String(AscA(String(BlobMid(lb_host, 3, 1),Encodingansi!))) + \".\"
      ls_ip += String(AscA(String(BlobMid(lb_host, 4, 1),Encodingansi!)))
      li_rc = 0
   End If
   MessageBox(\"My IP\", ls_ip)
Else
   li_rc = WSAGetLastError()
End If

WSACleanup()