|
>マイナーバージョンの違いまで細かく判別するなら、APIを使います。
APIを使用しない場合こんな感じになります。
Dim objWMIService As Object
Dim colItems As Object
Dim objItem As Object
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.InstancesOf("Win32_OperatingSystem")
For Each objItem in colItems
Debug.Print "BuildNumber: " & objItem.BuildNumber
Debug.Print "Caption: " & objItem.Caption
Debug.Print "CSDVersion: " & objItem.CSDVersion
Debug.Print "ServicePackMajorVersion: " & objItem.ServicePackMajorVersion
Debug.Print "ServicePackMinorVersion: " & objItem.ServicePackMinorVersion
Debug.Print "Version: " & objItem.Version
Next
|
|