Windows संस्करण पुन: प्राप्त करने के लिए WMI ExecQuery

Question

से पहले रिकॉर्ड जाओ मैं एक सरल VBScript है:

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 

है पहले रिकॉर्ड प्राप्त करने के लिए या मैं संग्रह में सभी रिकॉर्ड पाश करने के लिए क्या संभव है। मैंने देखा है कि सभी उदाहरण For Each निर्माण के साथ हैं। मैं बयान त्रुटि के अपेक्षित अंत प्राप्त जब मैं कोशिश:

ver = colVersions[0].Version 

यह ExecQuery की वापसी मूल्य की तरह दिखता है एक उचित संग्रह नहीं है।

Answer 1

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

Answer 2

Windows Vista पर और बाद में, आप अपने सूचकांक द्वारा एक संग्रह आइटम प्राप्त करने के लिए ItemIndex विधि का उपयोग कर सकते हैं:

ver = colVersions.ItemIndex(0).Version 

पहले विंडोज संस्करणों पर, वहाँ इस मुझे डर लग रहा करने के लिए कोई रास्ता नहीं है। स्पष्टीकरण के लिए

Answer 3

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

msgBox objOS.Version 

संपादित करें: (0) आपकी मूल क्वेरी को .ItemIndex जोड़कर, आप संग्रह में पहला आइटम हथियाने रहे हैं। यह फॉर/प्रत्येक लूप की आवश्यकता को खत्म कर देगा।