GlobalMemoryStatusExで取得した「仮想メモリのサイズ」とWMIから取得した「仮想メモリのサイズ」が違う

Question

実行環境

Windows 10

プログラムの概要

仮想メモリの情報をVBSから取得して、あらかじめどのような結果になるか確認しておきます。

Dim WMILocator, WMIService, QfeSet, QfeSet2

Set WMILocator = WScript.CreateObject("WbemScripting.SWbemLocator")
Set WMIService = WMILocator.ConnectServer
Set QfeSet = WMIService.ExecQuery("SELECT TotalVirtualMemorySize FROM Win32_OperatingSystem")
Set QfeSet2 = WMIService.ExecQuery("SELECT FreeVirtualMemory FROM Win32_OperatingSystem") 

Dim Qfe, Qfe2

for each Qfe in QfeSet
        ' MB換算で表示
	WScript.Echo Qfe.Properties_.Item("TotalVirtualMemorySize").Value / 1024
Next

for each Qfe2 in QfeSet2
        ' MB換算で表示
	WScript.Echo Qfe2.Properties_.Item("FreeVirtualMemory").Value / 1024
Next

結果を控え、今度はC++のプログラムから仮想メモリの情報を取得するため下記を実装しました。
開発環境はVisualStudio 2013です。

void GetMemoryInf()
{
    // 初期化処理
    MEMORYSTATUSEX msex = { sizeof(MEMORYSTATUSEX) };

    // メモリ情報を取得
    GlobalMemoryStatusEx(&msex);
}

このコードの後で「msex.ullTotalVirtual」と「msex.ullAvailVirtual」の値をMBに換算(byte ⇒ MB)して確認しました。
すると単位がずれているとかそういうことではなく、結果的に全く異なる結果になってしまいました。
おそらくある意味ではどちらも正しい値ではあると思うのですが、こちらが期待していたのは「VBSで取得していた方の値」です。
なるべく内部のコードで完結できるような形で仮想メモリ情報を取得する実装をしたいのですが、どういうことなのかわからず実現方法がわかっていない状況です。

ご教示頂けませんでしょうか。

【補足】
最悪上記で使ったVBSを呼び出すこともできるのですが、最終手段としたいです。

Answer 1

比較する対象を間違えていませんか？
ullTotalVirtual は多くの 64bit 環境では、搭載メモリにかかわらず 約128TiByte になると思われます。
ullTotalVirtual は仮想アドレス空間のサイズですから、仮想メモリのサイズは ullTotalPageFile を参照すべきではないでしょうか？

当方の環境 (Windows10 Home 64bit) では、vbs の結果とほぼ一致しました。

Comments

[dodox86]

Bullさんの回答が適切かもしれませんね。
「ullTotalPageFile が使えそう」と言うのはStackoverflowのこちらでも言及されていたのですが、私自身、見誤っていました。
https://stackoverflow.com/questions/63166/how-to-determine-cpu-and-memory-consumption-from-inside-a-process

私の環境(Windows 10 Pro. 64ビット)で追試しました。
VBScriptの結果
-- TotalVirtualMemorySize:
19140808
-- FreeVirtualMemory
11302220

GlobalMemoryStatusExで取得したMEMORYSTATUSEX構造体のメンバーを見ると
ullTotalPageFile=19600187392
ullAvailPageFile=11555643392
となりました。VBScriptの方はKB単位なので、1024で単位を合わせると、一致します。

[Yamato.dd]

Bullさん、dodox86さん、回答して頂きありがとうございました。
こちら私の認識が間違っておりました。Bullさんの提示して頂いた通り実装したところ、期待通りの結果を得ることができました。

こちらの回答をベストアンサーにさせていただきます。

dodox86さんも試して頂き有難うございました。

Answer 2

ネイティブのWin32 APIであるGlobalMemoryStatusExは、以下のリファレンスの説明を真に受けて解釈すると、
GlobalMemoryStatusEx function - Microsoft Docs

You can use the GlobalMemoryStatusEx function to determine how much memory your application can allocate without severely impacting other applications.

