[progress Communities] [progress Openedge Abl] Forum Post: Re: Ip Address Of Appserver Client

[hikmetalemdaroglu@gmail.c]

here is the code. work on webclient , and progress 4gl DEF VAR SWAN_IP AS CHAR NO-UNDO. DEF VAR VLAN_IP AS CHAR NO-UNDO EXTENT 5. DEF VAR VHOST_NAME AS CHAR NO-UNDO. DEF VAR VPRIMARY_IP AS CHAR NO-UNDO. RUN SHARE/GETURL.P (INPUT " http://api.ipify.org" , OUTPUT SWAN_IP). RUN SHARE/GETLANIP.P (OUTPUT VHOST_NAME, OUTPUT VLANIP). ASSIGN VPRIMARY_IP = VLANIP[1]. GetUrl.p ----------------------------------------------- DEF INPUT PARAM PR-URL AS CHAR NO-UNDO. DEF OUTPUT PARAM PR-STR AS CHAR NO-UNDO. DEF VAR hobj AS com-handle no-undo. CREATE "MSXML2.ServerXMLHTTP" hobj NO-ERROR. NO-RETURN-VALUE HOBJ:setTimeouts(5000,5000,15000,15000) NO-ERROR. NO-RETURN-VALUE HOBJpen("GET", PR-URL, "FALSE") NO-ERROR . NO-RETURN-VALUE HOBJ:setRequestHeader("Content-Type", "application/x-www-form-urlencoded") NO-ERROR. NO-RETURN-VALUE HOBJ:SEND(PR-URL) NO-ERROR. PR-STR = hOBJ:responseText NO-ERROR. RELEASE OBJECT HOBJ. GetLanIp.p ---------------------------------------------------------------- USING System.* . USING System.Net.* . DEFINE OUTPUT PARAM pr-strMachineName AS CHAR NO-UNDO. DEFINE OUTPUT PARAM PR-LOCALIP AS CHAR FORMAT "X(12)" NO-UNDO EXTENT 5. DEFINE VARIABLE ipHost AS IPHostEntry NO-UNDO . DEFINE VARIABLE ipAddr AS IPAddress NO-UNDO EXTENT . DEF VAR IX AS INT. ASSIGN pr-strMachineName = Dns:GetHostName(). ASSIGN ipHost = Dns:GetHostByName(pr-strMachineName). ASSIGN ipAddr = ipHost:AddressList. REPEAT IX = 1 TO 5: PR-LOCALIP[IX] = ipAddr[IX]:ToString() NO-ERROR. END. Hikmet Alemdaroglu hikmetalemdaroglu@gmail.com

Continue reading...