[RBG7-L] - Re: IP Address

[Betaserver]

Razzak,

Now that is what I call the perfect enhancement for what I needed..  I will be 
awaiting the release of 22 !!

Thanks, you guys are the best..

-- Frank Taylor, Systems Network Administrator
-- F.J. O'Hara Corp, Boston, MA
-- [EMAIL PROTECTED] - 617-790-3093


-----Original Message-----
From: rbg7-l@rbase.com [mailto:[EMAIL PROTECTED] Behalf Of A. Razzak
Memon
Sent: Wednesday, October 26, 2005 9:30 PM
To: RBG7-L Mailing List
Subject: [RBG7-L] - Re: IP Address


At 01:43 PM 10/26/2005, Frank Taylor wrote:

>Is there a CVAL or GETVAL command that will return the
>IP address of the computer the user is on ?


Frank,

Did you know that you can use the (GETVAL('GetIPAddress','n'))
function in R:BASE 7.5 for Windows (Update 22) to retrieve
the IP Address(es) for any given network adapter(s) of a
given workstation or server?

Syntax:

(GETVAL('GetIPAddress','n'))

Where 'n' is the parameter to either retrieve the number
of active network adapters or to retrieve the IP address
of a given active network adapter. Use '0' to retrieve
the number of active network adapters and 1-9 to retrieve
the IP address(es) of active network adapter(s) of a given
network workstation/server.

Example:

-- Start
-- GetIPAddress.RMD
CLS
CLEAR VARIABLE vActiveAdapters,vIPAddress1,vIPAddress2, +
vIPAddress3,vIPAddress4,vPauseMessage,vCaption
SET VAR vActiveAdapters TEXT = NULL
SET VAR vIPAddress1 TEXT = NULL
SET VAR vIPAddress2 TEXT = NULL
SET VAR vIPAddress3 TEXT = NULL
SET VAR vIPAddress4 TEXT = NULL
SET VAR vPauseMessage TEXT = NULL
SET VAR vCaption TEXT = 'Understanding New GETVAL Function'

-- To retrieve the number of active network adapters
SET VAR vActiveAdapters = (GETVAL('GetIPAddress','0'))

-- To retrieve the IP address of first active network adapter
SET VAR vIPAddress1 = (GETVAL('GetIPAddress','1'))

-- To retrieve the IP address of second active network adapter
SET VAR vIPAddress2 = (GETVAL('GetIPAddress','2'))

-- To retrieve the IP address of third active network adapter
SET VAR vIPAddress3 = (GETVAL('GetIPAddress','3'))

-- To retrieve the IP address of fourth active network adapter
SET VAR vIPAddress4 = (GETVAL('GetIPAddress','4'))

SET VAR vPauseMessage = +
('Number of Active Adapter(s):'+(CHAR(009))&.vActiveAdapters+ +
   (CHAR(009))+(CHAR(013))+ +
  'IP Address of Active Adapter 1:'+(CHAR(009))&.vIPAddress1+ +
   (CHAR(009))+(CHAR(013))+ +
  'IP Address of Active Adapter 2:'+(CHAR(009))&.vIPAddress2+ +
   (CHAR(009))+(CHAR(013))+ +
  'IP Address of Active Adapter 3:'+(CHAR(009))&.vIPAddress3+ +
   (CHAR(009))+(CHAR(013))+ +
  'IP Address of Active Adapter 4:'+(CHAR(009))&.vIPAddress4+ +
   (CHAR(009))+(CHAR(013)))

CLS
PAUSE 2 USING .vPauseMessage CAPTION .vCaption +
ICON APP +
Button 'Yes, this is the R:BASE you have always wanted!' +
OPTION BACK_COLOR WHITE +
|MESSAGE_COLOR WHITE +
|MESSAGE_FONT_COLOR GREEN +
|BUTTON_COLOR WHITE
CLS
CLEAR VARIABLE vActiveAdapters,vIPAddress1,vIPAddress2, +
vIPAddress3,vIPAddress4,vPauseMessage,vCaption
RETURN
-- end

That's all there is to it!

Very Best R:egards,

Razzak.