「このAPIを使っているアプリケーション（実行ファイル）自体が使えるメモリ量を取得できる」です。実際、このAPI自体を実行するアプリケーションが32ビット版である場合は実メモリがどんなに大きくてもullTotalVirtualメンバーの値は最大でおよそ2GBになります。質問者さんが対象としたい構造体メンバーはそれとは違うullTotalVirtualとullAvailVirtualですが、もともとkernel32が有するネイティブAPIであるGlobalMemoryStatusExとWindows管理用インターフェースのWMIとでは用途が違うと言えるため、取得できる値が違ったとしてもそれは仕方が無い（Windows自体の仕様）と少なくとも個人的には考えます。

VBScriptで実行した値をご所望なのであれば、C++とWindowsのCOMインターフェースを使用して同等の操作を行うことができます。
以下は Example: Getting WMI Data from the Local Computer でのサンプルコードをほとんどそのままに、質問者さんが提示したVBScriptと同じような操作をC++で行い、WMIでのTotalVirtualMemorySize``FreeVirtualMemoryを取得する例です。（※尚、実際にこのコードを使われる場合はエラー処理やエラー時に抜ける場合の後処理などを適切に行ってください）

#define _WIN32_DCOM
#include <iostream>
using namespace std;
#include <comdef.h>
#include <Wbemidl.h>

#pragma comment(lib, "wbemuuid.lib")

/*
https://docs.microsoft.com/ja-jp/windows/win32/wmisdk/example--getting-wmi-data-from-the-local-computer
*/
int main()
{
	HRESULT hres;

	// Step 1: --------------------------------------------------
	// Initialize COM. ------------------------------------------

	hres = CoInitializeEx(0, COINIT_MULTITHREADED);
	if (FAILED(hres))
	{
		wcout << L"Failed to initialize COM library. Error code = 0x"
			<< hex << hres << endl;
		return 1;                  // Program has failed.
	}

	// Step 2: --------------------------------------------------
	// Set general COM security levels --------------------------

	hres = CoInitializeSecurity(
		NULL,
		-1,                          // COM authentication
		NULL,                        // Authentication services
		NULL,                        // Reserved
		RPC_C_AUTHN_LEVEL_DEFAULT,   // Default authentication 
		RPC_C_IMP_LEVEL_IMPERSONATE, // Default Impersonation  
		NULL,                        // Authentication info
		EOAC_NONE,                   // Additional capabilities 
		NULL                         // Reserved
	);

	if (FAILED(hres))
	{
		wcout << L"Failed to initialize security. Error code = 0x"
			<< hex << hres << endl;
		CoUninitialize();
		return 1;                    // Program has failed.
	}

	// Step 3: ---------------------------------------------------
	// Obtain the initial locator to WMI -------------------------

	IWbemLocator *pLoc = NULL;

	hres = CoCreateInstance(
		CLSID_WbemLocator,
		0,
		CLSCTX_INPROC_SERVER,
		IID_IWbemLocator, (LPVOID *)&pLoc);

	if (FAILED(hres))
	{
		wcout << L"Failed to create IWbemLocator object."
			<< L" Err code = 0x"
			<< hex << hres << endl;
		CoUninitialize();
		return 1;                 // Program has failed.
	}

	// Step 4: -----------------------------------------------------
	// Connect to WMI through the IWbemLocator::ConnectServer method

	IWbemServices *pSvc = NULL;

	// Connect to the root\cimv2 namespace with
	// the current user and obtain pointer pSvc
	// to make IWbemServices calls.
	hres = pLoc->ConnectServer(
		_bstr_t(L"ROOT\CIMV2"), // Object path of WMI namespace
		NULL,                    // User name. NULL = current user
		NULL,                    // User password. NULL = current
		0,                       // Locale. NULL indicates current
		NULL,                    // Security flags.
		0,                       // Authority (for example, Kerberos)
		0,                       // Context object 
		&pSvc                    // pointer to IWbemServices proxy
	);

	if (FAILED(hres))
	{
		wcout << L"Could not connect. Error code = 0x"
			<< hex << hres << endl;
		pLoc->Release();
		CoUninitialize();
		return 1;                // Program has failed.
	}

	wcout << L"Connected to ROOT\CIMV2 WMI namespace" << endl;

	// Step 5: --------------------------------------------------
	// Set security levels on the proxy -------------------------

	hres = CoSetProxyBlanket(
		pSvc,                        // Indicates the proxy to set
		RPC_C_AUTHN_WINNT,           // RPC_C_AUTHN_xxx
		RPC_C_AUTHZ_NONE,            // RPC_C_AUTHZ_xxx
		NULL,                        // Server principal name 
		RPC_C_AUTHN_LEVEL_CALL,      // RPC_C_AUTHN_LEVEL_xxx 
		RPC_C_IMP_LEVEL_IMPERSONATE, // RPC_C_IMP_LEVEL_xxx
		NULL,                        // client identity
		EOAC_NONE                    // proxy capabilities 
	);

	if (FAILED(hres))
	{
		wcout << L"Could not set proxy blanket. Error code = 0x"
			<< hex << hres << endl;
		pSvc->Release();
		pLoc->Release();
		CoUninitialize();
		return 1;               // Program has failed.
	}

	// Step 6: --------------------------------------------------
	// Use the IWbemServices pointer to make requests of WMI ----

	// For example, get the name of the operating system
	IEnumWbemClassObject* pEnumerator = NULL;
	hres = pSvc->ExecQuery(
		bstr_t(L"WQL"),
		bstr_t(L"SELECT TotalVirtualMemorySize, FreeVirtualMemory FROM Win32_OperatingSystem"),
		WBEM_FLAG_FORWARD_ONLY | WBEM_FLAG_RETURN_IMMEDIATELY,
		NULL,
		&pEnumerator);

	if (FAILED(hres))
	{
		wcout << L"Query for operating system name failed."
			<< L" Error code = 0x"
			<< hex << hres << endl;
		pSvc->Release();
		pLoc->Release();
		CoUninitialize();
		return 1;               // Program has failed.
	}

	// Step 7: -------------------------------------------------
	// Get the data from the query in step 6 -------------------

	IWbemClassObject *pclsObj = NULL;
	ULONG uReturn = 0;

	while (pEnumerator)
	{
		HRESULT hr = pEnumerator->Next(WBEM_INFINITE, 1,
			&pclsObj, &uReturn);

		if (0 == uReturn)
		{
			break;
		}

		VARIANT vtProp;

		// Get the value of the properties
		hr = pclsObj->Get(L"TotalVirtualMemorySize", 0, &vtProp, 0, 0);
		if (SUCCEEDED(hr)) {
			wcout << L"OS TotalVirtualMemorySize: " << vtProp.bstrVal << endl;
		}
		VariantClear(&vtProp);

		hr = pclsObj->Get(L"FreeVirtualMemory", 0, &vtProp, 0, 0);
		if (SUCCEEDED(hr)) {
			wcout << L"OS FreeVirtualMemory: " << vtProp.bstrVal << endl;
		}
		VariantClear(&vtProp);

		pclsObj->Release();
	}

	// Cleanup
	// ========

	pSvc->Release();
	pLoc->Release();
	pEnumerator->Release();
	CoUninitialize();

	return 0;   // Program successfully completed.
}

