reorganized the samples, again. Moved the programs that were more test cases to the unit test directory and repackaged the unit test directory.

unittest/com/jacob/test/vbscript/ScriptTest.java

@@ -0,0 +1,50 @@
+package com.jacob.test.vbscript;
+
+import com.jacob.com.*;
+import com.jacob.activeX.*;
+
+/**
+ * In this case the component is created and used in the same thread
+ * and it's an Apartment Threaded component, so we call InitSTA.
+ */
+class ScriptTest
+{
+  public static void main(String args[]) throws Exception
+  {
+		ComThread.InitSTA(true);
+    DispatchEvents de = null;
+    Dispatch sControl = null;
+
+    try {
+      String lang = "VBScript";
+      ActiveXComponent sC = new ActiveXComponent("ScriptControl");
+      sControl = (Dispatch)sC.getObject();
+      Dispatch.put(sControl, "Language", lang);
+      ScriptTestErrEvents te = new ScriptTestErrEvents();
+      de = new DispatchEvents(sControl, te);
+      if (de == null){
+    	  System.out.println("Received null when trying to create new DispatchEvents");
+      }
+      Variant result = Dispatch.call(sControl, "Eval", args[0]);
+      // call it twice to see the objects reused
+      result = Dispatch.call(sControl, "Eval", args[0]);
+      // call it 3 times to see the objects reused
+      result = Dispatch.call(sControl, "Eval", args[0]);
+      System.out.println("eval("+args[0]+") = "+ result);
+    } catch (ComException e) {
+      e.printStackTrace();
+    }
+    finally
+    {
+      Integer I = null;
+      for(int i=1;i<1000000;i++)
+      {
+        I = new Integer(i);
+      }
+      System.out.println(I);
+			ComThread.Release();
+			ComThread.quitMainSTA();
+    }
+  }
+}
+