■Topics

---

OSの種類を取得するサンプルです。Win32_OperatingSystemクラスを使用します。

---

■Sample Code

---

Private Sub Command1_Click()

Dim OsSet As SWbemObjectSet
Dim Os As SWbemObject
Dim Locator As SWbemLocator
Dim Service As Object
Dim MesStr As String

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set OsSet = Service.ExecQuery _
("Select * From Win32_OperatingSystem")

For Each Os In OsSet

    MesStr = MesStr + _
            "OSを起動しているドライブ：" + CStr(Os.BootDevice) + vbCrLf + _
            "OSのビルドナンバー：" + CStr(Os.BuildNumber) + vbCrLf + _
            "OSの名前：" + CStr(Os.Caption) + vbCrLf + _
            "OSをインストールした日：" + CStr(Os.InstallDate) + vbCrLf + _
            "OSを最後に起動した日：" + CStr(Os.LastBootUpTime) + vbCrLf + _
            "OSのバージョン：" + CStr(Os.Version) + vbCrLf

Next

MsgBox "OSの情報です。" + _
                vbCrLf + MesStr + "ですよ。"

Set OsSet = Nothing
Set Os = Nothing
Set Service = Nothing
Set Locator = Nothing

End Sub

---

■Comment

---

では実行してみましょう。
現在インストールされているOSの詳細情報が取得できます。
OSをインストールした日が解るのは個人的にもびっくりしました。
OSの種類を判別するのもAPIと違って名称を簡単に取得できています。

ただしWindows 2000ではLastBootUpTimeの取得がうまくできないようです。
Windows XPであれば問題なく動作するのですが必ずWindows 2000では
Null値が帰ってきます。

---