├── .gitignore
├── README.md
├── RunScriptDemo.cpp
├── RunScriptDemo.vcxproj
├── SimpleScriptSite.cpp
├── SimpleScriptSite.h
├── pch.cpp
└── pch.h


/.gitignore:
--------------------------------------------------------------------------------
1 | .vs
2 | Debug
3 | *.user
4 | 


--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
 1 | # RunScriptDemo
 2 | 
 3 | I've put together a "Hello World" IActiveScript C++ ATL console application that:
 4 | 
 5 | - Define CSimpleScriptSite class
 6 |   - Implement IActiveScriptSite interface (mandatory)
 7 |   - Implement IActiveScriptSiteWindow interface (optional)
 8 |   - Minimum implementation with most functions implemented with a dummy stub
 9 |   - Has no error handling. Consult MSDN IActiveScriptError.
10 | - Use CoCreateInstance a new IActiveSite object
11 |   - Create instances of both VBScript and JScript
12 |   - Link the IActiveSite to IActiveScriptSite using IActiveSite::SetScriptSite
13 |   - Call QueryInterface to get an IActiveScriptParse interface
14 |   - Use IActiveScriptParse to execute VBScript or JScript code
15 | - The sample:
16 |   - Evaluates an expression in JScript
17 |   - Evaluates an expression in VBScript
18 |   - Runs a command in VBScript
19 | 
20 | References:
21 |  - https://stackoverflow.com/a/9150038/881441
22 |  - https://stackoverflow.com/questions/7491868/how-to-load-call-a-vbscript-function-from-within-c/9150038#9150038
23 | 


--------------------------------------------------------------------------------
/RunScriptDemo.cpp:
--------------------------------------------------------------------------------
 1 | // RunScriptDemo.cpp : This file contains the 'main' function. Program execution begins and ends there.
 2 | //
 3 | 
 4 | #include "pch.h"
 5 | #include "SimpleScriptSite.h"
 6 | #include <iostream>
 7 | #include <stdio.h>
 8 | 
 9 | void testExpression(const wchar_t* prefix, IActiveScriptParse* pScriptParse, LPCOLESTR script)
10 | {
11 |     wprintf(L"%s: %s: ", prefix, script);
12 |     HRESULT hr = S_OK;
13 |     CComVariant result;
14 |     EXCEPINFO ei = { };
15 |     hr = pScriptParse->ParseScriptText(script, NULL, NULL, NULL, 0, 0, SCRIPTTEXT_ISEXPRESSION, &result, &ei);
16 |     CComVariant resultBSTR;
17 |     VariantChangeType(&resultBSTR, &result, 0, VT_BSTR);
18 |     wprintf(L"%s\n", V_BSTR(&resultBSTR));
19 | }
20 | 
21 | void testScript(const wchar_t* prefix, IActiveScriptParse* pScriptParse, LPCOLESTR script)
22 | {
23 |     wprintf(L"%s: %s\n", prefix, script);
24 |     HRESULT hr = S_OK;
25 |     CComVariant result;
26 |     EXCEPINFO ei = { };
27 |     hr = pScriptParse->ParseScriptText(script, NULL, NULL, NULL, 0, 0, 0, &result, &ei);
28 | }
29 | 
30 | int _tmain(int argc, _TCHAR* argv[])
31 | {
32 |     HRESULT hr = S_OK;
33 |     hr = CoInitializeEx(NULL, COINIT_MULTITHREADED);
34 | 
35 |     // Initialize
36 |     CSimpleScriptSite* pScriptSite = new CSimpleScriptSite();
37 |     CComPtr<IActiveScript> spJScript;
38 |     CComPtr<IActiveScriptParse> spJScriptParse;
39 |     hr = spJScript.CoCreateInstance(OLESTR("JScript"));
40 |     hr = spJScript->SetScriptSite(pScriptSite);
41 |     hr = spJScript->QueryInterface(&spJScriptParse);
42 |     hr = spJScriptParse->InitNew();
43 |     CComPtr<IActiveScript> spVBScript;
44 |     CComPtr<IActiveScriptParse> spVBScriptParse;
45 |     hr = spVBScript.CoCreateInstance(OLESTR("VBScript"));
46 |     hr = spVBScript->SetScriptSite(pScriptSite);
47 |     hr = spVBScript->QueryInterface(&spVBScriptParse);
48 |     hr = spVBScriptParse->InitNew();
49 | 
50 |     // Run some scripts
51 |     testExpression(L"JScript", spJScriptParse, OLESTR("(new Date).getTime()"));
52 |     testExpression(L"VBScript", spVBScriptParse, OLESTR("Now"));
53 |     testScript(L"VBScript", spVBScriptParse, OLESTR("MsgBox \"Hello World! The current time is: \" & Now"));
54 |     // Outputs:
55 |     // JScript: (new Date).getTime() : 1554685325378
56 |     // VScript: Now : 8 / 04 / 2019 11 : 02 : 05 AM
57 |     // VBScript: MsgBox "Hello World! The current time is: " & Now
58 | 
59 |     // Cleanup
60 |     spVBScriptParse = NULL;
61 |     spVBScript = NULL;
62 |     spJScriptParse = NULL;
63 |     spJScript = NULL;
64 |     pScriptSite->Release();
65 |     pScriptSite = NULL;
66 | 
67 |     ::CoUninitialize();
68 |     return 0;
69 | }
70 | 


