システムのプロパティの取得

バージョンは、下記の方法で取得できます。 モジュールに書くコードです。 Option Explicit ' Windowsのバージョンに関する拡張情報を取得する関数の宣言 Declare Function GetVersionEx Lib "kernel32.dll" _ Alias "GetVersionExA" _ (lpVersionInformation As OSVERSIONINFO) As Long ' Windowsのバージョンに関する拡張情報を定義する構造体の宣言 Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion(127) As Byte End Type ' バージョン情報に関する値を示す定数の宣言 Public Const VER_PLATFORM_WIN32_WINDOWS = 1 Public Const VER_PLATFORM_WIN32_NT = 2 Public Sub GetVer() 'ユーザー定義関数 Dim udtOSVersionInfo As OSVERSIONINFO Dim strOSversionInfo As String Dim lngResult As Long Dim Msg As String ' バージョンに関する拡張情報の構造体を初期化 With udtOSVersionInfo .dwOSVersionInfoSize = Len(udtOSVersionInfo) End With ' Windowsのバージョンに関する拡張情報を取得 lngResult = _ GetVersionEx(udtOSVersionInfo) ' Windowsのバージョンに関する拡張情報を表示 With udtOSVersionInfo ' OSを表示 Select Case .dwPlatformId Case VER_PLATFORM_WIN32_WINDOWS Msg = "Windows 95 or Windows 98" Case VER_PLATFORM_WIN32_NT Msg = "Windows NT or Windows 2000" ' バージョン情報を表示 'NTまたは2000の場合、バージョンが取得できます。 Msg = Msg & _ .dwMajorVersion & "." & _ .dwMinorVersion & " (" & _ (.dwBuildNumber And &HFFFF&) & ")" End Select End With MsgBox Msg End Sub