wshom.ocx: Implement IWshCollection::Item() for common programs folders.

dlls/wshom.ocx/shell.c

@@ -171,6 +171,7 @@ static HRESULT WINAPI WshCollection_Item(IWshCollection *iface, VARIANT *index,
 {
     WshCollection *This = impl_from_IWshCollection(iface);
     static const WCHAR allusersdesktopW[] = {'A','l','l','U','s','e','r','s','D','e','s','k','t','o','p',0};
+    static const WCHAR allusersprogramsW[] = {'A','l','l','U','s','e','r','s','P','r','o','g','r','a','m','s',0};
     static const WCHAR desktopW[] = {'D','e','s','k','t','o','p',0};
     PIDLIST_ABSOLUTE pidl;
     WCHAR pathW[MAX_PATH];
@@ -191,6 +192,8 @@ static HRESULT WINAPI WshCollection_Item(IWshCollection *iface, VARIANT *index,
         kind = CSIDL_DESKTOP;
     else if (!strcmpiW(folder, allusersdesktopW))
         kind = CSIDL_COMMON_DESKTOPDIRECTORY;
+    else if (!strcmpiW(folder, allusersprogramsW))
+        kind = CSIDL_COMMON_PROGRAMS;
     else
     {
         FIXME("folder kind %s not supported\n", debugstr_w(folder));