1. Improved handling of managed objects (detect by presence of IReflect interface)

2. valueOf for variants of IUnknown returns [Unknown]
3. Improved error handling. It checks scode, message and description. Also it now contains list of known error messages (i.e. STG_E_FILENOTFOUND) to show. So current output is a way more informative.
4. Message loop handling improved. So once you do WScript.Sleep etc it actually pumps messages from the loop.

Author: alexeygrinevich

README.md

@@ -271,7 +271,7 @@ This is a key drawback of v8 engine compared to MS. Consider an example:
     if( a.Prop )
     {
         // If 'Prop' is a dynamic property (i.e. it is not defined in TypeInfo and
-        // not marked explicitly as a property, then never got here. Even if a.Prop is null or false.
+        // not marked explicitly as a property, then execution never gets here. Even if a.Prop is null or false.
     }
 ```
 

src/disp.cpp

@@ -112,23 +112,27 @@ bool DispObject::get(LPOLESTR tag, LONG index, const PropertyCallbackInfo<Value>
 			else {
 				if (disp_info->is_property()) opt |= option_property;
 				is_property_simple = disp_info->is_property_simple();
+				
+				if (disp->bManaged && tag && *tag && wcscmp(tag, L"ToString")==0)
+				{
+					// .NET ToString is reported as a property while we normally use it via .ToString() - i.e. as a method. 
+					is_property_simple = false;
+				}
+
 			}
 		}
-		else {
-			// We were unable to figure out if it is a property or method.
-			// This is typical for .NET objects. So we may check if it is actually
-			// a .NET object by checking presense of IReflect interface and then asking
-			CComPtr<IDispatch> preflect;
-			HRESULT hr = disp->ptr->QueryInterface(IID_IReflect, (void**)&preflect);
+		else if ( disp->bManaged && tag && *tag && wcscmp(tag, L"length") == 0) {
 			DISPID lenprop;
-
-			if (SUCCEEDED(hr) && this_prop && SUCCEEDED(disp->FindProperty(L"length", &lenprop)) )
+			if ( SUCCEEDED(disp->FindProperty(L"length", &lenprop)) )
 			{
 
 				// If we have 'IReflect' and '.length' - assume it is .NET JS Array or JS Object
 				is_property_simple = true;
 			}
-
+		}
+		else if (disp->bManaged && tag && *tag && index>=0 ) {
+			// jsarray[x]
+			is_property_simple = true;
 		}
 	}
 
@@ -1042,7 +1046,8 @@ void VariantObject::NodeValueOf(const FunctionCallbackInfo<Value>& args) {
 		isolate->ThrowException(DispErrorInvalid(isolate));
 		return;
 	}
-	Local<Value> result = Variant2Value(isolate, self->value, true);
+	// Last parameter false because valueOf should return primitive value
+	Local<Value> result = Variant2Value(isolate, self->value, false);
 	args.GetReturnValue().Set(result);
 }
 
@@ -1066,7 +1071,7 @@ void VariantObject::NodeGet(Local<Name> name, const PropertyCallbackInfo<Value>&
 	}
 
 	String::Value vname(isolate, name);
-    LPOLESTR id = (vname.length() > 0) ? (LPOLESTR)*vname : L"valueOf";
+	LPOLESTR id = (vname.length() > 0) ? (LPOLESTR)*vname : L"valueOf";
 	if (_wcsicmp(id, L"__value") == 0) {
 		Local<Value> result = Variant2Value(isolate, self->value);
 		args.GetReturnValue().Set(result);

src/disp.h

@@ -78,8 +78,11 @@ bool TypeLibEnumerate(ITypeLib *typelib, int mode, T process) {
 	return cnt > 0;
 }
 
+class DispInfo;
+
 template<typename T>
-bool TypeInfoEnumerate(IDispatch *disp, int mode, T process) {
+bool TypeInfoEnumerate(DispInfo* dispInfo, int mode, T process) {
+	IDispatch* disp = dispInfo->ptr;
 	UINT i, cnt;
 	CComPtr<ITypeLib> prevtypelib;
 	if (!disp || FAILED(disp->GetTypeInfoCount(&cnt))) cnt = 0;
@@ -92,6 +95,21 @@ bool TypeInfoEnumerate(IDispatch *disp, int mode, T process) {
 		CComPtr<ITypeLib> typelib;
 		if (info->GetContainingTypeLib(&typelib, &typeindex) == S_OK) {
 
+			// Check if typelib is managed
+			CComPtr<ITypeLib2> typeLib2;
+
+			if (SUCCEEDED(typelib->QueryInterface(IID_ITypeLib2, (void**)&typeLib2)) )
+			{
+				// {90883F05-3D28-11D2-8F17-00A0C9A6186D}
+				const GUID GUID_ExportedFromComPlus = { 0x90883F05, 0x3D28, 0x11D2, { 0x8F, 0x17, 0x00, 0xA0, 0xC9, 0xA6, 0x18, 0x6D } };
+
+				CComVariant cv;
+				if (SUCCEEDED(typeLib2->GetCustData(GUID_ExportedFromComPlus, &cv)))
+				{
+					dispInfo->bManaged = true;
+				}
+			}
+
 			// Enumerate all types in library types
 			// May be very slow! need a special method
 			/*
@@ -104,7 +122,7 @@ bool TypeInfoEnumerate(IDispatch *disp, int mode, T process) {
 			CComPtr<ITypeInfo> tinfo;
 			if (typelib->GetTypeInfo(typeindex, &tinfo) == S_OK) {
 				TypeInfoPrepare<T>(tinfo, mode, process);
-			}			
+			}
 		}
 
 		// Process types
@@ -121,6 +139,7 @@ class DispInfo {
 	CComPtr<IDispatch> ptr;
     std::wstring name;
 	int options;
+	bool bManaged;
 
 	struct type_t { 
 		DISPID dispid; 
@@ -137,7 +156,7 @@ class DispInfo {
 	types_by_dispid_t types_by_dispid;
 
     inline DispInfo(IDispatch *disp, const std::wstring &nm, int opt, std::shared_ptr<DispInfo> *parnt = nullptr)
-        : ptr(disp), options(opt), name(nm)
+        : ptr(disp), options(opt), name(nm), bManaged(false)
     { 
         if (parnt) parent = *parnt;
         if ((options & option_type) != 0)
@@ -160,7 +179,7 @@ class DispInfo {
 
     template<typename T>
     bool Enumerate(int mode, T process) {
-		return TypeInfoEnumerate((IDispatch*)ptr, mode, process);
+		return TypeInfoEnumerate(this, mode, process);
     }
 
 	inline bool GetTypeInfo(const DISPID dispid, type_ptr &info) {