关于进程和tomcat的相关问题

单位一台服务器,用tomcat发布的BS系统,软件做了负荷分担,也就是同时开了2个tomcat窗口,系统进程可见2个"java.exe",form也是2个"Tomcat",现在问题是由于使用人数还在增加,现在已有1500多终端了,大约7-10天,tomcat会出错,重启form后正常,小弟想做一定时重启托盘小工具,将2个form每隔一定时间自动重启关闭java.exe过程如下:
'杀指定进程
Public Function Kill_Process(ByVal strProcess As String) As Boolean
On Error GoTo err1
    Dim strComputer As String '本机系统
    Dim objWMIService As Object '系统运行进程对象
    Dim colProcessList '进程对象集
    Dim objProcess As Object '循环中单进程对象
    Dim lngProcess As Long '单进程对象的句柄    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" &  strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & strProcess & "'")For Each objProcess In colProcessList
        lngProcess = OpenProcess(PROCESS_TERMINATE, 0&, objProcess.ProcessId) 
        Call TerminateProcess(lngProcess, 1&) 
NextKill_Process = True
    Exit Functionerr1:
  Err.Clear
  Kill_Process = False
End Function
这没有问题,'启动应用程序
Public Function begin_Pro(ByVal PRO_NAME As String) As Boolean
On Error GoTo err1
 Shell PRO_NAME
 begin_Pro = True
  Exit Function
 
err1:
  Err.Clear
  begin_Pro = False
End Function物理地址传参如下:
E:\webserv\bin\tomcat1\startup.bat和E:\webserv\bin\tomcat3\startup.bat这一步总是起不来,不知是什么原因?调其它.exe文件均正常
不知是否是只杀java.exe进程,从而没完全结束tomcat相关进程造成startup.bat进不来,还是
 Shell "E:\webserv\bin\tomcat1\startup.bat"这个本身就有问题,或是kill java.exe运行这个过程时就有问题?后又试调同目录下的shutdown.bat下也没成功,小弟不是专业开发的,对tomcat也不是很明白,大家多多帮忙啊!先谢过