HRESULT Result;

if(FAILED(Result = CoInitializeEx(NULL, COINIT_MULTITHREADED)))
{
	Error.SetMessage("Unable to initialize COM!", Result);
	return FALSE;
}

COMInitialized = TRUE;

if(FAILED(Result = CoInitializeSecurity(NULL, -1, NULL, NULL, RPC_C_AUTHN_LEVEL_DEFAULT, RPC_C_IMP_LEVEL_IMPERSONATE, NULL, EOAC_NONE, NULL)))
{
	Error.SetMessage("Unable to initialize COM security!", Result);
	return FALSE;
}

if(FAILED(Result = CoCreateInstance(CLSID_WbemLocator, NULL, CLSCTX_INPROC_SERVER, IID_IWbemLocator, reinterpret_cast<LPVOID*>(&Locator))))
{
	Error.SetMessage("Unable to create a COM instance!", Result);
	return FALSE;
}

if(FAILED(Result = Locator->ConnectServer(bstr_t("ROOT\\CIMV2"), NULL, NULL, NULL, 0, NULL, NULL, &Services)))
{
	Error.SetMessage("Unable to connect to COM server!", Result);
	return FALSE;
}

if(FAILED(Result = CoSetProxyBlanket(Services, RPC_C_AUTHN_WINNT, RPC_C_AUTHZ_NONE, NULL, RPC_C_AUTHN_LEVEL_CALL, RPC_C_IMP_LEVEL_IMPERSONATE, NULL, EOAC_NONE)))
{
	Error.SetMessage("Unable to set the COM proxy blanket!", Result);
	return FALSE;
}

SAFE_RELEASE(Services);
SAFE_RELEASE(Locator);

if(COMInitialized)
{
	CoUninitialize();
	COMInitialized = FALSE;
}

ULONG Result;
VARIANT Variant;
IWbemClassObject* Object;
IEnumWbemClassObject* Enumerator;

FreeMemory = 0;
UsedMemory = 0;
CpuUsage = 0;

if(FAILED(Services->ExecQuery(bstr_t("WQL"), bstr_t("SELECT * FROM Win32_PerfFormattedData_PerfProc_Process"),
  WBEM_FLAG_FORWARD_ONLY | WBEM_FLAG_RETURN_IMMEDIATELY, NULL, &Enumerator))) return;

VariantInit(&Variant);

while(Enumerator)
{
	if(FAILED(Enumerator->Next(WBEM_INFINITE, 1, &Object, &Result))) break;
	if(Result == 0) break;

	if(SUCCEEDED(Object->Get(L"VirtualBytes", 0, &Variant, NULL, NULL)))
	{
		UsedMemory = static_cast<INT>(Variant.ullVal);
	}

	if(SUCCEEDED(Object->Get(L"PercentProcessorTime", 0, &Variant, NULL, NULL)))
	{
		CpuUsage = static_cast<INT>(Variant.ullVal);
	}

	SAFE_RELEASE(Object);
}

VariantClear(&Variant);

SAFE_RELEASE(Object);
SAFE_RELEASE(Enumerator);

	MEMORY_BASIC_INFORMATION mbi;
	UINT  i       = 0;
	TCHAR szFile[MAX_PATH];
	CHAR  szNumber[20];

	while (i < 0x80000000)
	{
		VirtualQuery((LPCVOID) i, &mbi, sizeof(mbi));

		printf("RegionStart: %p\n", (void*) i);
		printf("RegionSize: %u\n", mbi.RegionSize);

		printf("State: %s\n", 
		       (mbi.State == MEM_FREE    ? "MEM_FREE"    :
		        mbi.State == MEM_COMMIT  ? "MEM_COMMIT"  :
		        mbi.State == MEM_RESERVE ? "MEM_RESERVE" :
		        itoa(mbi.State, szNumber, 16)));

		printf("Type: %s\n",
	               (mbi.Type == MEM_MAPPED  ? "MEM_MAPPED"  :
		        mbi.Type == MEM_PRIVATE ? "MEM_PRIVATE" :
		        mbi.Type == MEM_IMAGE   ? "MEM_IMAGE"   :
			mbi.Type == 0           ? "N/A (0)"     :
		        itoa(mbi.Type, szNumber, 16)));

		if (mbi.Type == MEM_MAPPED && 
	            GetMappedFileName(GetCurrentProcess(), (LPVOID) i, szFile, MAX_PATH))
		{
			printf("File Name: %s\n", szFile);
		}

		printf("\n");

		i += mbi.RegionSize;
	}

#include "disphelper.h"
#include <stdio.h>

int main(void)
{
	DISPATCH_OBJ(wmiSvc);
	DISPATCH_OBJ(colPerf);
	WCHAR szQuery[500];

	dhInitialize(TRUE);
	dhToggleExceptions(TRUE);

	dhGetObject(L"winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2", NULL, &wmiSvc);

	wsprintfW(szQuery, L"SELECT * FROM Win32_PerfFormattedData_PerfProc_Process "
	                   L"WHERE IDProcess='%u'", GetCurrentProcessId());

	dhGetValue(L"%o", &colPerf, wmiSvc, L".ExecQuery(%S)", szQuery);

	FOR_EACH(wmiPerfItem, colPerf, NULL)
	{
		char *pszObject = NULL;
		char *pszBytes  = NULL;

		/* GetObjectText_ is useful to get the value of all properties. */
		dhGetValue(L"%s", &pszObject, wmiPerfItem, L".GetObjectText_()");
		dhGetValue(L"%s", &pszBytes,  wmiPerfItem, L".PrivateBytes");

		printf("This process is using %s bytes of VM.\nObject Text:%s",
		       pszBytes, pszObject);

		dhFreeString(pszObject);
		dhFreeString(pszBytes);

	} NEXT(wmiPerfItem);

	SAFE_RELEASE(colPerf);
	SAFE_RELEASE(wmiSvc);

	dhUninitialize(TRUE);
	getchar();
	return 0;
}