programs/msiexec/msiexec.c - wine - Git at Google

 /*
  * msiexec.exe implementation
  *
  * Copyright 2004 Vincent Béron
  *
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public
  * License as published by the Free Software Foundation; either
  * version 2.1 of the License, or (at your option) any later version.
  *
  * This library is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * Lesser General Public License for more details.
  *
  * You should have received a copy of the GNU Lesser General Public
  * License along with this library; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  */

 #include <windows.h>
 #include <msi.h>
 #include <objbase.h>
 #include <stdio.h>

 #include "msiexec.h"

 #include "wine/debug.h"

 WINE_DEFAULT_DEBUG_CHANNEL(msiexec);

 static const char UsageStr[] =
 "Usage: msiexec ...\n\n"
 "Copyright 2004 Vincent Béron\n";

 static const char ActionAdmin[] = "ACTION=ADMIN ";
 static const char RemoveAll[] = "REMOVE=ALL ";

 static void ShowUsage(int ExitCode)
 {
 	printf(UsageStr);
 	ExitProcess(ExitCode);
 }

 static BOOL GetProductCode(LPCSTR str, LPGUID guid)
 {
 	BOOL ret = FALSE;
 	int len = 0;
 	LPWSTR wstr = NULL;

 	if(strlen(str) == 38)
 	{
 		len = MultiByteToWideChar(CP_ACP, 0, str, -1, wstr, 0);
 		wstr = HeapAlloc(GetProcessHeap(), 0, (len+1)*sizeof(WCHAR));
 		ret = (CLSIDFromString(wstr, guid) == NOERROR);
 		HeapFree(GetProcessHeap(), 0, wstr);
 		wstr = NULL;
 	}

 	return ret;
 }

 static VOID *LoadProc(LPCSTR DllName, LPCSTR ProcName, HMODULE* DllHandle)
 {
 	VOID* (*proc)(void);

 	*DllHandle = LoadLibraryExA(DllName, NULL, LOAD_WITH_ALTERED_SEARCH_PATH);
 	if(!*DllHandle)
 	{
 		fprintf(stderr, "Unable to load dll %s\n", DllName);
 		ExitProcess(1);
 	}
 	proc = (VOID *) GetProcAddress(*DllHandle, ProcName);
 	if(!proc)
 	{
 		fprintf(stderr, "Dll %s does not implement function %s\n", DllName, ProcName);
 		FreeLibrary(*DllHandle);
 		ExitProcess(1);
 	}

 	return proc;
 }

 static void DllRegisterServer(LPCSTR DllName)
 {
 	HRESULT hr;
 	DLLREGISTERSERVER pfDllRegisterServer = NULL;
 	HMODULE DllHandle = NULL;

 	pfDllRegisterServer = LoadProc(DllName, "DllRegisterServer", &DllHandle);

 	hr = pfDllRegisterServer();
 	if(FAILED(hr))
 	{
 		fprintf(stderr, "Failed to register dll %s\n", DllName);
 		ExitProcess(1);
 	}
 	printf("Successfully registered dll %s\n", DllName);
 	if(DllHandle)
 		FreeLibrary(DllHandle);
 }

 static void DllUnregisterServer(LPCSTR DllName)
 {
 	HRESULT hr;
 	DLLUNREGISTERSERVER pfDllUnregisterServer = NULL;
 	HMODULE DllHandle = NULL;

 	pfDllUnregisterServer = LoadProc(DllName, "DllUnregisterServer", &DllHandle);

 	hr = pfDllUnregisterServer();
 	if(FAILED(hr))
 	{
 		fprintf(stderr, "Failed to unregister dll %s\n", DllName);
 		ExitProcess(1);
 	}
 	printf("Successfully unregistered dll %s\n", DllName);
 	if(DllHandle)
 		FreeLibrary(DllHandle);
 }

 int main(int argc, char *argv[])
 {
 	int i;
 	BOOL FunctionInstall = FALSE;
 	BOOL FunctionRepair = FALSE;
 	BOOL FunctionAdvertise = FALSE;
 	BOOL FunctionDllRegisterServer = FALSE;
 	BOOL FunctionDllUnregisterServer = FALSE;

 	BOOL GotProductCode = FALSE;
 	LPSTR PackageName = NULL;
 	LPGUID ProductCode = HeapAlloc(GetProcessHeap(), 0, sizeof(GUID));
 	LPSTR Properties = HeapAlloc(GetProcessHeap(), 0, 1);
 	LPSTR TempStr = NULL;

 	DWORD RepairMode = 0;

 	DWORD AdvertiseMode = 0;
 	LPSTR Transforms = HeapAlloc(GetProcessHeap(), 0, 1);
 	LANGID Language = 0;

 	DWORD LogMode = 0;
 	LPSTR LogFileName = NULL;
 	DWORD LogAttributes = 0;

 	INSTALLUILEVEL InstallUILevel = 0, retInstallUILevel;

 	LPSTR DllName = NULL;

 	Properties[0] = 0;
 	Transforms[0] = 0;

 	for(i = 1; i < argc; i++)
 	{
 		WINE_TRACE("argv[%d] = %s\n", i, argv[i]);

 		if(!strcasecmp(argv[i], "/i"))
 		{
 			FunctionInstall = TRUE;
 			i++;
 			if(i >= argc)
 				ShowUsage(1);
 			WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
 			GotProductCode = GetProductCode(argv[i], ProductCode);
 			if(!GotProductCode)
 			{
 				HeapFree(GetProcessHeap(), 0, ProductCode);
 				ProductCode = NULL;
 				PackageName = argv[i];
 			}
 		}
 		else if(!strcasecmp(argv[i], "/a"))
 		{
 			FunctionInstall = TRUE;
 			i++;
 			if(i >= argc)
 				ShowUsage(1);
 			WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
 			PackageName = argv[i];
 			TempStr = HeapReAlloc(GetProcessHeap(), 0, Properties, HeapSize(GetProcessHeap(), 0, Properties)+strlen(ActionAdmin));
 			if(!TempStr)
 			{
 				WINE_ERR("Out of memory!\n");
 				ExitProcess(1);
 			}
 			Properties = TempStr;
 			strcat(Properties, ActionAdmin);
 		}
 		else if(!strncasecmp(argv[i], "/f", 2))
 		{
 			int j;
 			int len = strlen(argv[i]);
 			FunctionRepair = TRUE;
 			for(j = 2; j < len; j++)
 			{
 				switch(argv[i][j])
 				{
 					case 'P':
 					case 'p':
 						RepairMode |= REINSTALLMODE_FILEMISSING;
 						break;
 					case 'O':
 					case 'o':
 						RepairMode |= REINSTALLMODE_FILEOLDERVERSION;
 						break;
 					case 'E':
 					case 'e':
 						RepairMode |= REINSTALLMODE_FILEEQUALVERSION;
 						break;
 					case 'D':
 					case 'd':
 						RepairMode |= REINSTALLMODE_FILEEXACT;
 						break;
 					case 'C':
 					case 'c':
 						RepairMode |= REINSTALLMODE_FILEVERIFY;
 						break;
 					case 'A':
 					case 'a':
 						RepairMode |= REINSTALLMODE_FILEREPLACE;
 						break;
 					case 'U':
 					case 'u':
 						RepairMode |= REINSTALLMODE_USERDATA;
 						break;
 					case 'M':
 					case 'm':
 						RepairMode |= REINSTALLMODE_MACHINEDATA;
 						break;
 					case 'S':
 					case 's':
 						RepairMode |= REINSTALLMODE_SHORTCUT;
 						break;
 					case 'V':
 					case 'v':
 						RepairMode |= REINSTALLMODE_PACKAGE;
 						break;
 					default:
 						fprintf(stderr, "Unknown option \"%c\" in Repair mode\n", argv[i][j]);
 						break;
 				}
 			}
 			if(len == 2)
 			{
 				RepairMode = REINSTALLMODE_FILEMISSING |
 					REINSTALLMODE_FILEEQUALVERSION |
 					REINSTALLMODE_FILEVERIFY |
 					REINSTALLMODE_MACHINEDATA |
 					REINSTALLMODE_SHORTCUT;
 			}
 			i++;
 			if(i >= argc)
 				ShowUsage(1);
 			WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
 			GotProductCode = GetProductCode(argv[i], ProductCode);
 			if(!GotProductCode)
 			{
 				HeapFree(GetProcessHeap(), 0, ProductCode);
 				ProductCode = NULL;
 				PackageName = argv[i];
 			}
 		}
 		else if(!strcasecmp(argv[i], "/x"))
 		{
 			FunctionInstall = TRUE;
 			i++;
 			if(i >= argc)
 				ShowUsage(1);
 			WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
 			GotProductCode = GetProductCode(argv[i], ProductCode);
 			if(!GotProductCode)
 			{
 				HeapFree(GetProcessHeap(), 0, ProductCode);
 				ProductCode = NULL;
 				PackageName = argv[i];
 			}
 			TempStr = HeapReAlloc(GetProcessHeap(), 0, Properties, HeapSize(GetProcessHeap(), 0, Properties)+strlen(RemoveAll));
 			if(!TempStr)
 			{
 				WINE_ERR("Out of memory!\n");
 				ExitProcess(1);
 			}
 			Properties = TempStr;
 			strcat(Properties, RemoveAll);
 		}
 		else if(!strncasecmp(argv[i], "/j", 2))
 		{
 			int j;
 			int len = strlen(argv[i]);
 			FunctionAdvertise = TRUE;
 			for(j = 2; j < len; j++)
 			{
 				switch(argv[i][j])
 				{
 					case 'U':
 					case 'u':
 						AdvertiseMode = ADVERTISEFLAGS_USERASSIGN;
 						break;
 					case 'M':
 					case 'm':
 						AdvertiseMode = ADVERTISEFLAGS_MACHINEASSIGN;
 						break;
 					default:
 						fprintf(stderr, "Unknown option \"%c\" in Advertise mode\n", argv[i][j]);
 						break;
 				}
 			}
 			i++;
 			if(i >= argc)
 				ShowUsage(1);
 			WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
 			PackageName = argv[i];
 		}
 		else if(!strcasecmp(argv[i], "u"))
 		{
 			FunctionAdvertise = TRUE;
 			AdvertiseMode = ADVERTISEFLAGS_USERASSIGN;
 			i++;
 			if(i >= argc)
 				ShowUsage(1);
 			WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
 			PackageName = argv[i];
 		}
 		else if(!strcasecmp(argv[i], "m"))
 		{
 			FunctionAdvertise = TRUE;
 			AdvertiseMode = ADVERTISEFLAGS_MACHINEASSIGN;
 			i++;
 			if(i >= argc)
 				ShowUsage(1);
 			WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
 			PackageName = argv[i];
 		}
 		else if(!strcasecmp(argv[i], "/t"))
 		{
 			i++;
 			if(i >= argc)
 				ShowUsage(1);
 			WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
 			TempStr = HeapReAlloc(GetProcessHeap(), 0, Transforms, HeapSize(GetProcessHeap(), 0, Transforms)+strlen(argv[i])+1);
 			if(!TempStr)
 			{
 				WINE_ERR("Out of memory!\n");
 				ExitProcess(1);
 			}
 			Transforms = TempStr;
 			strcat(Transforms, argv[i]);
 			strcat(Transforms, ";");
 		}
 		else if(!strncasecmp(argv[i], "TRANSFORMS=", 11))
 		{
 			TempStr = HeapReAlloc(GetProcessHeap(), 0, Transforms, HeapSize(GetProcessHeap(), 0, Transforms)+strlen(argv[i])+1-11);
 			if(!TempStr)
 			{
 				WINE_ERR("Out of memory!\n");
 				ExitProcess(1);
 			}
 			Transforms = TempStr;
 			strcat(Transforms, argv[i]+11);
 			strcat(Transforms, ";");
 		}
 		else if(!strcasecmp(argv[i], "/g"))
 		{
 			i++;
 			if(i >= argc)
 				ShowUsage(1);
 			WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
 			Language = strtol(argv[i], NULL, 0);
 		}
 		else if(!strncasecmp(argv[i], "/l", 2))
 		{
 			int j;
 			int len = strlen(argv[i]);
 			for(j = 2; j < len; j++)
 			{
 				switch(argv[i][j])
 				{
 					case 'I':
 					case 'i':
 						LogMode |= INSTALLLOGMODE_INFO;
 						break;
 					case 'W':
 					case 'w':
 						LogMode |= INSTALLLOGMODE_WARNING;
 						break;
 					case 'E':
 					case 'e':
 						LogMode |= INSTALLLOGMODE_ERROR;
 						break;
 					case 'A':
 					case 'a':
 						LogMode |= INSTALLLOGMODE_ACTIONSTART;
 						break;
 					case 'R':
 					case 'r':
 						LogMode |= INSTALLLOGMODE_ACTIONDATA;
 						break;
 					case 'U':
 					case 'u':
 						LogMode |= INSTALLLOGMODE_USER;
 						break;
 					case 'C':
 					case 'c':
 						LogMode |= INSTALLLOGMODE_COMMONDATA;
 						break;
 					case 'M':
 					case 'm':
 						LogMode |= INSTALLLOGMODE_FATALEXIT;
 						break;
 					case 'O':
 					case 'o':
 						LogMode |= INSTALLLOGMODE_OUTOFDISKSPACE;
 						break;
 					case 'P':
 					case 'p':
 						LogMode |= INSTALLLOGMODE_PROPERTYDUMP;
 						break;
 					case 'V':
 					case 'v':
 						LogMode |= INSTALLLOGMODE_VERBOSE;
 						break;
 					case '*':
 						LogMode = INSTALLLOGMODE_FATALEXIT |
 							INSTALLLOGMODE_ERROR |
 							INSTALLLOGMODE_WARNING |
 							INSTALLLOGMODE_USER |
 							INSTALLLOGMODE_INFO |
 							INSTALLLOGMODE_RESOLVESOURCE |
 							INSTALLLOGMODE_OUTOFDISKSPACE |
 							INSTALLLOGMODE_ACTIONSTART |
 							INSTALLLOGMODE_ACTIONDATA |
 							INSTALLLOGMODE_COMMONDATA |
 							INSTALLLOGMODE_PROPERTYDUMP |
 							INSTALLLOGMODE_PROGRESS |
 							INSTALLLOGMODE_INITIALIZE |
 							INSTALLLOGMODE_TERMINATE |
 							INSTALLLOGMODE_SHOWDIALOG;
 						break;
 					case '+':
 						LogAttributes |= INSTALLLOGATTRIBUTES_APPEND;
 						break;
 					case '!':
 						LogAttributes |= INSTALLLOGATTRIBUTES_FLUSHEACHLINE;
 						break;
 					default:
 						break;
 				}
 			}
 			i++;
 			if(i >= argc)
 				ShowUsage(1);
 			WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
 			LogFileName = argv[i];
 			if(MsiEnableLogA(LogMode, LogFileName, LogAttributes) != ERROR_SUCCESS)
 			{
 				fprintf(stderr, "Logging in %s (0x%08lx, %lu) failed\n", LogFileName, LogMode, LogAttributes);
 				ExitProcess(1);
 			}
 		}
 		else if(!strcasecmp(argv[i], "/p"))
 		{
 			i++;
 			if(i >= argc)
 				ShowUsage(1);
 			WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
 			WINE_FIXME("Patching not yet implemented\n");
 			ExitProcess(1);
 		}
 		else if(!strncasecmp(argv[i], "/q", 2))
 		{
 			if(strlen(argv[i]) == 2 || !strcasecmp(argv[i]+2, "n"))
 			{
 				InstallUILevel = INSTALLUILEVEL_NONE;
 			}
 			else if(!strcasecmp(argv[i]+2, "b"))
 			{
 				InstallUILevel = INSTALLUILEVEL_BASIC;
 			}
 			else if(!strcasecmp(argv[i]+2, "r"))
 			{
 				InstallUILevel = INSTALLUILEVEL_REDUCED;
 			}
 			else if(!strcasecmp(argv[i]+2, "f"))
 			{
 				InstallUILevel = INSTALLUILEVEL_FULL|INSTALLUILEVEL_ENDDIALOG;
 			}
 			else if(!strcasecmp(argv[i]+2, "n+"))
 			{
 				InstallUILevel = INSTALLUILEVEL_NONE|INSTALLUILEVEL_ENDDIALOG;
 			}
 			else if(!strcasecmp(argv[i]+2, "b+"))
 			{
 				InstallUILevel = INSTALLUILEVEL_BASIC|INSTALLUILEVEL_ENDDIALOG;
 			}
 			else if(!strcasecmp(argv[i]+2, "b-"))
 			{
 				InstallUILevel = INSTALLUILEVEL_BASIC|INSTALLUILEVEL_PROGRESSONLY;
 			}
 			else
 			{
 				fprintf(stderr, "Unknown option \"%s\" for UI level\n", argv[i]+2);
 			}
 			retInstallUILevel = MsiSetInternalUI(InstallUILevel, NULL);
 			if(retInstallUILevel == INSTALLUILEVEL_NOCHANGE)
 			{
 				fprintf(stderr, "Setting the UI level to 0x%x failed.\n", InstallUILevel);
 				ExitProcess(1);
 			}
 		}
 		else if(!strcasecmp(argv[i], "/y"))
 		{
 			FunctionDllRegisterServer = TRUE;
 			i++;
 			if(i >= argc)
 				ShowUsage(1);
 			WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
 			DllName = argv[i];
 		}
 		else if(!strcasecmp(argv[i], "/z"))
 		{
 			FunctionDllUnregisterServer = TRUE;
 			i++;
 			if(i >= argc)
 				ShowUsage(1);
 			WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
 			DllName = argv[i];
 		}
 		else if(!strcasecmp(argv[i], "/h") || !strcasecmp(argv[i], "/?"))
 		{
 			ShowUsage(0);
 		}
 	}

 	if(Properties[strlen(Properties)-1] == ' ')
 	{
 		Properties[strlen(Properties)-1] = 0;
 		TempStr = HeapReAlloc(GetProcessHeap(), 0, Properties, HeapSize(GetProcessHeap(), 0, Properties)-1);
 		if(!TempStr)
 		{
 			fprintf(stderr, "Out of memory!\n");
 			ExitProcess(1);
 		}
 		Properties = TempStr;
 	}
 	if(Transforms[strlen(Transforms)-1] == ';')
 	{
 		Transforms[strlen(Transforms)-1] = 0;
 		TempStr = HeapReAlloc(GetProcessHeap(), 0, Transforms, HeapSize(GetProcessHeap(), 0, Transforms)-1);
 		if(!TempStr)
 		{
 			fprintf(stderr, "Out of memory!\n");
 			ExitProcess(1);
 		}
 		Transforms = TempStr;
 	}

 	if(FunctionInstall)
 	{
 		if(GotProductCode)
 		{
 			WINE_FIXME("Product code treatment not implemented yet\n");
 			ExitProcess(1);
 		}
 		else
 		{
 			if(MsiInstallProductA(PackageName, Properties) != ERROR_SUCCESS)
 			{
 				fprintf(stderr, "Installation of %s (%s) failed.\n", PackageName, Properties);
 				ExitProcess(1);
 			}
 		}
 	}
 	else if(FunctionRepair)
 	{
 		if(GotProductCode)
 		{
 			WINE_FIXME("Product code treatment not implemented yet\n");
 			ExitProcess(1);
 		}
 		else
 		{
 			if(MsiReinstallProductA(PackageName, RepairMode) != ERROR_SUCCESS)
 			{
 				fprintf(stderr, "Repair of %s (0x%08lx) failed.\n", PackageName, RepairMode);
 				ExitProcess(1);
 			}
 		}
 	}
 	else if(FunctionAdvertise)
 	{
 		if(MsiAdvertiseProductA(PackageName, (LPSTR) AdvertiseMode, Transforms, Language) != ERROR_SUCCESS)
 		{
 			fprintf(stderr, "Advertising of %s (%lu, %s, 0x%04x) failed.\n", PackageName, AdvertiseMode, Transforms, Language);
 			ExitProcess(1);
 		}
 	}
 	else if(FunctionDllRegisterServer)
 	{
 		DllRegisterServer(DllName);
 	}
 	else if(FunctionDllUnregisterServer)
 	{
 		DllUnregisterServer(DllName);
 	}
 	else
 		ShowUsage(1);

 	return 0;
 }
	/*
	* msiexec.exe implementation
	*
	* Copyright 2004 Vincent Béron
	*
	* This library is free software; you can redistribute it and/or
	* modify it under the terms of the GNU Lesser General Public
	* License as published by the Free Software Foundation; either
	* version 2.1 of the License, or (at your option) any later version.
	*
	* This library is distributed in the hope that it will be useful,
	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	* Lesser General Public License for more details.
	*
	* You should have received a copy of the GNU Lesser General Public
	* License along with this library; if not, write to the Free Software
	* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
	*/

	#include <windows.h>
	#include <msi.h>
	#include <objbase.h>
	#include <stdio.h>

	#include "msiexec.h"

	#include "wine/debug.h"

	WINE_DEFAULT_DEBUG_CHANNEL(msiexec);

	static const char UsageStr[] =
	"Usage: msiexec ...\n\n"
	"Copyright 2004 Vincent Béron\n";

	static const char ActionAdmin[] = "ACTION=ADMIN ";
	static const char RemoveAll[] = "REMOVE=ALL ";

	static void ShowUsage(int ExitCode)
	{
	printf(UsageStr);
	ExitProcess(ExitCode);
	}

	static BOOL GetProductCode(LPCSTR str, LPGUID guid)
	{
	BOOL ret = FALSE;
	int len = 0;
	LPWSTR wstr = NULL;

	if(strlen(str) == 38)
	{
	len = MultiByteToWideChar(CP_ACP, 0, str, -1, wstr, 0);
	wstr = HeapAlloc(GetProcessHeap(), 0, (len+1)*sizeof(WCHAR));
	ret = (CLSIDFromString(wstr, guid) == NOERROR);
	HeapFree(GetProcessHeap(), 0, wstr);
	wstr = NULL;
	}

	return ret;
	}

	static VOID LoadProc(LPCSTR DllName, LPCSTR ProcName, HMODULE DllHandle)
	{
	VOID* (*proc)(void);

	*DllHandle = LoadLibraryExA(DllName, NULL, LOAD_WITH_ALTERED_SEARCH_PATH);
	if(!*DllHandle)
	{
	fprintf(stderr, "Unable to load dll %s\n", DllName);
	ExitProcess(1);
	}
	proc = (VOID ) GetProcAddress(DllHandle, ProcName);
	if(!proc)
	{
	fprintf(stderr, "Dll %s does not implement function %s\n", DllName, ProcName);
	FreeLibrary(*DllHandle);
	ExitProcess(1);
	}

	return proc;
	}

	static void DllRegisterServer(LPCSTR DllName)
	{
	HRESULT hr;
	DLLREGISTERSERVER pfDllRegisterServer = NULL;
	HMODULE DllHandle = NULL;

	pfDllRegisterServer = LoadProc(DllName, "DllRegisterServer", &DllHandle);

	hr = pfDllRegisterServer();
	if(FAILED(hr))
	{
	fprintf(stderr, "Failed to register dll %s\n", DllName);
	ExitProcess(1);
	}
	printf("Successfully registered dll %s\n", DllName);
	if(DllHandle)
	FreeLibrary(DllHandle);
	}

	static void DllUnregisterServer(LPCSTR DllName)
	{
	HRESULT hr;
	DLLUNREGISTERSERVER pfDllUnregisterServer = NULL;
	HMODULE DllHandle = NULL;

	pfDllUnregisterServer = LoadProc(DllName, "DllUnregisterServer", &DllHandle);

	hr = pfDllUnregisterServer();
	if(FAILED(hr))
	{
	fprintf(stderr, "Failed to unregister dll %s\n", DllName);
	ExitProcess(1);
	}
	printf("Successfully unregistered dll %s\n", DllName);
	if(DllHandle)
	FreeLibrary(DllHandle);
	}

	int main(int argc, char *argv[])
	{
	int i;
	BOOL FunctionInstall = FALSE;
	BOOL FunctionRepair = FALSE;
	BOOL FunctionAdvertise = FALSE;
	BOOL FunctionDllRegisterServer = FALSE;
	BOOL FunctionDllUnregisterServer = FALSE;

	BOOL GotProductCode = FALSE;
	LPSTR PackageName = NULL;
	LPGUID ProductCode = HeapAlloc(GetProcessHeap(), 0, sizeof(GUID));
	LPSTR Properties = HeapAlloc(GetProcessHeap(), 0, 1);
	LPSTR TempStr = NULL;

	DWORD RepairMode = 0;

	DWORD AdvertiseMode = 0;
	LPSTR Transforms = HeapAlloc(GetProcessHeap(), 0, 1);
	LANGID Language = 0;

	DWORD LogMode = 0;
	LPSTR LogFileName = NULL;
	DWORD LogAttributes = 0;

	INSTALLUILEVEL InstallUILevel = 0, retInstallUILevel;

	LPSTR DllName = NULL;

	Properties[0] = 0;
	Transforms[0] = 0;

	for(i = 1; i < argc; i++)
	{
	WINE_TRACE("argv[%d] = %s\n", i, argv[i]);

	if(!strcasecmp(argv[i], "/i"))
	{
	FunctionInstall = TRUE;
	i++;
	if(i >= argc)
	ShowUsage(1);
	WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
	GotProductCode = GetProductCode(argv[i], ProductCode);
	if(!GotProductCode)
	{
	HeapFree(GetProcessHeap(), 0, ProductCode);
	ProductCode = NULL;
	PackageName = argv[i];
	}
	}
	else if(!strcasecmp(argv[i], "/a"))
	{
	FunctionInstall = TRUE;
	i++;
	if(i >= argc)
	ShowUsage(1);
	WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
	PackageName = argv[i];
	TempStr = HeapReAlloc(GetProcessHeap(), 0, Properties, HeapSize(GetProcessHeap(), 0, Properties)+strlen(ActionAdmin));
	if(!TempStr)
	{
	WINE_ERR("Out of memory!\n");
	ExitProcess(1);
	}
	Properties = TempStr;
	strcat(Properties, ActionAdmin);
	}
	else if(!strncasecmp(argv[i], "/f", 2))
	{
	int j;
	int len = strlen(argv[i]);
	FunctionRepair = TRUE;
	for(j = 2; j < len; j++)
	{
	switch(argv[i][j])
	{
	case 'P':
	case 'p':
	RepairMode \|= REINSTALLMODE_FILEMISSING;
	break;
	case 'O':
	case 'o':
	RepairMode \|= REINSTALLMODE_FILEOLDERVERSION;
	break;
	case 'E':
	case 'e':
	RepairMode \|= REINSTALLMODE_FILEEQUALVERSION;
	break;
	case 'D':
	case 'd':
	RepairMode \|= REINSTALLMODE_FILEEXACT;
	break;
	case 'C':
	case 'c':
	RepairMode \|= REINSTALLMODE_FILEVERIFY;
	break;
	case 'A':
	case 'a':
	RepairMode \|= REINSTALLMODE_FILEREPLACE;
	break;
	case 'U':
	case 'u':
	RepairMode \|= REINSTALLMODE_USERDATA;
	break;
	case 'M':
	case 'm':
	RepairMode \|= REINSTALLMODE_MACHINEDATA;
	break;
	case 'S':
	case 's':
	RepairMode \|= REINSTALLMODE_SHORTCUT;
	break;
	case 'V':
	case 'v':
	RepairMode \|= REINSTALLMODE_PACKAGE;
	break;
	default:
	fprintf(stderr, "Unknown option \"%c\" in Repair mode\n", argv[i][j]);
	break;
	}
	}
	if(len == 2)
	{
	RepairMode = REINSTALLMODE_FILEMISSING \|
	REINSTALLMODE_FILEEQUALVERSION \|
	REINSTALLMODE_FILEVERIFY \|
	REINSTALLMODE_MACHINEDATA \|
	REINSTALLMODE_SHORTCUT;
	}
	i++;
	if(i >= argc)
	ShowUsage(1);
	WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
	GotProductCode = GetProductCode(argv[i], ProductCode);
	if(!GotProductCode)
	{
	HeapFree(GetProcessHeap(), 0, ProductCode);
	ProductCode = NULL;
	PackageName = argv[i];
	}
	}
	else if(!strcasecmp(argv[i], "/x"))
	{
	FunctionInstall = TRUE;
	i++;
	if(i >= argc)
	ShowUsage(1);
	WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
	GotProductCode = GetProductCode(argv[i], ProductCode);
	if(!GotProductCode)
	{
	HeapFree(GetProcessHeap(), 0, ProductCode);
	ProductCode = NULL;
	PackageName = argv[i];
	}
	TempStr = HeapReAlloc(GetProcessHeap(), 0, Properties, HeapSize(GetProcessHeap(), 0, Properties)+strlen(RemoveAll));
	if(!TempStr)
	{
	WINE_ERR("Out of memory!\n");
	ExitProcess(1);
	}
	Properties = TempStr;
	strcat(Properties, RemoveAll);
	}
	else if(!strncasecmp(argv[i], "/j", 2))
	{
	int j;
	int len = strlen(argv[i]);
	FunctionAdvertise = TRUE;
	for(j = 2; j < len; j++)
	{
	switch(argv[i][j])
	{
	case 'U':
	case 'u':
	AdvertiseMode = ADVERTISEFLAGS_USERASSIGN;
	break;
	case 'M':
	case 'm':
	AdvertiseMode = ADVERTISEFLAGS_MACHINEASSIGN;
	break;
	default:
	fprintf(stderr, "Unknown option \"%c\" in Advertise mode\n", argv[i][j]);
	break;
	}
	}
	i++;
	if(i >= argc)
	ShowUsage(1);
	WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
	PackageName = argv[i];
	}
	else if(!strcasecmp(argv[i], "u"))
	{
	FunctionAdvertise = TRUE;
	AdvertiseMode = ADVERTISEFLAGS_USERASSIGN;
	i++;
	if(i >= argc)
	ShowUsage(1);
	WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
	PackageName = argv[i];
	}
	else if(!strcasecmp(argv[i], "m"))
	{
	FunctionAdvertise = TRUE;
	AdvertiseMode = ADVERTISEFLAGS_MACHINEASSIGN;
	i++;
	if(i >= argc)
	ShowUsage(1);
	WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
	PackageName = argv[i];
	}
	else if(!strcasecmp(argv[i], "/t"))
	{
	i++;
	if(i >= argc)
	ShowUsage(1);
	WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
	TempStr = HeapReAlloc(GetProcessHeap(), 0, Transforms, HeapSize(GetProcessHeap(), 0, Transforms)+strlen(argv[i])+1);
	if(!TempStr)
	{
	WINE_ERR("Out of memory!\n");
	ExitProcess(1);
	}
	Transforms = TempStr;
	strcat(Transforms, argv[i]);
	strcat(Transforms, ";");
	}
	else if(!strncasecmp(argv[i], "TRANSFORMS=", 11))
	{
	TempStr = HeapReAlloc(GetProcessHeap(), 0, Transforms, HeapSize(GetProcessHeap(), 0, Transforms)+strlen(argv[i])+1-11);
	if(!TempStr)
	{
	WINE_ERR("Out of memory!\n");
	ExitProcess(1);
	}
	Transforms = TempStr;
	strcat(Transforms, argv[i]+11);
	strcat(Transforms, ";");
	}
	else if(!strcasecmp(argv[i], "/g"))
	{
	i++;
	if(i >= argc)
	ShowUsage(1);
	WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
	Language = strtol(argv[i], NULL, 0);
	}
	else if(!strncasecmp(argv[i], "/l", 2))
	{
	int j;
	int len = strlen(argv[i]);
	for(j = 2; j < len; j++)
	{
	switch(argv[i][j])
	{
	case 'I':
	case 'i':
	LogMode \|= INSTALLLOGMODE_INFO;
	break;
	case 'W':
	case 'w':
	LogMode \|= INSTALLLOGMODE_WARNING;
	break;
	case 'E':
	case 'e':
	LogMode \|= INSTALLLOGMODE_ERROR;
	break;
	case 'A':
	case 'a':
	LogMode \|= INSTALLLOGMODE_ACTIONSTART;
	break;
	case 'R':
	case 'r':
	LogMode \|= INSTALLLOGMODE_ACTIONDATA;
	break;
	case 'U':
	case 'u':
	LogMode \|= INSTALLLOGMODE_USER;
	break;
	case 'C':
	case 'c':
	LogMode \|= INSTALLLOGMODE_COMMONDATA;
	break;
	case 'M':
	case 'm':
	LogMode \|= INSTALLLOGMODE_FATALEXIT;
	break;
	case 'O':
	case 'o':
	LogMode \|= INSTALLLOGMODE_OUTOFDISKSPACE;
	break;
	case 'P':
	case 'p':
	LogMode \|= INSTALLLOGMODE_PROPERTYDUMP;
	break;
	case 'V':
	case 'v':
	LogMode \|= INSTALLLOGMODE_VERBOSE;
	break;
	case '*':
	LogMode = INSTALLLOGMODE_FATALEXIT \|
	INSTALLLOGMODE_ERROR \|
	INSTALLLOGMODE_WARNING \|
	INSTALLLOGMODE_USER \|
	INSTALLLOGMODE_INFO \|
	INSTALLLOGMODE_RESOLVESOURCE \|
	INSTALLLOGMODE_OUTOFDISKSPACE \|
	INSTALLLOGMODE_ACTIONSTART \|
	INSTALLLOGMODE_ACTIONDATA \|
	INSTALLLOGMODE_COMMONDATA \|
	INSTALLLOGMODE_PROPERTYDUMP \|
	INSTALLLOGMODE_PROGRESS \|
	INSTALLLOGMODE_INITIALIZE \|
	INSTALLLOGMODE_TERMINATE \|
	INSTALLLOGMODE_SHOWDIALOG;
	break;
	case '+':
	LogAttributes \|= INSTALLLOGATTRIBUTES_APPEND;
	break;
	case '!':
	LogAttributes \|= INSTALLLOGATTRIBUTES_FLUSHEACHLINE;
	break;
	default:
	break;
	}
	}
	i++;
	if(i >= argc)
	ShowUsage(1);
	WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
	LogFileName = argv[i];
	if(MsiEnableLogA(LogMode, LogFileName, LogAttributes) != ERROR_SUCCESS)
	{
	fprintf(stderr, "Logging in %s (0x%08lx, %lu) failed\n", LogFileName, LogMode, LogAttributes);
	ExitProcess(1);
	}
	}
	else if(!strcasecmp(argv[i], "/p"))
	{
	i++;
	if(i >= argc)
	ShowUsage(1);
	WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
	WINE_FIXME("Patching not yet implemented\n");
	ExitProcess(1);
	}
	else if(!strncasecmp(argv[i], "/q", 2))
	{
	if(strlen(argv[i]) == 2 \|\| !strcasecmp(argv[i]+2, "n"))
	{
	InstallUILevel = INSTALLUILEVEL_NONE;
	}
	else if(!strcasecmp(argv[i]+2, "b"))
	{
	InstallUILevel = INSTALLUILEVEL_BASIC;
	}
	else if(!strcasecmp(argv[i]+2, "r"))
	{
	InstallUILevel = INSTALLUILEVEL_REDUCED;
	}
	else if(!strcasecmp(argv[i]+2, "f"))
	{
	InstallUILevel = INSTALLUILEVEL_FULL\|INSTALLUILEVEL_ENDDIALOG;
	}
	else if(!strcasecmp(argv[i]+2, "n+"))
	{
	InstallUILevel = INSTALLUILEVEL_NONE\|INSTALLUILEVEL_ENDDIALOG;
	}
	else if(!strcasecmp(argv[i]+2, "b+"))
	{
	InstallUILevel = INSTALLUILEVEL_BASIC\|INSTALLUILEVEL_ENDDIALOG;
	}
	else if(!strcasecmp(argv[i]+2, "b-"))
	{
	InstallUILevel = INSTALLUILEVEL_BASIC\|INSTALLUILEVEL_PROGRESSONLY;
	}
	else
	{
	fprintf(stderr, "Unknown option \"%s\" for UI level\n", argv[i]+2);
	}
	retInstallUILevel = MsiSetInternalUI(InstallUILevel, NULL);
	if(retInstallUILevel == INSTALLUILEVEL_NOCHANGE)
	{
	fprintf(stderr, "Setting the UI level to 0x%x failed.\n", InstallUILevel);
	ExitProcess(1);
	}
	}
	else if(!strcasecmp(argv[i], "/y"))
	{
	FunctionDllRegisterServer = TRUE;
	i++;
	if(i >= argc)
	ShowUsage(1);
	WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
	DllName = argv[i];
	}
	else if(!strcasecmp(argv[i], "/z"))
	{
	FunctionDllUnregisterServer = TRUE;
	i++;
	if(i >= argc)
	ShowUsage(1);
	WINE_TRACE("argv[%d] = %s\n", i, argv[i]);
	DllName = argv[i];
	}
	else if(!strcasecmp(argv[i], "/h") \|\| !strcasecmp(argv[i], "/?"))
	{
	ShowUsage(0);
	}
	}

	if(Properties[strlen(Properties)-1] == ' ')
	{
	Properties[strlen(Properties)-1] = 0;
	TempStr = HeapReAlloc(GetProcessHeap(), 0, Properties, HeapSize(GetProcessHeap(), 0, Properties)-1);
	if(!TempStr)
	{
	fprintf(stderr, "Out of memory!\n");
	ExitProcess(1);
	}
	Properties = TempStr;
	}
	if(Transforms[strlen(Transforms)-1] == ';')
	{
	Transforms[strlen(Transforms)-1] = 0;
	TempStr = HeapReAlloc(GetProcessHeap(), 0, Transforms, HeapSize(GetProcessHeap(), 0, Transforms)-1);
	if(!TempStr)
	{
	fprintf(stderr, "Out of memory!\n");
	ExitProcess(1);
	}
	Transforms = TempStr;
	}

	if(FunctionInstall)
	{
	if(GotProductCode)
	{
	WINE_FIXME("Product code treatment not implemented yet\n");
	ExitProcess(1);
	}
	else
	{
	if(MsiInstallProductA(PackageName, Properties) != ERROR_SUCCESS)
	{
	fprintf(stderr, "Installation of %s (%s) failed.\n", PackageName, Properties);
	ExitProcess(1);
	}
	}
	}
	else if(FunctionRepair)
	{
	if(GotProductCode)
	{
	WINE_FIXME("Product code treatment not implemented yet\n");
	ExitProcess(1);
	}
	else
	{
	if(MsiReinstallProductA(PackageName, RepairMode) != ERROR_SUCCESS)
	{
	fprintf(stderr, "Repair of %s (0x%08lx) failed.\n", PackageName, RepairMode);
	ExitProcess(1);
	}
	}
	}
	else if(FunctionAdvertise)
	{
	if(MsiAdvertiseProductA(PackageName, (LPSTR) AdvertiseMode, Transforms, Language) != ERROR_SUCCESS)
	{
	fprintf(stderr, "Advertising of %s (%lu, %s, 0x%04x) failed.\n", PackageName, AdvertiseMode, Transforms, Language);
	ExitProcess(1);
	}
	}
	else if(FunctionDllRegisterServer)
	{
	DllRegisterServer(DllName);
	}
	else if(FunctionDllUnregisterServer)
	{
	DllUnregisterServer(DllName);
	}
	else
	ShowUsage(1);

	return 0;
	}