--------------------------------------------------------------------------------
/RunScriptDemo.vcxproj:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="utf-8"?>
  2 | <Project DefaultTargets="Build" ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  3 |   <ItemGroup Label="ProjectConfigurations">
  4 |     <ProjectConfiguration Include="Debug|Win32">
  5 |       <Configuration>Debug</Configuration>
  6 |       <Platform>Win32</Platform>
  7 |     </ProjectConfiguration>
  8 |     <ProjectConfiguration Include="Release|Win32">
  9 |       <Configuration>Release</Configuration>
 10 |       <Platform>Win32</Platform>
 11 |     </ProjectConfiguration>
 12 |     <ProjectConfiguration Include="Debug|x64">
 13 |       <Configuration>Debug</Configuration>
 14 |       <Platform>x64</Platform>
 15 |     </ProjectConfiguration>
 16 |     <ProjectConfiguration Include="Release|x64">
 17 |       <Configuration>Release</Configuration>
 18 |       <Platform>x64</Platform>
 19 |     </ProjectConfiguration>
 20 |   </ItemGroup>
 21 |   <PropertyGroup Label="Globals">
 22 |     <VCProjectVersion>15.0</VCProjectVersion>
 23 |     <ProjectGuid>{BE627107-FED3-49B4-8FC6-8FB8D25ADF24}</ProjectGuid>
 24 |     <Keyword>Win32Proj</Keyword>
 25 |     <RootNamespace>RunScriptDemo</RootNamespace>
 26 |     <WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
 27 |   </PropertyGroup>
 28 |   <Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
 29 |   <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">
 30 |     <ConfigurationType>Application</ConfigurationType>
 31 |     <UseDebugLibraries>true</UseDebugLibraries>
 32 |     <PlatformToolset>v141</PlatformToolset>
 33 |     <CharacterSet>Unicode</CharacterSet>
 34 |   </PropertyGroup>
 35 |   <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">
 36 |     <ConfigurationType>Application</ConfigurationType>
 37 |     <UseDebugLibraries>false</UseDebugLibraries>
 38 |     <PlatformToolset>v141</PlatformToolset>
 39 |     <WholeProgramOptimization>true</WholeProgramOptimization>
 40 |     <CharacterSet>Unicode</CharacterSet>
 41 |   </PropertyGroup>
 42 |   <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'" Label="Configuration">
 43 |     <ConfigurationType>Application</ConfigurationType>
 44 |     <UseDebugLibraries>true</UseDebugLibraries>
 45 |     <PlatformToolset>v141</PlatformToolset>
 46 |     <CharacterSet>Unicode</CharacterSet>
 47 |   </PropertyGroup>
 48 |   <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'" Label="Configuration">
 49 |     <ConfigurationType>Application</ConfigurationType>
 50 |     <UseDebugLibraries>false</UseDebugLibraries>
 51 |     <PlatformToolset>v141</PlatformToolset>
 52 |     <WholeProgramOptimization>true</WholeProgramOptimization>
 53 |     <CharacterSet>Unicode</CharacterSet>
 54 |   </PropertyGroup>
 55 |   <Import Project="$(VCTargetsPath)\Microsoft.Cpp.props" />
 56 |   <ImportGroup Label="ExtensionSettings">
 57 |   </ImportGroup>
 58 |   <ImportGroup Label="Shared">
 59 |   </ImportGroup>
 60 |   <ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
 61 |     <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
 62 |   </ImportGroup>
 63 |   <ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
 64 |     <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
 65 |   </ImportGroup>
 66 |   <ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">
 67 |     <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
 68 |   </ImportGroup>
 69 |   <ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Release|x64'">
 70 |     <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
 71 |   </ImportGroup>
 72 |   <PropertyGroup Label="UserMacros" />
 73 |   <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
 74 |     <LinkIncremental>true</LinkIncremental>
 75 |   </PropertyGroup>
 76 |   <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">
 77 |     <LinkIncremental>true</LinkIncremental>
 78 |   </PropertyGroup>
 79 |   <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
 80 |     <LinkIncremental>false</LinkIncremental>
 81 |   </PropertyGroup>
 82 |   <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'">
 83 |     <LinkIncremental>false</LinkIncremental>
 84 |   </PropertyGroup>
 85 |   <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
 86 |     <ClCompile>
 87 |       <PrecompiledHeader>Use</PrecompiledHeader>
 88 |       <WarningLevel>Level3</WarningLevel>
 89 |       <Optimization>Disabled</Optimization>
 90 |       <SDLCheck>true</SDLCheck>
 91 |       <PreprocessorDefinitions>WIN32;_DEBUG;_CONSOLE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
 92 |       <ConformanceMode>true</ConformanceMode>
 93 |       <PrecompiledHeaderFile>pch.h</PrecompiledHeaderFile>
 94 |     </ClCompile>
 95 |     <Link>
 96 |       <SubSystem>Console</SubSystem>
 97 |       <GenerateDebugInformation>true</GenerateDebugInformation>
 98 |     </Link>
 99 |   </ItemDefinitionGroup>
