home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / erotore.zip / gethost.cmd < prev    next >
OS/2 REXX Batch file  |  1999-04-17  |  416b  |  23 lines
  1. /*   */
  2.  
  3. Parse Arg ServerNames
  4.  
  5. If RxFuncQuery("SockLoadFuncs") Then
  6. Do
  7.    Call RxFuncAdd "SockLoadFuncs","RXSOCK","SockLoadFuncs"
  8.    ok = SockLoadFuncs()
  9. End
  10.  
  11. N = Words(ServerNames)
  12.  
  13. Do i=1 to N
  14.   Server = Word(ServerNames,i)
  15.   rc = SockGetHostByName(Server, "Host.!")
  16.   qq.i = Server Host.!addr;Drop Host.!addr
  17. End
  18.  
  19. ok = lineout('temphost',,1)
  20. Do i=1 to N
  21.   ok = lineout('temphost',qq.i)
  22. End
  23.