The Windows Access Control Model Part 4

/**
*	This code is by OShah. all code will have the following licence.
*	Copyright Shexec32. All code bears the following licence:
**/

/**
*	Copyright Shexec32 2004-2005. All rights reserved.
*
*	THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
*	ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED
*	TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
*	PARTICULAR PURPOSE.
**/


#include "../FilePermsBoxDLL/SecurityCore.h"

#import "mscorlib.tlb" \
	raw_interfaces_only auto_rename rename_namespace("FilePermsBox")
#import "System.Windows.Forms.tlb" \
	raw_interfaces_only exclude("IDataObject") auto_rename rename_namespace("System_Windows_Forms")
#import "../NetWrapper/FilePermsBox.interop.dll" \
	auto_rename rename_namespace("FilePermsBox")

intptr_t UseManagedCOMWrapperLib(const std::basic_string<TCHAR> &FileName)
{
	/** Test function for the COM wrapper interface. We can test if the interface is working
	*	using this function. The function calls the .NET PIA to get its COM interface, then.
	**/

	intptr_t Result = 0;

	SAFEARRAY *sa = NULL;
	try
	{

		sa = ::SafeArrayCreateVector(VT_BSTR, 0, 1);

		long rgIndices = 0;
		::_bstr_t ppvData = FileName.c_str();
		::SafeArrayPutElement(sa, &rgIndices, ppvData.GetBSTR());

		FilePermsBox::IManagedSecurityBoxWrapperPtr iInterface;
		iInterface.CreateInstance(L"FilePermsBox.SecurityBox");
		if(static_cast<FilePermsBox::IManagedSecurityBoxWrapper *>(iInterface) != NULL)
		{
			iInterface->FileNames = sa;
			iInterface->COSecurityBox1(FALSE);
			Result = 0;
		}
		else Result = 2;
	} catch (::_com_error &) {
		Result = 2;
	}

	::SafeArrayDestroy(sa);

	return Result;
}