Power Builder - Captura Direccion IP

Tengo una aplicación que realiza auditoria , como puedo hacer para capturar la direccion IP de la maquina, o La mak adress Urgente alguna de las porfavor ayuda.

Hola !...... Justo tengo esa programacion, te la paso

blob{4} lb_hostaddress
string ls_HostName = space(128)
string ls_IpAddress, ls_nombrepc
String ls_key, ls_valuename

ls_key = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\control\ComputerName\ComputerName"
ls_valuename = "ComputerName"
RegistryGet( ls_key, ls_valuename, ls_nombrepc )

ls_HostName = is_nombrepc
GetHost(ls_HostName, lb_HostAddress)

ls_IpAddress = string(asc(string(blobmid(lb_HostAddress,1,1))),"000") + "."
ls_IpAddress += string(asc(string(blobmid(lb_HostAddress,2,1))),"000") + "."
ls_IpAddress += string(asc(string(blobmid(lb_HostAddress,3,1))),"000") + "."
ls_IpAddress += string(asc(string(blobmid(lb_HostAddress,4,1))),"000")

Saludos, espero que te sirva...

Hola me da un error de power builder que no conoce la funcion GetHost, gracias

Hola.... Disculpas, me olvide de pasarte esta declaracion de funcion externa

function string GetHost(string lpszhost, ref blob lpszaddress ) library "pbws32.dll"

Saludos, con esto solucionaras el error.