home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / sys / sun / hardware / 6815 < prev    next >
Encoding:
Text File  |  1993-01-12  |  4.5 KB  |  161 lines

  1. Newsgroups: comp.sys.sun.hardware
  2. Path: sparky!uunet!mcsun!sunic!sics.se!eua.ericsson.se!euas41c05!euapbn
  3. From: euapbn@eua.ericsson.se (Per.Borjeson)
  4. Subject: Re: Host ID
  5. Message-ID: <1993Jan12.151056.6778@eua.ericsson.se>
  6. Sender: news@eua.ericsson.se
  7. Nntp-Posting-Host: euas41c05.eua.ericsson.se
  8. Reply-To: euapbn@eua.ericsson.se
  9. Organization: Ellemtel Telecom Systems Labs, Stockholm, Sweden
  10. References: <1993Jan11.172408.20462@porthos.cc.bellcore.com>
  11. Date: Tue, 12 Jan 1993 15:10:56 GMT
  12. Lines: 147
  13.  
  14. In article 20462@porthos.cc.bellcore.com, bmaggio@wort.dcs.bellcore.com (Bill Maggio) writes:
  15. > does anyone know how to translate the host id info 
  16. > into the the Sun system hardware type (eg 670,490,etc)?
  17. > thanx,
  18. > bill maggio
  19. > -------------------------------------------------------------------------------
  20. > William J. Maggio                       Email     : bmaggio@bellcore.com
  21. > Bellcore                                SnailMail : bellcore!bmaggio
  22. > 6 Corporate Place, PYA-1J257            VoiceMail : 908-699-6864
  23. > Piscataway, NJ 08855-1320               Fax       : 908-336-2237
  24.  
  25.  
  26. Hello Bill!
  27.  
  28. Here is a small script that will test this:
  29.  
  30. #!/bin/csh -f
  31. ########################################################################
  32. # Detta script anvands for att ta reda p} maskintyp och minne  AKF/SHE #
  33. # Rev: 1.0     901010            Created        #
  34. # Rev: 1.1     901212            added ss2      #
  35. # Rev: 1.2     910416            Only 4.1.1     #
  36. # Rev: 1.3     910603            added IPC      #
  37. # Rev: 1.4     920727            added IPX      #
  38. # Rev: 1.5     920813            added 690      #
  39. ########################################################################
  40.  
  41.  
  42. set prog=$0;set prog=$prog:t
  43. set hosts=($argv)
  44.  
  45. if ( $#hosts == 0) then
  46.    set hosts=`hostname`
  47. endif
  48.  
  49. set hosts=(`show_hosts $hosts`)
  50.  
  51. foreach h ( $hosts)
  52.    nawk 'BEGIN{printf("%-9s ==>>",h)}' h=$h
  53.         /usr/etc/ping $h 3 >&/dev/null
  54.         if ( $status ) then
  55.                echo ": NOT RESPONDING"
  56.       continue
  57.    endif
  58.    ### we want 5 arguments
  59.    ### 11002ff6 mem = 8192K (0x800000)
  60.    ###    1      2  3   4        5
  61.    set result=(`rsh $h 'hostid;/etc/dmesg | grep "^mem =" | tail -1'`)
  62.    set num memsize hostid
  63.    if ( $#result >0 )then
  64.       set hostid=$result[1]
  65.       set num=`nawk 'BEGIN{print substr(h,1,2)}' h=$hostid`
  66.    endif
  67.    if ( $#result >4 )then
  68.       set memsize=`nawk 'BEGIN{l=length(m);m=substr(m,1,l-1);m=m/1024;printf("%3dMb\n",m)}' m=$result[4]`
  69.    endif
  70. switch ( $num )
  71.  
  72.    case 01:
  73.       set mtype="Sun 2 Multibus"
  74.    breaksw
  75.    case 02:
  76.       set mtype="Sun 2 VME                  "
  77.    breaksw
  78.    case 04:
  79.       set mtype="SolBourne S4000DX          "
  80.    breaksw
  81.    case 11:
  82.       set mtype="Sun 3/180                  "
  83.    breaksw
  84.    case 12:
  85.       set mtype="Sun 3/50                   "
  86.    breaksw
  87.    case 13:
  88.       set mtype="Sun 3/280                  "
  89.    breaksw
  90.    case 14:
  91.       set mtype="Sun 3/110                  "
  92.    breaksw
  93.    case 17:
  94.       set mtype="Sun 3/60                   "
  95.    breaksw
  96.    case 20:
  97.       set mtype="Personal Mainframe 5000    "
  98.    breaksw
  99.    case 21:
  100.       set mtype="Sun 4/200 Series           "
  101.    breaksw
  102.    case 22:
  103.       set mtype="Sun 4/110                  "
  104.    breaksw
  105.    case 23:
  106.       set mtype="Sun 4/390                  "
  107.    breaksw
  108.    case 24:
  109.       set mtype="Sun 4/470 or 4/490         "
  110.    breaksw
  111.    case 31:
  112.       set mtype="Sun 386i                   "
  113.    breaksw
  114.    case 40:
  115.       set mtype="Solbourne M500-series      "
  116.    breaksw
  117.    case 51:
  118.       set mtype="Sun 4/60 ( Sparcstation1  )"
  119.    breaksw
  120.    case 52:
  121.       set mtype="Sun 4/40 ( IPC            )"
  122.    breaksw
  123.    case 53:
  124.       set mtype="Sun 4/65 ( Sparcstation1+ )"
  125.    breaksw
  126.    case 54:
  127.       set mtype="Sparcstation SLC           "
  128.    breaksw
  129.    case 55:
  130.       set mtype="Sun 4/75 ( Sparcstation2  )"
  131.    breaksw
  132.    case 56:
  133.       set mtype="Sun 4/50 ( IPX            )"
  134.    breaksw
  135.    case 71:
  136.       set mtype="Sun 4/600( GALAXY         )"
  137.    breaksw
  138.    default:
  139.       set mtype="Machine type not defined   "
  140.    breaksw
  141. endsw
  142. echo "Type=$mtype MEM : $memsize"
  143.  
  144. end
  145.  
  146.  
  147. +-------------------------------------------------------+
  148. !    Per B÷rjeson                                       !
  149. +-------------------------------------------------------+
  150. !    Ellemtel Telecommunications Systems Laboratories   !
  151. !    S-125 25 STOCKHOLM Sweden                          !
  152. !    Phone   : +46 8 727 3507  Fax  : +46 8 47 82 76    !
  153. +-------------------------------------------------------+
  154. !    E-mail  : Per.Borjeson@eua.ericsson.se             !
  155. +-------------------------------------------------------+
  156.  
  157.