Excel VBAでのWindowsバージョンの調べ方

Question

Windows7からWindows10にアップグレードしました。（32ビット版）

マシンにはExcel2003、2007、2010、2013がインストールされています。（32ビット版）

VBAでExcelが稼働しているWindowsのバージョンを調べるため、Application.OperatingSystem

を実行しました。

Excel2003、2007、2010では、NT6.02と表示されます。"Windows (32-bit) NT 6.02"

Excel2013では、NT :.00と表示されます。"Windows (32-bit) NT :.00"

Windows10では、"10.00" と表示されると思うのですが、現状は前述のような結果が表示され、

現在、VBAが稼働しているWindowsのバージョンを正しく調べることができません。

環境的に問題があるのでしょうか？

ご教授ください。

よろしくお願いします。

Answer 1

http://answers.microsoft.com/ja-jp/search/search?SearchTerm=Win32_OperatingSystem&IsSuggestedTerm=false&tab=&CurrentScope.ForumName=Office&CurrentScope.Filter=&ContentTypeScope=#/Office///1

を参考に標準モジュールにて、

Sub test1()

    Dim oLocator As Object

    Dim oService As Object

    Dim oClassSet As Object

    Dim oClass As Object, prp As Object

    Dim i As Long, j As Long

    Set oLocator = CreateObject("WbemScripting.SWbemLocator")

    Set oService = oLocator.ConnectServer

    Set oClassSet = oService.ExecQuery("Select * From Win32_OperatingSystem")

    For Each oClass In oClassSet

        For Each prp In oClass.properties_

            i = i + 1

            If IsArray(prp.Value) Then

                For j = 0 To UBound(prp.Value)

                    Debug.Print i, prp.Name, prp(j)

                Next

            Else

                Debug.Print i, prp.Name, prp.Value

            End If

            j = j + 1

        Next

    Next

    Set oClassSet = Nothing: Set oService = Nothing: Set oLocator = Nothing

End Sub

とするとイミディエイト ウィンドウにごちゃっと出力されるので欲しいとこだけ取り出して

Function OSinfo() As String

    Dim oLocator As Object

    Dim oService As Object

    Dim oClassSet As Object

    Dim oClass As Object, prp As Object

    Dim i As Long, j As Long

    Set oLocator = CreateObject("WbemScripting.SWbemLocator")

    Set oService = oLocator.ConnectServer

    Set oClassSet = oService.ExecQuery("Select * From Win32_OperatingSystem")

    For Each oClass In oClassSet

        OSinfo = oClass.Caption & "|" & oClass.Version & "|" & oClass.OSArchitecture

    Next

    Set oClassSet = Nothing: Set oService = Nothing: Set oLocator = Nothing

End Function

で下のようなのが取得できます。

Mirosoft Windows 10 Pro|10.0.10240|64 ビット

Application.OperatingSystemについては今後のアップデートに期待しましょ。

Answer 2

ありがとうございました。