home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: SysTools / SysTools.zip / stmon013.zip / Sample1.CMD < prev    next >
OS/2 REXX Batch file  |  1999-08-06  |  2KB  |  74 lines
  1. /* Sample1 */
  2. /* Initialize RexxUtil */
  3. rc=RxFuncAdd('SysLoadFuncs','RexxUtil','SysLoadFuncs')
  4. Call SysLoadFuncs
  5. /* Initialize StHealth */
  6. rc=RxFuncAdd('StHealthLoadFuncs','StHealth','StHealthLoadFuncs')
  7. Call StHealthLoadFuncs
  8.  
  9. /* Initialize some variables */
  10. LT1=65536
  11. HT1=0
  12. LT2=65536
  13. HT2=0
  14. LT3=65536
  15. HT3=0
  16.  
  17. /* Query version of StHealth */
  18. FullVersion=StHealthVersion("FULL")
  19. Version=StHealthVersion("VERSION")
  20. BuildLevel=StHealthVersion("BUILD")
  21. Do Forever
  22.  /* Query some values */
  23.  V1=StHealthValue(VOLT1)
  24.  V2=StHealthValue(VOLT2)
  25.  V3=StHealthValue(VOLT3)
  26.  V4=StHealthValue(VOLT4)
  27.  V5=StHealthValue(VOLT5)
  28.  V6=StHealthValue(VOLT6)
  29.  V7=StHealthValue(VOLT7)
  30.  T1=StHealthValue(TEMP1)
  31.  T2=StHealthValue(TEMP2)
  32.  T3=StHealthValue(TEMP3)
  33.  F1=StHealthValue(FAN1)
  34.  F2=StHealthValue(FAN2)
  35.  F3=StHealthValue(FAN3)
  36.  CT=StHealthChip(FULL)
  37.  /* Check for high/low values */
  38.  If T1>HT1 Then HT1=T1
  39.  If T1<LT1 Then LT1=T1
  40.  If T2>HT2 Then HT2=T2
  41.  If T2<LT2 Then LT2=T2
  42.  If T3>HT3 Then HT3=T3
  43.  If T3<LT3 Then LT3=T3
  44.  /* Clear screen */
  45.  Call SysCls
  46.  /* Display logo */
  47.  Say "Sample Monitoring Script"
  48.  Say "For use with StHealth.dll"
  49.  Say "Copyright(c) 1999 by Stefan Milcke"
  50.  Say ""
  51.  Say "Version of StHealth.DLL: "FullVersion
  52.  Say " "
  53.  Say "Detected Chip: "CT
  54.  Say " "
  55.  /* Display stored values */
  56.  Say "Core Voltage A:"V1
  57.  Say "Core Voltage B:"V2
  58.  Say "3.3 Volts     :"V3
  59.  Say "5 Volts       :"V4
  60.  Say "12 Volts      :"V5
  61.  Say "-12 Volts     :"V6
  62.  Say "-5 Volts      :"V7
  63.  Say "-------------------------------------------------------------------------"
  64.  Say "Temperature 1 :"T1"   Min:"LT1"   Max:"HT1
  65.  Say "Temperature 2 :"T2"   Min:"LT2"   Max:"HT2
  66.  Say "Temperature 3 :"T3"   Min:"LT3"   Max:"HT3
  67.  Say "-------------------------------------------------------------------------"
  68.  Say "Fan 1         :"F1
  69.  Say "Fan 2         :"F2
  70.  Say "Fan 3         :"F3
  71.  /* Sleep for a while */
  72.  Call SysSleep(1)
  73. End
  74.