comsvcs: Add Enum() for "new" moniker.

dlls/comsvcs/main.c

@@ -543,9 +543,14 @@ static HRESULT WINAPI new_moniker_ComposeWith(IMoniker *iface, IMoniker *mkRight
 
 static HRESULT WINAPI new_moniker_Enum(IMoniker *iface, BOOL forward, IEnumMoniker **enum_moniker)
 {
-    FIXME("%p, %d, %p.\n", iface, forward, enum_moniker);
+    TRACE("%p, %d, %p.\n", iface, forward, enum_moniker);
 
-    return E_NOTIMPL;
+    if (!enum_moniker)
+        return E_POINTER;
+
+    *enum_moniker = NULL;
+
+    return S_OK;
 }
 
 static HRESULT WINAPI new_moniker_IsEqual(IMoniker *iface, IMoniker *other_moniker)

dlls/comsvcs/tests/comsvcs.c

@@ -364,6 +364,14 @@ todo_wine
     ok(moniker_type == MKSYS_ANTIMONIKER, "Unexpected moniker type %d.\n", moniker_type);
     IMoniker_Release(inverse);
 
+    hr = IMoniker_Enum(moniker, FALSE, NULL);
+    ok(hr == E_POINTER, "Unexpected hr %#x.\n", hr);
+
+    obj = (IUnknown *)moniker;
+    hr = IMoniker_Enum(moniker, FALSE, (IEnumMoniker **)&obj);
+    ok(hr == S_OK, "Unexpected hr %#x.\n", hr);
+    ok(obj == NULL, "Unexpected return value.\n");
+
     IMoniker_Release(moniker);
     IBindCtx_Release(bindctx);
 }