WSCP - showServerStatus (Tcl recipe) by Patrick Finnegan

ActiveState Code (http://code.activestate.com/recipes/154433/)

#  (C) Copyright IBM Corporation, 2000
#  All rights reserved. Licensed Materials Property of IBM 
#  Note to US Government users: Documentation related to restricted rights
#  Use, duplication or disclosure is subject to restrictions set forth 
#  in GSA ADP Schedule with IBM Corp. 
#  This page may contain other proprietary notices and copyright information, 
#  the terms of which must be observed and followed. 

proc showServerStatus {} {
	puts "\nStatus of servers in the domain:\n"
          foreach ejbserver [ApplicationServer list] {
          set serverInfo($ejbserver) [ApplicationServer show $ejbserver -attribute {Name CurrentState}]
          puts $serverInfo($ejbserver)
	
	}
}