作者:keyboardsun 转载请标明出处，请尊重作者原创权利
Site:http://www.chinacsharp.net http://blog.csdn.net/keyboardsun
我们知道WAS,WPS的控制台功能很强大，也同样的很复杂，其实呢，这些控制太的操作我们都可以通过编写jacl脚本实现，为什么要用脚本呢？呵呵，简单的说方便管理吧，我举个例子，大家就知道为什么要使用jacl脚本了。
我
们在做一个电信的投诉项目，里面涉及的流程，包括子流程一共有400多个，按照IBM的建议，一个EAR流程应用最多打20个流程，如果多的话，会影响性
能的，当然我们再按照我们的业务还要分类打包，那结果如何，我们打了40多个ear，这么多ear啊，呵呵，我们光是登陆某一台机器的web控制台，我们
一个一个发布，这要多久？呵呵，这需要半天，整整半天，当然我们的后台的服务器是集群的，有7台机器需要安装呢。撇开这个不说，当我们某个应用需要更新的
时候，我们怎么办？一个一个的控制台登陆，然后一个一个的更新。这多麻烦啊，对于维护人员，压力太大。
如果我们用jacl来解决这问题，那就简单
多了，因为wsadmin支持远程命令，可以通过SOAP登陆执行，也就是说，我们的ear在自己的windows里面，我们就可以通过远程命令把程序安
装我各个AIX系统的WPS,WAS里面，节省时间，而且容易控制，避免出错。
本文我不打算详细介绍jacl，本文侧重于应用，根据一个需求，给出解决的办法。
简单的说，我们在WAS上安装一个应用，jacl代码如下：
puts "-------------------------------------------------------------------"
puts "—开始执行jacl代码啦 --"
puts "-------------------------------------------------------------------"
#这是我们要发布的应用的存放路径
set EARDIR /home/XXX.ear
#这是我们要发布的应用的名称
set APPNAME APPNAME
set NODE [$AdminControl getNode]
#简单的理解，取得当前的上下文
set APPMANAGER [$AdminControl queryNames type=ApplicationManager,node=$NODE,process=server1,*]
puts ""
puts "Stop Application $APPNAME"
puts ""
#停止应用
$AdminControl invoke $APPMANAGER stopApplication $APPNAME
puts ""
puts "Uninstall Application $APPNAME"
puts ""
#卸载应用
$AdminApp uninstall $APPNAME
puts ""
puts "Saving configuration"
puts ""
#保存修改
$AdminConfig save
puts "-----------------------------------------------------------------"
puts "-- Install EAR --"
puts "-----------------------------------------------------------------"
puts ""
puts "Install Application $APPNAME"
puts ""
#安装应用
$AdminApp install $EARDIR {-appname $APPNAME}
puts ""
puts "Saving configuration"
puts ""
#保存修改
$AdminConfig save
puts ""
puts "Start Application $APPNAME"
puts ""
#启动应用
$AdminControl invoke $APPMANAGER startApplication $APPNAME
以上的例子我们做的是更新一个应用，麻雀不大，东西不少。包括了停止，卸载，安装，启动应用。
有人会问，这个简单，下面我来说不简单的。在集群环境下该如何办呢？需求如下。
现在我有一个cluster，名称叫CLUSTER包括两个节点NODE1,NODE2,每个节点对应两个SERVER，分别为server1，server2我要把应用安装在这样的cluster上面改怎么办呢？
呵呵，其实很简单，安装的口令是这样的
$AdminApp install $EARDIR {-cluster CLUSTER}
这样就可以了，安装过后保存下就可以了，这里我们在后面加上一个参数 {-cluster CLUSTER} 这样就会把这个安装的应用更新到整个cluster了
$AdminConfig save
但是这里有个问题，什么问题呢，我安装的时候可以一下子安装到cluster，那么我停止呢？卸载呢？启动呢？这里很遗憾，这里没有这个功能。那我们该怎么办呢？我们只能到每个server下面来停止了。比如我要停止一个叫TESTAPP的应用，代码如下。
set APPMANAGER [$AdminControl queryNames type=ApplicationManager,node=NODE1,process=server1,*]
$AdminControl invoke $APPMANAGER stopApplication TESTAPP
set APPMANAGER [$AdminControl queryNames type=ApplicationManager,node=NODE1,process=server2,*]
$AdminControl invoke $APPMANAGER stopApplication TESTAPP
set APPMANAGER [$AdminControl queryNames type=ApplicationManager,node=NODE2,process=server1,*]
$AdminControl invoke $APPMANAGER stopApplication TESTAPP
set APPMANAGER [$AdminControl queryNames type=ApplicationManager,node=NODE2,process=server2,*]
$AdminControl invoke $APPMANAGER stopApplication TESTAPP
这样要到各自的server下面停止就可以了，这样这个应用就被停止了，卸载，启动同样。
下面还有一种情况，比如有好多台服务器，不是集群，但是应用都一样，我们如何在自己的电脑上面来解决这个问题呢？
比如有下面3台机器
IP HOSTNAME
10.10.10.1 TEST1
10.10.10.2 TEST2
10.10.10.3 TEST3
应用在e:/test.ear
我要把应用安装到这三台机器上。呵呵，其实很简单。
我们做一个bat文件，内容如下
F:
Cd F:"IBM"WebSphere"ID"602"runtimes"bi_v6"bin
wsadmin -conntype SOAP -host TEST1 -port 8879 -f test.jacl
wsadmin -conntype SOAP -host TEST2 -port 8879 -f test.jacl
wsadmin -conntype SOAP -host TEST2 -port 8879 -f test.jacl
test.jacl的代码为：
$AdminApp install e:/test.ear
$AdminConfig save
这样这个bat文件跑一下，三台机器的应用就全部都安装上了，当然启动，停止如上。同样的简单。呵呵，如果每个服务器是集群的，那么加上{-cluster clustername}参数就可以了。