Come posso ottenere una versione del sistema operativo di facile utilizzo futura?

Question

Questa domanda, How can I determine the Windows version from a VB 6 app, ha una risposta molto utile da Cody Gray che utilizza GetVersionEx e un'istruzione Select Case per restituire la versione di Windows come stringa di facile utilizzo.

Tuttavia il codice data è limitata in quanto tutti i valori di ritorno sono codificati che significa che non è a prova di futuro e ha bisogno di essere riscritto ogni volta che una nuova versione di Windows viene fuori, come Windows 8, per esempio.

Esiste un'altra opzione, oltre all'utilizzo di GetVersionEx e un'istruzione Select Case, per recuperare un nome di sistema operativo di facile utilizzo che sia anche relativamente a prova di futuro?

Answer 1

Il WMI classes può essere utilizzato per estrarre i dati richiesti come segue:

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