windows - 我怎样才能获得面向 future 的用户友好型操作系统版本？

Question

这个问题，How can I determine the Windows version from a VB 6 app ，有一个来自 Cody Gray 的非常有用的答案，它利用 GetVersionEx 和 Select Case 语句将 Windows 版本作为用户友好的字符串返回。

然而，给出的代码是有限的，因为所有的返回值都是硬编码的，这意味着它不是面向 future 的，每次新版本的 Windows 出现时都需要重写，例如 Windows 8。

除了使用 GetVersionEx 和 Select Case 语句之外，是否有任何其他选项来检索用户友好的操作系统名称，该名称也将在未来得到证明？

Answer 1

WMI classes可用于提取所需数据，如下所示:

Public Function GetFriendlyOSVersion() As String
    Dim query As String
    query = "SELECT Caption FROM Win32_OperatingSystem"
    Dim results As Object
    Set results = GetObject("Winmgmts:").ExecQuery(query)
    Dim info As Object
    For Each info In results
        GetFriendlyOSVersion = info.Caption
    Next info
End Function