Nhận ghi đầu tiên từ WMI ExecQuery

Question

Tôi có một VBScript đơn giản để lấy phiên bản 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 

là có thể để có được những kỷ lục đầu tiên hoặc tôi phải vòng qua tất cả các bản ghi trong bộ sưu tập. Tất cả các ví dụ tôi đã thấy là với việc xây dựng For Each. Tôi nhận Dự kiến ​​cuối năm tuyên bố lỗi khi tôi thử:

ver = colVersions[0].Version 

Dường như giá trị trả về của ExecQuery không phải là một bộ sưu tập thích hợp.

Answer 1

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

Answer 2

Trên Windows Vista và sau đó, bạn có thể sử dụng phương pháp ItemIndex để có được một bộ sưu tập item bởi chỉ số của nó:

ver = colVersions.ItemIndex(0).Version 

Trong các phiên bản Windows trước đó, không có cách nào để làm điều này tôi sợ.

Answer 3

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

msgBox objOS.Version 

Chỉnh sửa cho Giải thích: Bằng cách thêm .ItemIndex (0) để truy vấn ban đầu của bạn, bạn đang grabbing mục đầu tiên trong bộ sưu tập. Điều này sẽ loại bỏ sự cần thiết cho một vòng lặp For/Each.