VBAでWMIを使ってOSの情報（OS、バージョン、ビット）を取得する

今回のエントリーはOSの情報を取得するVBAをアップします。
WMIを使うとシステムに関する様々な情報を取得する事が可能ですが、今回はWin32_OperatingSystemからOSの情報、OSの種類 ／ OSのバージョン ／ OSのアーキテクチャ（OSのビット）を取得してみましょう。

VBAサンプルコード

'OSの情報を取得
Public Sub sample1()
    Dim colItems As Object
    Dim item As Object
     
    Set colItems = CreateObject("WbemScripting.SWbemLocator").ConnectServer.ExecQuery("Select * From Win32_OperatingSystem")
    
    For Each item In colItems
        MsgBox "OS: " & item.Caption & vbCrLf & _
                "Ver: " & item.Version & vbCrLf & _
                "Bit: " & item.OSArchitecture
    Next
End Sub

■VBAコードの補足