Làm cách nào để có được phiên bản hệ điều hành thân thiện với người dùng trong tương lai?

Question

Câu hỏi này, How can I determine the Windows version from a VB 6 app, có câu trả lời rất hữu ích từ Cody Gray sử dụng GetVersionEx và câu lệnh Chọn trường hợp để trả về phiên bản Windows dưới dạng chuỗi thân thiện với người dùng. Tuy nhiên, mã được đưa ra bị giới hạn ở chỗ tất cả các giá trị trả về đều được mã hóa cứng, có nghĩa là nó không phải là bằng chứng trong tương lai và cần được viết lại mỗi khi phiên bản Windows mới xuất hiện, chẳng hạn như Windows 8 chẳng hạn.

Có tùy chọn nào khác, ngoài việc sử dụng GetVersionEx và câu lệnh Chọn trường hợp, để truy xuất tên hệ điều hành thân thiện với người dùng cũng sẽ là bằng chứng tương đối trong tương lai không?

Answer 1

Các WMI classes thể được sử dụng để trích xuất các dữ liệu cần thiết như sau:

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