home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / cedit2.zip / RXNETTST.CMD < prev   
OS/2 REXX Batch file  |  1993-10-05  |  453b  |  20 lines
  1. /* TestDLL.CMD */
  2.  
  3. MainModule:
  4.    Call Initialize
  5.    Workstation = RxNetGetWorkstation() 
  6.    Say 'Workstation = 'Workstation
  7.    UserId = RxNetGetUserId() 
  8.    Say 'UserId = 'UserId
  9.    Domain = RxNetGetDomain()
  10.    Say 'Domain = 'Domain
  11.    Call RxNetDropFuncs
  12.    Exit
  13.  
  14. Initialize:
  15.    Call RxFuncAdd 'RxNetLoadFuncs', 'RxNetInf', 'RxNetLoadFuncs'       
  16.    Call RxNetLoadFuncs                                                
  17.    Return
  18.  
  19.  
  20.