Get first record from WMI ExecQuery

I have a simple vbscript for retrieving the Windows version:

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

Is is possible to get the first record or do I have to loop over all records in th开发者_如何转开发e collection. All examples I've seen are with For Each construction. I receive Expected end of statement error when I try:

ver = colVersions[0].Version

It looks like the return value of ExecQuery is not a proper collection.

---

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

---

On Windows Vista and later, you can use the ItemIndex method to get a collection item by its index:

ver = colVersions.ItemIndex(0).Version

On earlier Windows versions, there's no way to do this I'm afraid.

---

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

msgBox objOS.Version

Edit for Explanation: By adding .ItemIndex(0) to your original query, you are grabbing the first item in the collection. This will eliminate the need for a For/Each loop.