100 |   <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">
101 |     <ClCompile>
102 |       <PrecompiledHeader>Use</PrecompiledHeader>
103 |       <WarningLevel>Level3</WarningLevel>
104 |       <Optimization>Disabled</Optimization>
105 |       <SDLCheck>true</SDLCheck>
106 |       <PreprocessorDefinitions>_DEBUG;_CONSOLE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
107 |       <ConformanceMode>true</ConformanceMode>
108 |       <PrecompiledHeaderFile>pch.h</PrecompiledHeaderFile>
109 |     </ClCompile>
110 |     <Link>
111 |       <SubSystem>Console</SubSystem>
112 |       <GenerateDebugInformation>true</GenerateDebugInformation>
113 |     </Link>
114 |   </ItemDefinitionGroup>
115 |   <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
116 |     <ClCompile>
117 |       <PrecompiledHeader>Use</PrecompiledHeader>
118 |       <WarningLevel>Level3</WarningLevel>
119 |       <Optimization>MaxSpeed</Optimization>
120 |       <FunctionLevelLinking>true</FunctionLevelLinking>
121 |       <IntrinsicFunctions>true</IntrinsicFunctions>
122 |       <SDLCheck>true</SDLCheck>
123 |       <PreprocessorDefinitions>WIN32;NDEBUG;_CONSOLE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
124 |       <ConformanceMode>true</ConformanceMode>
125 |       <PrecompiledHeaderFile>pch.h</PrecompiledHeaderFile>
126 |     </ClCompile>
127 |     <Link>
128 |       <SubSystem>Console</SubSystem>
129 |       <EnableCOMDATFolding>true</EnableCOMDATFolding>
130 |       <OptimizeReferences>true</OptimizeReferences>
131 |       <GenerateDebugInformation>true</GenerateDebugInformation>
132 |     </Link>
133 |   </ItemDefinitionGroup>
134 |   <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'">
135 |     <ClCompile>
136 |       <PrecompiledHeader>Use</PrecompiledHeader>
137 |       <WarningLevel>Level3</WarningLevel>
138 |       <Optimization>MaxSpeed</Optimization>
139 |       <FunctionLevelLinking>true</FunctionLevelLinking>
140 |       <IntrinsicFunctions>true</IntrinsicFunctions>
141 |       <SDLCheck>true</SDLCheck>
142 |       <PreprocessorDefinitions>NDEBUG;_CONSOLE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
143 |       <ConformanceMode>true</ConformanceMode>
144 |       <PrecompiledHeaderFile>pch.h</PrecompiledHeaderFile>
145 |     </ClCompile>
146 |     <Link>
147 |       <SubSystem>Console</SubSystem>
148 |       <EnableCOMDATFolding>true</EnableCOMDATFolding>
149 |       <OptimizeReferences>true</OptimizeReferences>
150 |       <GenerateDebugInformation>true</GenerateDebugInformation>
151 |     </Link>
152 |   </ItemDefinitionGroup>
153 |   <ItemGroup>
154 |     <ClInclude Include="pch.h" />
155 |     <ClInclude Include="SimpleScriptSite.h" />
156 |   </ItemGroup>
157 |   <ItemGroup>
158 |     <ClCompile Include="pch.cpp">
159 |       <PrecompiledHeader Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">Create</PrecompiledHeader>
160 |       <PrecompiledHeader Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">Create</PrecompiledHeader>
161 |       <PrecompiledHeader Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">Create</PrecompiledHeader>
162 |       <PrecompiledHeader Condition="'$(Configuration)|$(Platform)'=='Release|x64'">Create</PrecompiledHeader>
163 |     </ClCompile>
164 |     <ClCompile Include="RunScriptDemo.cpp" />
165 |     <ClCompile Include="SimpleScriptSite.cpp" />
166 |   </ItemGroup>
167 |   <Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" />
168 |   <ImportGroup Label="ExtensionTargets">
169 |   </ImportGroup>
170 | </Project>


