vbscript: Ignore fdexNameCaseSensitive flag.

dlls/vbscript/tests/run.c

@@ -355,6 +355,20 @@ static void test_disp(IDispatch *disp)
     SysFreeString(str);
     ok(hres == S_OK, "GetDispID(publicProp) failed: %08x\n", hres);
 
+    id = 0xdeadbeef;
+    str = a2bstr("publicProp");
+    hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseSensitive, &id);
+    SysFreeString(str);
+    ok(hres == S_OK, "GetDispID(publicProp) failed: %08x\n", hres);
+    ok(id == public_prop_id, "id = %d, expected %d\n", id, public_prop_id);
+
+    id = 0xdeadbeef;
+    str = a2bstr("publicprop");
+    hres = IDispatchEx_GetDispID(dispex, str, fdexNameCaseSensitive, &id);
+    SysFreeString(str);
+    ok(hres == S_OK, "GetDispID(publicProp) failed: %08x\n", hres);
+    ok(id == public_prop_id, "id = %d, expected %d\n", id, public_prop_id);
+
     IDispatchEx_Release(dispex);
 }
 

dlls/vbscript/vbdisp.c

@@ -333,7 +333,9 @@ static HRESULT WINAPI DispatchEx_GetDispID(IDispatchEx *iface, BSTR bstrName, DW
     if(!This->desc)
         return E_UNEXPECTED;
 
-    if(grfdex & ~(fdexNameEnsure|fdexNameCaseInsensitive)) {
+    /* Tests show that fdexNameCaseSensitive is ignored */
+
+    if(grfdex & ~(fdexNameEnsure|fdexNameCaseInsensitive|fdexNameCaseSensitive)) {
         FIXME("unsupported flags %x\n", grfdex);
         return E_NOTIMPL;
     }