Power Builder - URGENTE : IP

como puedo saber el numero IP de la PC en que stoy. Supongo que es una funcion externa, pero alguien la conoce. Por favor es muy urgente.

en la linea de comando: IPCONFIG

Quizá Ivan se refiera a ejecutar a ejecutar el archivo winipcfg.exe de windows que muestra esa información. Podrías escribir el siguiente script:

Run("C:\Windows\winipcfg.exe")

Cuando haces eso, aparece una ventana que te muestra todo tipo de información referente al nombre del cliente y su IP. Puedes pulsar el botón “Más información”, o para ver el IP se elige en el cuadro de lista.

Si deseas el IP a través de una función, te explico en el siguiente post
(CONTINUA...)

(VIENE DEL ANTERIOR).
Primero debes crear la siguiente estructura y guardarla con el nombre: str_wsadata
---------------------------------------
unsignedinteger version
unsignedinteger highversion
character description[257]
character systemstatus[129]
nsignedinteger maxsockets
unsignedinteger maxupddg
string vendorinfo
------------------------------------------

Luego en tu ventana, en la pestaña Declare Instance Variables (en PB 8), eliges Global External Functios y escribes 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"
--------------------------------------------------------
Nota: Cada línea que empieza con function, debes colocarla en una sola línea.

(CONTINUA...)

(VIENE DEL ANTERIOR)
Finalmente, este es el código PowerScript, que puedes colocarlo en un botón:
-------------------------------------
String ls_ip, ls_host
Blob{4} lb_host
Integer li_version, li_rc
str_wsadata lstr_wsadata

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(Asc(String(BlobMid(lb_host, 1, 1)))) + "."
ls_ip += String(Asc(String(BlobMid(lb_host, 2, 1)))) + "."
ls_ip += String(Asc(String(BlobMid(lb_host, 3, 1)))) + "."
ls_ip += String(Asc(String(BlobMid(lb_host, 4, 1))))
li_rc = 0
End If
MessageBox("My IP", ls_ip)
Else
li_rc = WSAGetLastError()
End If

WSACleanup()
------------------------------------------------------
Para terminar, debes incluir en la misma carpeta donde está tu aplicación, el dll llamado pbws32.dll, que te mandaré a tu e-mail.
Cualquier duda, no dudes en preguntar con toda confianza. Lo probé y funciona.

Javier:
Te mandé el dll pbws32.dll, a tu e-mail:
[email protected]
Sin embargo, me rebotó el mensaje. ¿Esa dirección de tu e-mail es correcta?. Revisá.
Sin esa dll no puedes averiguar el IP.

Gracias Oscar por interesarte. Lo que pasa es que el mail anterior era de una empresa donde trabaje y parece que ya me desaparecieron te doy entonces mi direccion de hotmail
[email protected]
Gracias nuevamente

Se envió a ese nuevo e-mail. Como son cuatro cosas que debes realizar para averiguar el IP (estructura, funciones externas, powerscript e incluir la dll), si tienes problemas con uno de ellos, avisá.
Bye.

Gracias Oscar por la ayuda.
Necesitaba esa funcion desde hace tiempo
te debo una

Buenas tardes Oscar,

esta viendo tu aporte y lo he visto muy pero muy útil pero quería pedirte si es posibles que me enviaras la librería pbws32, es que llevo rato buscándola y no la encuentro. Muchas gracias