Listing 1

server = /Server/s
jms = /JMSServer/jms
queue = /JMSQueue/q

for $i in 1 to 3
mkdir $server$i
set $server$i/ListenPort (Integer) 7${i}01
invoke $server$i/start
end

for $i in 1 to 3
mkdir $jms$i
for $j in 1 to 3
q = $queue$i$j
mkdir $q
set $q/JNDIName "jms/"$q
set $q/Parent $jms$i
end
invoke $jms$i/addTarget $server$i
end

invoke $savedom $DOMAIN

Listing 2

connect file:c:/bea/user_projects/domains/mydomain/config.xml
cd /Server/myserver
set StdoutDebugEnabled true
set StdoutSeverityLevel 64

invoke $savedom
disconnect

Listing 3

@ dir /Server
servers = $LAST

while true
date
for $s in $servers
if $s == get /ServerRuntime/$s/Name
state = get /ServerRuntime/$s/State
mem = get /JVMRuntime/$s/HeapFreeCurrent
else
state = "not running"
mem = "n/a"
end
print $s get /Server/$s/ListenPort $state $mem
end
sleep 10000
end