Get first record from WMI ExecQuery

Question

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 the 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.

Answer 1

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.

Answer 2

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