Dim infoClass As New System.Management.ManagementClass( _
          "Win32_OperatingSystem")
        Dim infoInstances As System.Management.ManagementObjectCollection
        Dim infoList As _
          System.Management.ManagementObjectCollection.ManagementObjectEnumerat_
          or
 
        infoInstances = infoClass.GetInstances()
        infoList = infoInstances.GetEnumerator
 
        infoList.MoveNext()
 
        Debug.WriteLine(infoList.Current("Description"))