仮想メモリで使用するページファイルの現在の状況を取得する: Win32_PageFile - WMI Sample (VB)

Private Sub Command1_Click()

Dim PgfSet As SWbemObjectSet
Dim Pgf As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set PgfSet = Service.ExecQuery("Select * From Win32_PageFile")

For Each Pgf In PgfSet

MesStr = MesStr & "ページファイルの場所: " & Pgf.Name & vbCrLf & _
"作成日: " & Pgf.CreationDate & vbCrLf & _
"ファイルサイズ: " & Pgf.FileSize & vbCrLf

Next

MsgBox "ページファイルの情報です。" & vbCrLf & vbCrLf & MesStr

Set PgfSet = Nothing
Set Pgf = Nothing
Set Locator = Nothing
Set Service = Nothing

End Sub