Dim te, foo

Set te = CreateObject("throw_exception.throw_exception")

Set foo = te.Foo.new_Foo()

On Error Resume Next

foo.test_int()

If Err.Number = 0 Then
  WScript.Echo "Exception should have been thrown"
  WScript.Quit 1
End If

If Err.Description <> "C++ int exception thrown" Then
  WScript.Echo "Incorrect exception message"
  WScript.Quit 1
End If