■Topics

---

OSの一覧を表示する時間を変更を行うサンプルです。Win32_ComputerSystemクラスを使用します。

---

■Sample Code

---

Private Sub Command1_Click()

Dim CsSet As SWbemObjectSet
Dim Cs As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices

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

For Each Cs In CsSet

    Cs.SystemStartupDelay = 5
    Cs.Put_

Next

MsgBox "OSの一覧を表示する時間を変更しました。"

Set CsSet = Nothing
Set Cs = Nothing
Set Service = Nothing
Set Locator = Nothing

End Sub

---

■Comment

---

ちなみに実行するとマシン起動時のOSの一覧を表示する時間を5秒に変更します。
本当に変更されていることを確認するためにマシンの再起動、もしくはboot.iniを開いて確認しましょう。
今回は時間を変更しましたが、もちろんSystemStartupDelayプロパティの値を取得することも可能です

---