Retrieving list of VM names using FindItems

Hi,

I'm trying to retrieve a list of virtual machine names on a host using finditems. I have been able to retrieve a list of VMX file paths using VIX_PROPERTY_FOUND_ITEM_LOCATION. I am using VMWare Server 2.0 with VIX 1.1.6 in VBScript.

The code I am using is as follows :

                               Set oJob = oHost.FindItems(VixCOM.Constants.VIX_FIND_REGISTERED_VMS, Nothing, -1, Nothing)

          iErr = oJob.WaitWithoutResults()

          If Not oVMWare.ErrorIndicatesFailure(iErr) Then

               iNumResults = oJob.GetNumProperties(VixCOM.ConstantsVIX_PROPERTY_FOUND_ITEM_LOCATION.)

               For iCount = 0 To iNumResults - 1

                    iErr = oJob.GetNthProperties(iCount, Array(VixCOM.Constants.VIX_PROPERTY_FOUND_ITEM_LOCATION), _

                                        aResults)

                    If oVMWare.ErrorIndicatesFailure(iErr) Then

                         WScript.Echo "Error"

                    Else

                         WScript.Echo "Results: " & aResults(0)

                    End If

               Next

          Else

               WScript.Echo "Error " & oVMWare.GetErrorText(iErr,Empty)

          End If

Thanks for any help you can give.