1 files changed, 46 insertions, 1 deletions

diff --git a/src/ext/Util/ca/scasched.cpp b/src/ext/Util/ca/scasched.cpp
index d81b1f14..1351fbfd 100644
--- a/src/ext/Util/ca/scasched.cpp
+++ b/src/ext/Util/ca/scasched.cpp
@@ -124,4 +124,49 @@ LExit:
 
     er = SUCCEEDED(hr) ? ERROR_SUCCESS : ERROR_INSTALL_FAILURE;
     return WcaFinalize(er);
-}
\ No newline at end of file
+}
+
+/********************************************************************
+ConfigureGroups - CUSTOM ACTION ENTRY POINT for installing groups
+
+********************************************************************/
+extern "C" UINT __stdcall ConfigureGroups(
+    __in MSIHANDLE hInstall
+)
+{
+    //AssertSz(0, "Debug ConfigureGroups");
+
+    HRESULT hr = S_OK;
+    UINT er = ERROR_SUCCESS;
+
+    BOOL fInitializedCom = FALSE;
+    SCA_GROUP* psgList = NULL;
+
+    // initialize
+    hr = WcaInitialize(hInstall, "ConfigureGroups");
+    ExitOnFailure(hr, "Failed to initialize");
+
+    hr = ::CoInitialize(NULL);
+    ExitOnFailure(hr, "failed to initialize COM");
+    fInitializedCom = TRUE;
+
+    hr = ScaGroupRead(&psgList);
+    ExitOnFailure(hr, "failed to read Wix4Group,Wix6Group table(s)");
+
+    hr = ScaGroupExecute(psgList);
+    ExitOnFailure(hr, "failed to add/remove Group actions");
+
+LExit:
+    if (psgList)
+    {
+        ScaGroupFreeList(psgList);
+    }
+
+    if (fInitializedCom)
+    {
+        ::CoUninitialize();
+    }
+
+    er = SUCCEEDED(hr) ? ERROR_SUCCESS : ERROR_INSTALL_FAILURE;
+    return WcaFinalize(er);
+}