--------------------------------------------------------------------------------
/SimpleScriptSite.cpp:
--------------------------------------------------------------------------------
 1 | #include "pch.h"
 2 | #include "SimpleScriptSite.h"
 3 | 
 4 | STDMETHODIMP_(ULONG) CSimpleScriptSite::AddRef()
 5 | {
 6 |     return InterlockedIncrement(&m_cRefCount);
 7 | }
 8 | 
 9 | STDMETHODIMP_(ULONG) CSimpleScriptSite::Release()
10 | {
11 |     if (!InterlockedDecrement(&m_cRefCount))
12 |     {
13 |         delete this;
14 |         return 0;
15 |     }
16 |     return m_cRefCount;
17 | }
18 | 
19 | STDMETHODIMP CSimpleScriptSite::QueryInterface(REFIID riid, void **ppvObject)
20 | {
21 |     if (riid == IID_IUnknown || riid == IID_IActiveScriptSiteWindow)
22 |     {
23 |         *ppvObject = (IActiveScriptSiteWindow *)this;
24 |         AddRef();
25 |         return NOERROR;
26 |     }
27 |     if (riid == IID_IActiveScriptSite)
28 |     {
29 |         *ppvObject = (IActiveScriptSite *)this;
30 |         AddRef();
31 |         return NOERROR;
32 |     }
33 |     return E_NOINTERFACE;
34 | }
35 | 


