System Temperatur bei den Alphas

26/07/2011 - 00:27 von Alexander Horn | Report spam
Hallo VMS-Admins (in der Welt des VMS),

nur mit vollen Privilegien (SYSPRV) kann man sich folgende Ausgaben
anzeigen lassen: die allgemeine System Temperatur, Zustand der Ventilatoren,
der PSU(s) etc.

STELLA::SYSTEM$ @STELLA$DKA0:[BIN]ENV_CHECK.COM
Thermal 1 is Good
FAN 1 is Good
FAN 2 is Good
Temp 1 is 43 Celsius
Power Supply 1 is Good
STELLA::SYSTEM$ _

Mir erscheinen 43 Grad Celsius etwas hoch. Wie ich erfahren habe, kommen
ab 55 Grad Celsius diverse Warnings, und ab 60 Grad Celsius wird dann
sofort abgeschaltet:

So, lange Rede, kurzer Sinn: Hier der dazugehoerige DCL Code:

$! Program: ENV_CHECK.COM
$!
$! Purpose: Gathers and displays the state of the internal
$! Fans/Temperature/Thermal/Power Supplies of the system.
$! Not all systems are capable of reporting this information
$! so the output will be different for each type. Some systems
$! can't report any.
$!
$! History:
$! Scott Belviso 02/07/03 - Original Creation
$!
$! Paramaters:
$! none
$!
$! Run instructions:
$! @env_check
$!
$ thermal_ctr = 0
$ thermal_size = 2
$ thermal_length = 32
$ fan_ctr = 0
$ fan_size = 2
$ fan_length = 32
$ temp_ctr = 0
$ temp_size = 2
$ temp_length = 32
$ power_ctr = 0
$ power_size = 2
$ power_length = 32
$ tv = f$getsyi("thermal_vector")
$ fv = f$getsyi("fan_vector")
$ temp_v = f$getsyi("temperature_vector")
$ pv = f$getsyi("power_vector")
$!
$! Main
$!
$main:
$ gosub thermal_loop
$ gosub fan_loop
$ gosub temp_loop
$ gosub power_loop
$ goto done
$!
$! Begin subroutines
$!
$thermal_loop:
$ thermal_ctr = thermal_ctr + 1
$ if thermal_ctr * thermal_size .gt. thermal_length then return
$ thermal'thermal_ctr = -
f$extract(thermal_length - (thermal_size * thermal_ctr),thermal_size,tv)
$ if thermal'thermal_ctr .eqs. "01" -
then write sys$output "Thermal ''thermal_ctr' is Good"
$ if thermal'thermal_ctr .eqs. "00" -
then write sys$output "Thermal ''thermal_ctr' is BAD"
$! if thermal'thermal_ctr .eqs. "FF" -
$! then write sys$output "Thermal ''thermal_ctr' is Not Present"
$ goto thermal_loop
$!
$fan_loop:
$ fan_ctr = fan_ctr + 1
$ if fan_ctr * fan_size .gt. fan_length then return
$ fan'fan_ctr = f$extract(fan_length - (fan_size * fan_ctr),fan_size,fv)
$ if fan'fan_ctr .eqs. "01" -
then write sys$output "FAN ''fan_ctr' is Good"
$ if fan'fan_ctr .eqs. "00" -
then write sys$output "FAN ''fan_ctr' is BAD"
$! if fan'fan_ctr .eqs. "FF" -
$! then write sys$output "FAN ''fan_ctr' is Not Present"
$ goto fan_loop
$!
$temp_loop:
$ temp_ctr = temp_ctr + 1
$ if temp_ctr * temp_size .gt. temp_length then return
$ temp'temp_ctr = -
f$extract(temp_length - (temp_size * temp_ctr),temp_size,temp_v)
$ if temp'temp_ctr .nes. "FF"
$ then
$ actual_temp = temp'temp_ctr
$ actual_temp = %x'actual_temp
$ write sys$output "Temp ''temp_ctr' is ''actual_temp' Celsius"
$ endif
$ goto temp_loop
$!
$power_loop:
$ power_ctr = power_ctr + 1
$ if power_ctr * power_size .gt. power_length then return
$ power'power_ctr = -
f$extract(power_length - (power_size * power_ctr),power_size,pv)
$ if power'power_ctr .eqs. "01" -
then write sys$output "Power Supply ''power_ctr' is Good"
$ if power'power_ctr .eqs. "00" -
then write sys$output "Power Supply ''power_ctr' is BAD"
$! if power'power_ctr .eqs. "FF" -
$! then write sys$output "Power Supply ''power_ctr' is Not Present"
$ goto power_loop
$!
$done:
$ exit

Enjoy,
Euer Vaxima

Silverstone Networking Horn & Horn GbR | Alexander Horn, Linux&OpenVMS Admin
Brucknerstrasse 10 | phone: +4970314925738 (vodafone)
71065 Sindelfingen (Germany) | handy: +491724972944 (vodafone)
http://www.marway.org/ (website) | fax: +4932212333736 (vodafone)
 

Lesen sie die antworten

#1 Dennis Grevenstein
26/07/2011 - 12:53 | Warnen spam
Alexander Horn wrote:

Mir erscheinen 43 Grad Celsius etwas hoch. Wie ich erfahren habe, kommen
ab 55 Grad Celsius diverse Warnings, und ab 60 Grad Celsius wird dann
sofort abgeschaltet:



Meine DS10 liegt auch so in dem Bereich. Scheint also normal zu sein.
Alphas waren nie Stromsparer. Ich hatte mal eine DS10 von einem Freund.
Der hatte die Maschine aus Resten mit fremden Lueftern und fremdem
Netzteil zusammengestrickt. Selbst das hats irgendwie doch getan.
Ich denke mal die Maschinen halten schon was aus.

gruss,
Dennis

Don't suffer from insanity...
Enjoy every minute of it.

Ähnliche fragen