如何获得 Windows 操作系统的版本

很多时候我们需要知道Windows操作系统的版本，使用下面这个API函数可以做到。

Option Explicit

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128        ´ Maintenance string for PSS usage
    osName As String                    ´ 我自己加的, 操作系统的名称
End Type

´ 获得 Windows 操作系统的版本
´ OSVERSIONINFO 结构中的 osName 返回操作系统的名称
Private Function GetWindowsVersion() As OSVERSIONINFO
    Dim ver As OSVERSIONINFO
    ver.dwOSVersionInfoSize = 148
    GetVersionEx ver
    With ver
        Select Case .dwPlatformId
            Case 1
                Select Case .dwMinorVersion
                    Case 0
                        .osName = "Windows 95"
                    Case 10
                        .osName = "Windows 98"
                    Case 90
                        .osName = "Windows Mellinnium"
                End Select
            Case 2
                Select Case .dwMajorVersion
                    Case 3
                        .osName = "Windows NT 3.51"
                    Case 4
                        .osName = "Windows NT 4.0"
                    Case 5
                        Select Case .dwMinorVersion
                            Case 0
                                .osName = "Windows 2000"
                            Case 1
                                .osName = "Windows XP"
                            Case 2
                                .osName = "Windows Server 2003"
                        End Select
                End Select
             Case Else
                .osName = "Failed"
        End Select
    End With
    GetWindowsVersion = ver
End Function

Private Sub Command1_Click()
    Dim ver As OSVERSIONINFO
    ver = GetWindowsVersion()
    With ver
        Debug.Print .osName, .dwMajorVersion, .dwMinorVersion, .dwBuildNumber, .dwPlatformId, .szCSDVersion
    End With
End Sub

文章来源于领测软件测试网 https://www.ltesting.net/