--------------------------------------------------------------------------------
/SimpleScriptSite.h:
--------------------------------------------------------------------------------
 1 | #ifndef CSimpleScriptSite_H
 2 | #define CSimpleScriptSite_H
 3 | 
 4 | class CSimpleScriptSite :
 5 |     public IActiveScriptSite,
 6 |     public IActiveScriptSiteWindow
 7 | {
 8 | public:
 9 |     CSimpleScriptSite() : m_cRefCount(1), m_hWnd(NULL) { }
10 | 
11 |     // IUnknown
12 | 
13 |     STDMETHOD_(ULONG, AddRef)();
14 |     STDMETHOD_(ULONG, Release)();
15 |     STDMETHOD(QueryInterface)(REFIID riid, void **ppvObject);
16 | 
17 |     // IActiveScriptSite
18 | 
19 |     STDMETHOD(GetLCID)(LCID *plcid) { *plcid = 0; return S_OK; }
20 |     STDMETHOD(GetItemInfo)(LPCOLESTR pstrName, DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti) { return TYPE_E_ELEMENTNOTFOUND; }
21 |     STDMETHOD(GetDocVersionString)(BSTR *pbstrVersion) { *pbstrVersion = SysAllocString(L"1.0"); return S_OK; }
22 |     STDMETHOD(OnScriptTerminate)(const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo) { return S_OK; }
23 |     STDMETHOD(OnStateChange)(SCRIPTSTATE ssScriptState) { return S_OK; }
24 |     STDMETHOD(OnScriptError)(IActiveScriptError *pIActiveScriptError) { return S_OK; }
25 |     STDMETHOD(OnEnterScript)(void) { return S_OK; }
26 |     STDMETHOD(OnLeaveScript)(void) { return S_OK; }
27 | 
28 |     // IActiveScriptSiteWindow
29 | 
30 |     STDMETHOD(GetWindow)(HWND *phWnd) { *phWnd = m_hWnd; return S_OK; }
31 |     STDMETHOD(EnableModeless)(BOOL fEnable) { return S_OK; }
32 | 
33 |     // Miscellaneous
34 | 
35 |     HRESULT SetWindow(HWND hWnd) { m_hWnd = hWnd; return S_OK; }
36 | 
37 | public:
38 |     LONG m_cRefCount;
39 |     HWND m_hWnd;
40 | };
41 | 
42 | #endif
43 | 


--------------------------------------------------------------------------------
/pch.cpp:
--------------------------------------------------------------------------------
1 | // pch.cpp: source file corresponding to pre-compiled header; necessary for compilation to succeed
2 | 
3 | #include "pch.h"
4 | 
5 | // In general, ignore this file, but keep it around if you are using pre-compiled headers.
6 | 


--------------------------------------------------------------------------------
/pch.h:
--------------------------------------------------------------------------------
 1 | // Tips for Getting Started: 
 2 | //   1. Use the Solution Explorer window to add/manage files
 3 | //   2. Use the Team Explorer window to connect to source control
 4 | //   3. Use the Output window to see build output and other messages
 5 | //   4. Use the Error List window to view errors
 6 | //   5. Go to Project > Add New Item to create new code files, or Project > Add Existing Item to add existing code files to the project
 7 | //   6. In the future, to open this project again, go to File > Open > Project and select the .sln file
 8 | 
 9 | #ifndef PCH_H
10 | #define PCH_H
11 | 
12 | #include <atlbase.h>
13 | #include <activscp.h>
14 | #include <atlwin.h>
15 | 
16 | #endif //PCH_H
17 | 


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