stopjvm

Function KillProc(strProcName)
 on error resume next
 Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!//./root/cimv2")
 Set arrProcesses = objWMIService.ExecQuery( "select * from win32_process where Name ='"&strProcName&"'" )
 For Each proccess In arrProcesses
  proccess.Terminate 0
 Next
End Function
KillProc "javaw.exe"

--------------------------------------------------

import org.apache.tools.ant.BuildException;
import org.apache.tools.ant.Task;

public class StopJVMTask  extends Task{
 public static void main(String[] args) {

  openExe();

 }
  public void execute() throws BuildException  {   
   openExe();
  
  }
 public static void openExe() {

  Runtime rn = Runtime.getRuntime();

  Process p = null;

  try {

   p = rn.exec("wscript C://workspace//jywj//stopjavaw.vbs");

  } catch (Exception e) {

   System.out.println("Error exec!");
   System.out.println(e);
  }

 }

}