Jak mogę uzyskać przyszłą wersję przyjaznego dla użytkownika systemu operacyjnego?

Question

To pytanie, How can I determine the Windows version from a VB 6 app, ma bardzo przydatną odpowiedź od Cody Gray, która wykorzystuje GetVersionEx i instrukcję Select Case, aby zwrócić wersję systemu Windows jako przyjazne dla użytkownika ciąg.

Podany kod jest jednak ograniczony, ponieważ wszystkie zwracane wartości są zakodowane na sztywno, co oznacza, że ​​nie jest to zabezpieczenie przyszłościowe i musi zostać przepisane za każdym razem, gdy pojawi się nowa wersja systemu Windows, na przykład Windows 8.

Czy istnieje inna opcja, oprócz użycia GetVersionEx i instrukcji Select Case, w celu pobrania przyjaznej dla użytkownika nazwy systemu operacyjnego, która również będzie stosunkowo odporna na przyszłość?

Answer 1

WMI classes mogą być wykorzystane, aby wyodrębnić wymagane dane w następujący sposób:

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