Power Builder - direccion ip con windows 7

Sres foristas he migrado la version del PB de 9 a 11 y hasta ahi todo ok.
Luego de los testeos de rigor me doy con la sorpresa que el sistema actualmente en windows 7 no obtiene la direccion ip de la Pc como lo hacia con un XP normal

Espero me puedan dar un alcance que particularidad tiene el Windows 7 o que nuevas funciones se debe utilizar para obtener correctamente el ip:

Este es mi script:
Tengo una funcion gf_obtener_ip que me hace todo el trabajo


String ls_ipaddress, ls_hostname
Blob{4} lb_hostadress
Integer li_version, li_rc
str_wsadata lstr_wsadata1

ls_hostname = Space(128)
li_version = 257

If WSAStartup(li_version, lstr_wsadata1) = 0 Then
If GetHostName(ls_hostname, Len(ls_hostname)) < 0 Then
li_rc = WSAGetLastError()
Else
GetHost(ls_hostname, lb_hostadress)
ls_ipaddress = String(Asc(String(BlobMid(lb_hostadress, 1, 1)))) + "."
ls_ipaddress += String(Asc(String(BlobMid(lb_hostadress, 2, 1)))) + "."
ls_ipaddress += String(Asc(String(BlobMid(lb_hostadress, 3, 1)))) + "."
ls_ipaddress += String(Asc(String(BlobMid(lb_hostadress, 4, 1))))

li_rc = 0
End If
Else
li_rc = WSAGetLastError()
End If

WSACleanup()

//Return li_rc
Return ls_ipaddress


Ademas tengo en mi objeto aplicacion en Global external functions lo siguiente:

function int WSAStartup (uint UIVerionrequested, ref str_wsadata lpWSAdata) library "wsock32.DLL"
function int WSACleanup() library "wsock32.DLL"
function int WSAGetLastError() library "wsock32.DLL"
function int gethostname(ref string name, int namelen) library "wsock32.DLL"
function string GetHost(string lpszhost,ref blob lpszaddress) library "pbws32.dll"

Function int GetWindowTextA(long handle, ref string wintext, int length) Library "USER32.DLL"

Agradezco de antemano sus sugerencias

Saludos desde Peru

Win 7 es S.O de 64 bits. deberías tener esto en cuenta. estas usando USER32.DLL