VC++ 調作VBS腳本

在全使用之前需要調用::CoInitialize(NULL);

#import "C:\WINDOWS\System32\msscript.ocx" raw_interfaces_only, raw_native_types, no_namespace, named_guids 
//scriptType 腳本名稱
//scriptCode 腳本代碼
//scriptEntry 腳本入口函數名
_variant_t RunScript(const char* scriptType, const char* scriptCode, const char* scriptEntry)
{
	_variant_t result;
	::IScriptControlPtr p(__uuidof(ScriptControl));

	p.AddRef();
	p->put_Language(_bstr_t(scriptType));
	p->put_AllowUI(TRUE); 
	p->AddCode(_bstr_t(scriptCode));
	p->Eval(_bstr_t(scriptEntry), &result);
	p->put_SitehWnd((long)::AfxGetMainWnd()->GetSafeHwnd());
	p->Release();

	return result;
}