■Topics

---

メモリダンプの情報を設定するサンプルです。Win32_OSRecoveryConfigurationクラスを使用しています。

---

■Sample Code

---

Private Sub Command1_Click()

Dim OsrSet As SWbemObjectSet
Dim Osr As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer

Set OsrSet = Service.ExecQuery _
            ("Select * From Win32_OSRecoveryConfiguration")
For Each Osr In OsrSet

    MsgBox "現在のダンプの種類：" & CStr(Osr.DebugInfoType)
    Osr.DebugInfoType = 0
    Osr.Put_

Next

Set OsrSet = Service.ExecQuery _
                ("Select * From Win32_OSRecoveryConfiguration")
For Each Osr In OsrSet

    MsgBox "現在のダンプの種類：" & CStr(Osr.DebugInfoType)

Next


Set OsrSet = Nothing
Set Osr = Nothing
Set Locator = Nothing
Set Service = Nothing

End Sub

---

■Comment

---

実行すると現在のメモリダンプのダンプの種類の設定が表示されます。その後ダンプの種類が「なし」に変更され再度現在の設定が表示されます。
本当に設定されているか確認するにはシステムのプロパティ内の起動と回復を見てみましょう。

---