Function BIF_DECL

source/script_com.cpp:18–60

BIF_DECL(ComObject_Call) // Formerly BIF_ComObjCreate.
{
	++aParam; // Exclude `this`
	--aParamCount;

	HRESULT hr;
	CLSID clsid, iid;
	for (;;)
	{
#ifdef UNICODE
		LPTSTR cls = TokenToString(*aParam[0]);
#else
		CStringWCharFromTChar cls = TokenToString(*aParam[0]);
#endif
		// It has been confirmed on Windows 10 that both CLSIDFromString and CLSIDFromProgID
		// were unable to resolve a ProgID starting with '{', like "{Foo", though "Foo}" works.
		// There are probably also guidelines and such that prohibit it.
		if (cls[0] == '{')
			hr = CLSIDFromString(cls, &clsid);
		else
			// CLSIDFromString is known to be able to resolve ProgIDs via the registry,
			// but fails on registration-free classes such as "Microsoft.Windows.ActCtx".
			// CLSIDFromProgID works for that, but fails when given a CLSID string
			// (consistent with VBScript and JScript in both cases).
			hr = CLSIDFromProgID(cls, &clsid);
		if (FAILED(hr)) break;

		__int64 punk = 0;
		if (aParamCount > 1)
		{
			hr = CLSIDFromString(CStringWCharFromTCharIfNeeded(TokenToString(*aParam[1])), &iid);
			if (FAILED(hr)) break;
		}
		else
			iid = IID_IDispatch;

		hr = CoCreateInstance(clsid, NULL, CLSCTX_SERVER, iid, (void **)&punk);
		if (FAILED(hr)) break;

		_f_return(new ComObject(punk, iid == IID_IDispatch ? VT_DISPATCH : VT_UNKNOWN));
	}
	ComError(hr, aResultToken);
}


BIF_DECL(BIF_ComObjGet)