Thanks Razzak!! Talk about Ask and you shall receive!! I bet we get build 22 in short order too!
David David Blocker [EMAIL PROTECTED] 781-784-1919 Fax: 781-784-1860 Cell: 339-206-0261 ----- Original Message ----- From: "A. Razzak Memon" <[EMAIL PROTECTED]> To: "RBG7-L Mailing List" <[email protected]> Sent: Wednesday, October 26, 2005 9:30 PM 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. > > >
