作成 2010.01.08
更新 2010.01.08
更新 2010.01.08
VBScript で空きメモリ容量を取得する
このサンプルを実行すると物理メモリの空き容量と総容量を取得できます。
Option Explicit
Dim Locator
Dim objService
Dim objEnumerator
Dim objInstance
Set Locator = CreateObject("WbemScripting.SWbemLocator")
Set objService = Locator.ConnectServer
Set objEnumerator = objService.ExecQuery("Select * FROM Win32_OperatingSystem")
For Each objInstance In objEnumerator
WScript.Echo "Free : " & objInstance.FreePhysicalMemory
WScript.Echo "Total: " & objInstance.TotalVisibleMemorySize
Next
Set objEnumerator = Nothing