home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxlan.zip / netrexx.cmd next >
OS/2 REXX Batch file  |  1993-05-25  |  419b  |  17 lines
  1. /* REXX */
  2. /* Sample for RXLAN (C) RZplus GmbH 1993                  */
  3. /* Installation: Put RXLAN.DLL Somewhere in your LIBPATH  */
  4.  
  5. if rxfuncquery( "RxNetInfo" ) then do
  6.    if rxfuncadd( "RxNetInfo", "RxLAN", "RxNetInfo" ) then do
  7.       signal failure
  8.    end
  9. end
  10.  
  11. say "Your userid is:" RxNetInfo( "userid" )
  12. say "and your logged on to domain:" RxNetInfo( "domain" )
  13.  
  14.  
  15. call rxfuncdrop( "RxNetInfo" )
  16.  
  17.