Ottenere primo disco da WMI ExecQuery

Question

Ho una semplice VBScript per recuperare la versione di Windows:

Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 
Set colVersions = objWMI.ExecQuery("Select * from Win32_OperatingSystem") 

For Each objVer in colVersions 
    ver = objVer.Version 
Next 

È 'possibile ottenere il primo record o devo ciclo su tutti i record della collezione. Tutti gli esempi che ho visto sono con la costruzione For Each. Ricevo Prevista fine della dichiarazione errore quando provo:

ver = colVersions[0].Version 

Sembra che il valore di ritorno di ExecQuery non è una raccolta corretta.

Answer 1

For Each objVer in colVersions 
    ver = objVer.Version 
    exit for 
Next 

Answer 2

In Windows Vista e versioni successive, è possibile utilizzare il metodo ItemIndex per ottenere una voce della raccolta dal suo indice:

ver = colVersions.ItemIndex(0).Version 

Nelle versioni precedenti di Windows, non c'è modo per fare questo ho paura.

Answer 3

Set objWMI = GetObject("WinMgmts:{ImpersonationLevel=Impersonate}!\\.\Root\CIMV2") 
Set objOS = objWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem").ItemIndex(0) 

msgBox objOS.Version 

Edit per Spiegazione: Aggiungendo .ItemIndex (0) per la query originale, si sta afferrando il primo elemento della collezione. Ciò eliminerà la necessità di un ciclo For/Each.