質問者さんご提示のVBScriptをメガバイト換算せずにオリジナルの値を表示するよう少し修正し、実行して比較した例を以下に示します。t2.vbsが質問者さんのVBScriptで、ConApp1.exeが上記C++コードの実行ファイルの32ビット版、64ビット版です。FreeVirtualMemoryの値が実行ごとに少し変化してしまうのは仕方ないですが、TotalVirtualMemorySizeの値は常に同じであることが分かります。

C>cscript /Nologo t2.vbs
-- TotalVirtualMemorySize:
19140808
-- FreeVirtualMemory
12523004

C>Release\ConApp1.exe
Connected to ROOT\CIMV2 WMI namespace
OS TotalVirtualMemorySize: 19140808
OS FreeVirtualMemory: 12522928

C>x64\Release\ConApp1.exe
Connected to ROOT\CIMV2 WMI namespace
OS TotalVirtualMemorySize: 19140808
OS FreeVirtualMemory: 12524372

Comments

[Yamato.dd]

丁寧な回答ありがとうございます。
サンプルコードを提示して頂きありがとうございました。

Answer 3

1024 で割っていますか？オペレーティングシステムから見るメモリサイズと、ハードウエアから見るメモリサイズは違います。オペレーティングシステムでは、BIOS の使用サイズが含まれていません。どちらか目的を合わせて、同じデータを使用することをお薦めします。

Comments

[Yamato.dd]

単位は揃えているので問題ありませんでした。
ハードウェアから見た容量と、OSから見た容量が異なるのは知らなかったです。
回答して頂きありがとうございました。