Obtener Dirección IP del Equipo con LotusScript

Entre algunos proyectos con Lotus Notes me surgió la necesidad de obtener la dirección IP del equipo. Buscando en algunos foros encontré esta función que opera de maravilla.

Function getIPAddress() As String
On Error Goto ER
Dim jSession As JavaSession
Dim jClass As JavaClass
Dim jObject As JavaObject
Dim jMethod As JavaMethod

Set jSession = New JavaSession()
Set jClass = jSession.GetClass(“java/net/InetAddress”)
Set jMethod = jClass.GetMethod(“getLocalHost”,”()Ljava/net/InetAddress;”)
Set jObject = jMethod.Invoke()

getIPAddress = jObject.getHostAddress()

Exit Function

ER:
Msgbox Error & ” en GetIPAddress linea ” & Erl
Exit Function
End Function

No deben olvidar usar la siguiente librería en el Declarations del elemento de diseño donde esten trabajando.

Uselsx “*javacon” 

Espero que les sea de utilidad.

Anuncios

Acerca de calitrunks

Carlos Astudillo Jamett(@calitrunks), Adventista del 7° Día. Ingeniero en Informática, de la Universidad Tecnológica de Chile. Desarrollador de Software, Apasionado por la tecnología, el emprendimiento y con muchas ganas de compartir el conocimiento y experiencias. Creador de la web http://www.somosaventureros.cl un sitio para difundir el club de aventureros, un lugar donde los niños pueden convertirse en mejores personas y saber que siempre hay oportunidades en la vida sin importar las circunstancias que se enfrenten. Email: castudill@hotmail.com Twitter: https://es.twitter.com/calitrunks

Publicado el agosto 13, 2013 en Lotus Notes, Scripts, Tecnologia y etiquetado en , , . Guarda el enlace permanente. Deja un comentario.

¿Que te pareció este post?

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: