home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / RXSOCK.ZIP / test_h.cmd < prev    next >
OS/2 REXX Batch file  |  1993-06-22  |  2KB  |  66 lines
  1. /*------------------------------------------------------------------
  2.  * test_h.cmd :
  3.  *------------------------------------------------------------------
  4.  * 08-05-92 originally by Patrick J. Mueller
  5.  *------------------------------------------------------------------*/
  6.  
  7. trace off
  8.  
  9. /*------------------------------------------------------------------
  10.  * load socket functions, if needed
  11.  *------------------------------------------------------------------*/
  12. if RxFuncQuery("SockLoadFuncs") then
  13.    do
  14.    rc = RxFuncAdd("SockLoadFuncs","RxSock","SockLoadFuncs")
  15.    rc = SockLoadFuncs()
  16.    end
  17.  
  18. /*------------------------------------------------------------------
  19.  * initialize sockets (not technically required)
  20.  *------------------------------------------------------------------*/
  21. if (1 = SockInit()) then
  22.    do
  23.    say "tcp/ip is not available."
  24.    exit 1
  25.    end
  26.  
  27. /*------------------------------------------------------------------
  28.  * get current host address, and host info
  29.  *------------------------------------------------------------------*/
  30. addr = SockGetHostId()
  31. rc   = SockGetHostByAddr(addr,"host.!")
  32. name = host.!name
  33.  
  34. /*------------------------------------------------------------------
  35.  * query information by name and by address
  36.  *------------------------------------------------------------------*/
  37. rc = SockGetHostByName(name,"name.!")
  38. rc = SockGetHostByAddr(addr,"addr.!")
  39.  
  40. /*------------------------------------------------------------------
  41.  * print name info
  42.  *------------------------------------------------------------------*/
  43. say "Info from name"
  44. say "name:      " name.!name
  45. say "addr type: " name.!addrtype
  46. say "addr:      " name.!addr
  47. say "aliases:   " name.!addr
  48. do i = 1 to name.!alias.0
  49.    say name.!alias.i
  50. end
  51.  
  52. /*------------------------------------------------------------------
  53.  * print host info
  54.  *------------------------------------------------------------------*/
  55. say
  56. say "Info from addr"
  57. say "name:      " addr.!name
  58. say "addr type: " addr.!addrtype
  59. say "addr:      " addr.!addr
  60. say "aliases:   " addr.!addr
  61. do i = 1 to addr.!alias.0
  62.    say addr.!alias.i
  63. end
  64.  
  65.  
  66.