Craig:
I fumbled with this (internal to UniData).
***************
GET.IP.ADDRESS:
***************
*
IsNT = INDEX(OCONV(SYSTEM(33), 'MCU'), 'NT', 1)
PORT.NO = OCONV(@UDTNO, 'MCU')
IPAddress = "unknown"
IF IsNT THEN
IPAddress = SYSTEM(512)
END ELSE
UArray = LISTUSER()
xHigh = DCOUNT(UArray, AM)
FOR X = 1 TO xHigh
ULine = UArray<X>
UPort = ULine<1,1>
IF UPort = PORT.NO THEN
IPAddress = ULine<1,7>
EXIT
END
NEXT X
END
RETURN
Hope this helps.
Bill Haskett
Advantos Systems, Inc.
www.advantos.net
(760)944-5570 (CA)
(360)923-4838 (WA)
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of
> Craig Peterson
> Sent: Tuesday, June 06, 2006 11:43 AM
> To: [email protected]
> Subject: [U2] client ip
>
> Is there a Unidata command for determining a client IP address?
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
