Imports System
Imports System.ComponentModel
Imports System.Management
Imports System.Collections
Imports System.Globalization
Imports Microsoft.VisualBasic

Namespace ROOT.CIMV2.win32
    
    'Functions ShouldSerialize<PropertyName> are functions used by VS property browser to check if a particular property has to be serialized. These functions are added for all ValueType properties ( properties of type Int32, BOOL etc.. which cannot be set to null). These functions use Is<PropertyName>Null function. These functions are also used in the TypeConverter implementation for the properties to check for NULL value of property so that an empty value can be shown in Property browser in case of Drag and Drop in Visual studio.
    'Functions Is<PropertyName>Null() are used to check if a property is NULL.
    'Functions Reset<PropertyName> are added for Nullable Read/Write properties. These functions are used by VS designer in property browser to set a property to NULL.
    'Every property added to the class for WMI property has attributes set to define its behavior in Visual Studio designer and also to define a TypeConverter to be used.
    'Datetime conversion functions ToDateTime and ToDmtfDateTime are added to the class to convert DMTF datetime to System.DateTime and vice-versa.
    'An Early Bound class generated for the WMI class.win32_processor
    Public Class processor
        Inherits System.ComponentModel.Component
        
        'Private property to hold the WMI namespace in which the class resides.
        Private Shared CreatedWmiNamespace As String = "root\cimv2"
        
        'Private property to hold the name of WMI class which created this class.
        Private Shared CreatedClassName As String = "win32_processor"
        
        'Private member variable to hold the ManagementScope which is used by the various methods.
        Private Shared statMgmtScope As System.Management.ManagementScope = Nothing
        
        Private PrivateSystemProperties As ManagementSystemProperties
        
        'Underlying lateBound WMI object.
        Private PrivateLateBoundObject As System.Management.ManagementObject
        
        'Member variable to store the 'automatic commit' behavior for the class.
        Private AutoCommitProp As Boolean = true
        
        'Private variable to hold the embedded property representing the instance.
        Private embeddedObj As System.Management.ManagementBaseObject
        
        'The current WMI object used
        Private curObj As System.Management.ManagementBaseObject
        
        'Flag to indicate if the instance is an embedded object.
        Private isEmbedded As Boolean = false
        
        'Below are different overloads of constructors to initialize an instance of the class with a WMI object.
        Public Sub New()
            Me.New(CType(Nothing,System.Management.ManagementScope), CType(Nothing,System.Management.ManagementPath), CType(Nothing,System.Management.ObjectGetOptions))
        End Sub
        
        Public Sub New(ByVal keyDeviceID As String)
            Me.New(CType(Nothing,System.Management.ManagementScope), CType(New System.Management.ManagementPath(processor.ConstructPath(keyDeviceID)),System.Management.ManagementPath), CType(Nothing,System.Management.ObjectGetOptions))
        End Sub
        
        Public Sub New(ByVal mgmtScope As System.Management.ManagementScope, ByVal keyDeviceID As String)
            Me.New(CType(mgmtScope,System.Management.ManagementScope), CType(New System.Management.ManagementPath(processor.ConstructPath(keyDeviceID)),System.Management.ManagementPath), CType(Nothing,System.Management.ObjectGetOptions))
        End Sub
        
        Public Sub New(ByVal path As System.Management.ManagementPath, ByVal getOptions As System.Management.ObjectGetOptions)
            Me.New(CType(Nothing,System.Management.ManagementScope), CType(path,System.Management.ManagementPath), CType(getOptions,System.Management.ObjectGetOptions))
        End Sub
        
        Public Sub New(ByVal mgmtScope As System.Management.ManagementScope, ByVal path As System.Management.ManagementPath)
            Me.New(CType(mgmtScope,System.Management.ManagementScope), CType(path,System.Management.ManagementPath), CType(Nothing,System.Management.ObjectGetOptions))
        End Sub
        
        Public Sub New(ByVal path As System.Management.ManagementPath)
            Me.New(CType(Nothing,System.Management.ManagementScope), CType(path,System.Management.ManagementPath), CType(Nothing,System.Management.ObjectGetOptions))
        End Sub
        
        Public Sub New(ByVal mgmtScope As System.Management.ManagementScope, ByVal path As System.Management.ManagementPath, ByVal getOptions As System.Management.ObjectGetOptions)
            MyBase.New
            If (Not (path) Is Nothing) Then
                If (CheckIfProperClass(mgmtScope, path, getOptions) <> true) Then
                    Throw New System.ArgumentException("Class name does not match.")
                End If
            End If
            PrivateLateBoundObject = New System.Management.ManagementObject(mgmtScope, path, getOptions)
            PrivateSystemProperties = New ManagementSystemProperties(PrivateLateBoundObject)
            curObj = PrivateLateBoundObject
        End Sub
        
        Public Sub New(ByVal theObject As System.Management.ManagementObject)
            MyBase.New
            If (CheckIfProperClass(theObject) = true) Then
                PrivateLateBoundObject = theObject
                PrivateSystemProperties = New ManagementSystemProperties(PrivateLateBoundObject)
                curObj = PrivateLateBoundObject
            Else
                Throw New System.ArgumentException("Class name does not match.")
            End If
        End Sub
        
        Public Sub New(ByVal theObject As System.Management.ManagementBaseObject)
            MyBase.New
            If (CheckIfProperClass(theObject) = true) Then
                embeddedObj = theObject
                PrivateSystemProperties = New ManagementSystemProperties(theObject)
                curObj = embeddedObj
                isEmbedded = true
            Else
                Throw New System.ArgumentException("Class name does not match.")
            End If
        End Sub
        
        'Property returns the namespace of the WMI class.
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property OriginatingNamespace As String
            Get
                Return "root\cimv2"
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property ManagementClassName As String
            Get
                Dim strRet As String = CreatedClassName
                If (Not (curObj) Is Nothing) Then
                    If (Not (curObj.ClassPath) Is Nothing) Then
                        strRet = CType(curObj("__CLASS"),String)
                        If ((strRet Is Nothing)  _
                                    OrElse (strRet Is System.String.Empty)) Then
                            strRet = CreatedClassName
                        End If
                    End If
                End If
                Return strRet
            End Get
        End Property
        
        'Property pointing to an embedded object to get System properties of the WMI object.
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property SystemProperties As ManagementSystemProperties
            Get
                Return PrivateSystemProperties
            End Get
        End Property
        
        'Property returning the underlying lateBound object.
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property LateBoundObject As System.Management.ManagementBaseObject
            Get
                Return curObj
            End Get
        End Property
        
        'ManagementScope of the object.
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public Property Scope As System.Management.ManagementScope
            Get
                If (isEmbedded = false) Then
                    Return PrivateLateBoundObject.Scope
                Else
                    Return Nothing
                End If
            End Get
            Set
                If (isEmbedded = false) Then
                    PrivateLateBoundObject.Scope = value
                End If
            End Set
        End Property
        
        'Property to show the commit behavior for the WMI object. If true, WMI object will be automatically saved after each property modification.(ie. Put() is called after modification of a property).
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public Property AutoCommit As Boolean
            Get
                Return AutoCommitProp
            End Get
            Set
                AutoCommitProp = value
            End Set
        End Property
        
        'The ManagementPath of the underlying WMI object.
        <Browsable(true)>  _
        Public Property Path As System.Management.ManagementPath
            Get
                If (isEmbedded = false) Then
                    Return PrivateLateBoundObject.Path
                Else
                    Return Nothing
                End If
            End Get
            Set
                If (isEmbedded = false) Then
                    If (CheckIfProperClass(Nothing, value, Nothing) <> true) Then
                        Throw New System.ArgumentException("Class name does not match.")
                    End If
                    PrivateLateBoundObject.Path = value
                End If
            End Set
        End Property
        
        'Public static scope property which is used by the various methods.
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public Shared Property StaticScope As System.Management.ManagementScope
            Get
                Return statMgmtScope
            End Get
            Set
                statMgmtScope = value
            End Set
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsAddressWidthNull As Boolean
            Get
                If (curObj("AddressWidth") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("Processor address width in bits."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property AddressWidth As System.UInt16
            Get
                If (curObj("AddressWidth") Is Nothing) Then
                    Return System.Convert.ToUInt16(0)
                End If
                Return CType(curObj("AddressWidth"),System.UInt16)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsArchitectureNull As Boolean
            Get
                If (curObj("Architecture") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The Architecture property specifies the processor architecture used by this platf"& _ 
"orm. It returns one of the following "&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"integer values:"&Microsoft.VisualBasic.ChrW(10)&"0 - x86 "&Microsoft.VisualBasic.ChrW(10)&"1 - MIPS "&Microsoft.VisualBasic.ChrW(10)&"2 - Al"& _ 
"pha "&Microsoft.VisualBasic.ChrW(10)&"3 - PowerPC "&Microsoft.VisualBasic.ChrW(10)&"6 - ia64 "),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property Architecture As ArchitectureValues
            Get
                If (curObj("Architecture") Is Nothing) Then
                    Return CType(System.Convert.ToInt32(0),ArchitectureValues)
                End If
                Return CType(Convert.ToInt32(curObj("Architecture")),ArchitectureValues)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsAvailabilityNull As Boolean
            Get
                If (curObj("Availability") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The availability and status of the device.  For example, the Availability propert"& _ 
"y indicates that the device is running and has full power (value=3), or is in a "& _ 
"warning (4), test (5), degraded (10) or power save state (values 13-15 and 17). "& _ 
"Regarding the power saving states, these are defined as follows: Value 13 (""Powe"& _ 
"r Save - Unknown"") indicates that the device is known to be in a power save mode"& _ 
", but its exact status in this mode is unknown; 14 (""Power Save - Low Power Mode"& _ 
""") indicates that the device is in a power save state but still functioning, and"& _ 
" may exhibit degraded performance; 15 (""Power Save - Standby"") describes that th"& _ 
"e device is not functioning but could be brought to full power 'quickly'; and va"& _ 
"lue 17 (""Power Save - Warning"") indicates that the device is in a warning state,"& _ 
" though also in a power save mode."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property Availability As AvailabilityValues
            Get
                If (curObj("Availability") Is Nothing) Then
                    Return CType(System.Convert.ToInt32(0),AvailabilityValues)
                End If
                Return CType(Convert.ToInt32(curObj("Availability")),AvailabilityValues)
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The Caption property is a short textual description (one-line string) of the obje"& _ 
"ct.")>  _
        Public ReadOnly Property Caption As String
            Get
                Return CType(curObj("Caption"),String)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsConfigManagerErrorCodeNull As Boolean
            Get
                If (curObj("ConfigManagerErrorCode") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("Indicates the Win32 Configuration Manager error code.  The following values may b"& _ 
"e returned: "&Microsoft.VisualBasic.ChrW(10)&"0"&Microsoft.VisualBasic.ChrW(9)&"This device is working properly. "&Microsoft.VisualBasic.ChrW(10)&"1"&Microsoft.VisualBasic.ChrW(9)&"This device is not configured"& _ 
" correctly. "&Microsoft.VisualBasic.ChrW(10)&"2"&Microsoft.VisualBasic.ChrW(9)&"Windows cannot load the driver for this device. "&Microsoft.VisualBasic.ChrW(10)&"3"&Microsoft.VisualBasic.ChrW(9)&"The driver for"& _ 
" this device might be corrupted, or your system may be running low on memory or "& _ 
"other resources. "&Microsoft.VisualBasic.ChrW(10)&"4"&Microsoft.VisualBasic.ChrW(9)&"This device is not working properly. One of its drivers or y"& _ 
"our registry might be corrupted. "&Microsoft.VisualBasic.ChrW(10)&"5"&Microsoft.VisualBasic.ChrW(9)&"The driver for this device needs a resource "& _ 
"that Windows cannot manage. "&Microsoft.VisualBasic.ChrW(10)&"6"&Microsoft.VisualBasic.ChrW(9)&"The boot configuration for this device conflicts "& _ 
"with other devices. "&Microsoft.VisualBasic.ChrW(10)&"7"&Microsoft.VisualBasic.ChrW(9)&"Cannot filter. "&Microsoft.VisualBasic.ChrW(10)&"8"&Microsoft.VisualBasic.ChrW(9)&"The driver loader for the device is mis"& _ 
"sing. "&Microsoft.VisualBasic.ChrW(10)&"9"&Microsoft.VisualBasic.ChrW(9)&"This device is not working properly because the controlling firmware is"& _ 
" reporting the resources for the device incorrectly. "&Microsoft.VisualBasic.ChrW(10)&"10"&Microsoft.VisualBasic.ChrW(9)&"This device cannot star"& _ 
"t. "&Microsoft.VisualBasic.ChrW(10)&"11"&Microsoft.VisualBasic.ChrW(9)&"This device failed. "&Microsoft.VisualBasic.ChrW(10)&"12"&Microsoft.VisualBasic.ChrW(9)&"This device cannot find enough free resources tha"& _ 
"t it can use. "&Microsoft.VisualBasic.ChrW(10)&"13"&Microsoft.VisualBasic.ChrW(9)&"Windows cannot verify this device's resources. "&Microsoft.VisualBasic.ChrW(10)&"14"&Microsoft.VisualBasic.ChrW(9)&"This device"& _ 
" cannot work properly until you restart your computer. "&Microsoft.VisualBasic.ChrW(10)&"15"&Microsoft.VisualBasic.ChrW(9)&"This device is not wo"& _ 
"rking properly because there is probably a re-enumeration problem. "&Microsoft.VisualBasic.ChrW(10)&"16"&Microsoft.VisualBasic.ChrW(9)&"Windows c"& _ 
"annot identify all the resources this device uses. "&Microsoft.VisualBasic.ChrW(10)&"17"&Microsoft.VisualBasic.ChrW(9)&"This device is asking for"& _ 
" an unknown resource type. "&Microsoft.VisualBasic.ChrW(10)&"18"&Microsoft.VisualBasic.ChrW(9)&"Reinstall the drivers for this device. "&Microsoft.VisualBasic.ChrW(10)&"19"&Microsoft.VisualBasic.ChrW(9)&"Your r"& _ 
"egistry might be corrupted. "&Microsoft.VisualBasic.ChrW(10)&"20"&Microsoft.VisualBasic.ChrW(9)&"Failure using the VxD loader. "&Microsoft.VisualBasic.ChrW(10)&"21"&Microsoft.VisualBasic.ChrW(9)&"System failure"& _ 
": Try changing the driver for this device. If that does not work, see your hardw"& _ 
"are documentation. Windows is removing this device. "&Microsoft.VisualBasic.ChrW(10)&"22"&Microsoft.VisualBasic.ChrW(9)&"This device is disabled."& _ 
" "&Microsoft.VisualBasic.ChrW(10)&"23"&Microsoft.VisualBasic.ChrW(9)&"System failure: Try changing the driver for this device. If that doesn't wo"& _ 
"rk, see your hardware documentation. "&Microsoft.VisualBasic.ChrW(10)&"24"&Microsoft.VisualBasic.ChrW(9)&"This device is not present, is not work"& _ 
"ing properly, or does not have all its drivers installed. "&Microsoft.VisualBasic.ChrW(10)&"25"&Microsoft.VisualBasic.ChrW(9)&"Windows is still s"& _ 
"etting up this device. "&Microsoft.VisualBasic.ChrW(10)&"26"&Microsoft.VisualBasic.ChrW(9)&"Windows is still setting up this device. "&Microsoft.VisualBasic.ChrW(10)&"27"&Microsoft.VisualBasic.ChrW(9)&"This dev"& _ 
"ice does not have valid log configuration. "&Microsoft.VisualBasic.ChrW(10)&"28"&Microsoft.VisualBasic.ChrW(9)&"The drivers for this device are n"& _ 
"ot installed. "&Microsoft.VisualBasic.ChrW(10)&"29"&Microsoft.VisualBasic.ChrW(9)&"This device is disabled because the firmware of the device did"& _ 
" not give it the required resources. "&Microsoft.VisualBasic.ChrW(10)&"30"&Microsoft.VisualBasic.ChrW(9)&"This device is using an Interrupt Reque"& _ 
"st (IRQ) resource that another device is using. "&Microsoft.VisualBasic.ChrW(10)&"31"&Microsoft.VisualBasic.ChrW(9)&"This device is not working p"& _ 
"roperly because Windows cannot load the drivers required for this device."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property ConfigManagerErrorCode As ConfigManagerErrorCodeValues
            Get
                If (curObj("ConfigManagerErrorCode") Is Nothing) Then
                    Return CType(System.Convert.ToInt64(0),ConfigManagerErrorCodeValues)
                End If
                Return CType(Convert.ToInt64(curObj("ConfigManagerErrorCode")),ConfigManagerErrorCodeValues)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsConfigManagerUserConfigNull As Boolean
            Get
                If (curObj("ConfigManagerUserConfig") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("Indicates whether the device is using a user-defined configuration."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property ConfigManagerUserConfig As Boolean
            Get
                If (curObj("ConfigManagerUserConfig") Is Nothing) Then
                    Return System.Convert.ToBoolean(0)
                End If
                Return CType(curObj("ConfigManagerUserConfig"),Boolean)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsCpuStatusNull As Boolean
            Get
                If (curObj("CpuStatus") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The CpuStatus property specifies the current status of the processor. Changes in "& _ 
"status arise from processor usage, not the physical condition of the processor."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property CpuStatus As CpuStatusValues
            Get
                If (curObj("CpuStatus") Is Nothing) Then
                    Return CType(System.Convert.ToInt32(0),CpuStatusValues)
                End If
                Return CType(Convert.ToInt32(curObj("CpuStatus")),CpuStatusValues)
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("CreationClassName indicates the name of the class or the subclass used in the cre"& _ 
"ation of an instance. When used with the other key properties of this class, thi"& _ 
"s property allows all instances of this class and its subclasses to be uniquely "& _ 
"identified.")>  _
        Public ReadOnly Property CreationClassName As String
            Get
                Return CType(curObj("CreationClassName"),String)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsCurrentClockSpeedNull As Boolean
            Get
                If (curObj("CurrentClockSpeed") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The current speed (in MHz) of this processor."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property CurrentClockSpeed As System.UInt32
            Get
                If (curObj("CurrentClockSpeed") Is Nothing) Then
                    Return System.Convert.ToUInt32(0)
                End If
                Return CType(curObj("CurrentClockSpeed"),System.UInt32)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsCurrentVoltageNull As Boolean
            Get
                If (curObj("CurrentVoltage") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The CurrentVoltage specifies the voltage of the processor. Bits 0-6 of the field "& _ 
"contain the processor's current voltage times 10. This value is only set when SM"& _ 
"BIOS designates a voltage value. For specific values, see VoltageCaps."&Microsoft.VisualBasic.ChrW(10)&"Example: "& _ 
"field value for a processor voltage of 1.8 volts would be 92h = 80h + (1.8 x 10)"& _ 
" = 80h + 18 = 80h + 12h."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property CurrentVoltage As System.UInt16
            Get
                If (curObj("CurrentVoltage") Is Nothing) Then
                    Return System.Convert.ToUInt16(0)
                End If
                Return CType(curObj("CurrentVoltage"),System.UInt16)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsDataWidthNull As Boolean
            Get
                If (curObj("DataWidth") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("Processor data width in bits."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property DataWidth As System.UInt16
            Get
                If (curObj("DataWidth") Is Nothing) Then
                    Return System.Convert.ToUInt16(0)
                End If
                Return CType(curObj("DataWidth"),System.UInt16)
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The Description property provides a textual description of the object. ")>  _
        Public ReadOnly Property Description As String
            Get
                Return CType(curObj("Description"),String)
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The DeviceID property contains a string uniquely identifying the processor with o"& _ 
"ther devices on the system.")>  _
        Public ReadOnly Property DeviceID As String
            Get
                Return CType(curObj("DeviceID"),String)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsErrorClearedNull As Boolean
            Get
                If (curObj("ErrorCleared") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("ErrorCleared is a boolean property indicating that the error reported in LastErro"& _ 
"rCode property is now cleared."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property ErrorCleared As Boolean
            Get
                If (curObj("ErrorCleared") Is Nothing) Then
                    Return System.Convert.ToBoolean(0)
                End If
                Return CType(curObj("ErrorCleared"),Boolean)
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("ErrorDescription is a free-form string supplying more information about the error"& _ 
" recorded in LastErrorCode property, and information on any corrective actions t"& _ 
"hat may be taken.")>  _
        Public ReadOnly Property ErrorDescription As String
            Get
                Return CType(curObj("ErrorDescription"),String)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsExtClockNull As Boolean
            Get
                If (curObj("ExtClock") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The ExtClock property specifies the external clock frequency. If the frequency is"& _ 
" unknown this property is set to null."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property ExtClock As System.UInt32
            Get
                If (curObj("ExtClock") Is Nothing) Then
                    Return System.Convert.ToUInt32(0)
                End If
                Return CType(curObj("ExtClock"),System.UInt32)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsFamilyNull As Boolean
            Get
                If (curObj("Family") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The processor family type. For example, values include ""Pentium(R) processor with"& _ 
" MMX(TM) technology"" (14) and ""68040"" (96)."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property Family As FamilyValues
            Get
                If (curObj("Family") Is Nothing) Then
                    Return CType(System.Convert.ToInt32(0),FamilyValues)
                End If
                Return CType(Convert.ToInt32(curObj("Family")),FamilyValues)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsInstallDateNull As Boolean
            Get
                If (curObj("InstallDate") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The InstallDate property is datetime value indicating when the object was install"& _ 
"ed. A lack of a value does not indicate that the object is not installed."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property InstallDate As Date
            Get
                If (Not (curObj("InstallDate")) Is Nothing) Then
                    Return ToDateTime(CType(curObj("InstallDate"),String))
                Else
                    Return System.DateTime.MinValue
                End If
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsL2CacheSizeNull As Boolean
            Get
                If (curObj("L2CacheSize") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The L2CacheSize property specifies the size of the processor's Level 2 cache. A L"& _ 
"evel 2 cache is an external memory area that has a faster access times than the "& _ 
"main RAM memory."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property L2CacheSize As System.UInt32
            Get
                If (curObj("L2CacheSize") Is Nothing) Then
                    Return System.Convert.ToUInt32(0)
                End If
                Return CType(curObj("L2CacheSize"),System.UInt32)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsL2CacheSpeedNull As Boolean
            Get
                If (curObj("L2CacheSpeed") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The L2CacheSpeed property specifies the clockspeed of the processor's Level 2 cac"& _ 
"he. A Level 2 cache is an external memory area that has a faster access times th"& _ 
"an the main RAM memory."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property L2CacheSpeed As System.UInt32
            Get
                If (curObj("L2CacheSpeed") Is Nothing) Then
                    Return System.Convert.ToUInt32(0)
                End If
                Return CType(curObj("L2CacheSpeed"),System.UInt32)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsLastErrorCodeNull As Boolean
            Get
                If (curObj("LastErrorCode") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("LastErrorCode captures the last error code reported by the logical device."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property LastErrorCode As System.UInt32
            Get
                If (curObj("LastErrorCode") Is Nothing) Then
                    Return System.Convert.ToUInt32(0)
                End If
                Return CType(curObj("LastErrorCode"),System.UInt32)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsLevelNull As Boolean
            Get
                If (curObj("Level") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The Level property further defines the processor type. The value  depends on the "& _ 
"architecture of the processor."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property Level As System.UInt16
            Get
                If (curObj("Level") Is Nothing) Then
                    Return System.Convert.ToUInt16(0)
                End If
                Return CType(curObj("Level"),System.UInt16)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsLoadPercentageNull As Boolean
            Get
                If (curObj("LoadPercentage") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The LoadPercentage property specifies each processor's load capacity averaged ove"& _ 
"r the last second. The term 'processor loading' refers to the total computing bu"& _ 
"rden each processor carries at one time."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property LoadPercentage As System.UInt16
            Get
                If (curObj("LoadPercentage") Is Nothing) Then
                    Return System.Convert.ToUInt16(0)
                End If
                Return CType(curObj("LoadPercentage"),System.UInt16)
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The Manufacturer property specifies the name of the processor's manufacturer."&Microsoft.VisualBasic.ChrW(10)&"Exa"& _ 
"mple: GenuineSilicon")>  _
        Public ReadOnly Property Manufacturer As String
            Get
                Return CType(curObj("Manufacturer"),String)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsMaxClockSpeedNull As Boolean
            Get
                If (curObj("MaxClockSpeed") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The maximum speed (in MHz) of this processor."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property MaxClockSpeed As System.UInt32
            Get
                If (curObj("MaxClockSpeed") Is Nothing) Then
                    Return System.Convert.ToUInt32(0)
                End If
                Return CType(curObj("MaxClockSpeed"),System.UInt32)
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The Name property defines the label by which the object is known. When subclassed"& _ 
", the Name property can be overridden to be a Key property.")>  _
        Public ReadOnly Property Name As String
            Get
                Return CType(curObj("Name"),String)
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("A string describing the processor family type - used when the family property is "& _ 
"set to 1 (""Other""). This string should be set to NULL when the family property i"& _ 
"s any value other than 1.")>  _
        Public ReadOnly Property OtherFamilyDescription As String
            Get
                Return CType(curObj("OtherFamilyDescription"),String)
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("Indicates the Win32 Plug and Play device ID of the logical device.  Example: *PNP"& _ 
"030b")>  _
        Public ReadOnly Property PNPDeviceID As String
            Get
                Return CType(curObj("PNPDeviceID"),String)
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("Indicates the specific power-related capabilities of the logical device. The arra"& _ 
"y values, 0=""Unknown"", 1=""Not Supported"" and 2=""Disabled"" are self-explanatory. "& _ 
"The value, 3=""Enabled"" indicates that the power management features are currentl"& _ 
"y enabled but the exact feature set is unknown or the information is unavailable"& _ 
". ""Power Saving Modes Entered Automatically"" (4) describes that a device can cha"& _ 
"nge its power state based on usage or other criteria. ""Power State Settable"" (5)"& _ 
" indicates that the SetPowerState method is supported. ""Power Cycling Supported"""& _ 
" (6) indicates that the SetPowerState method can be invoked with the PowerState "& _ 
"input variable set to 5 (""Power Cycle""). ""Timed Power On Supported"" (7) indicate"& _ 
"s that the SetPowerState method can be invoked with the PowerState input variabl"& _ 
"e set to 5 (""Power Cycle"") and the Time parameter set to a specific date and tim"& _ 
"e, or interval, for power-on.")>  _
        Public ReadOnly Property PowerManagementCapabilities As PowerManagementCapabilitiesValues()
            Get
                Dim arrEnumVals As System.Array = CType(curObj("PowerManagementCapabilities"),System.Array)
                Dim enumToRet() As PowerManagementCapabilitiesValues = New PowerManagementCapabilitiesValues((arrEnumVals.Length) - 1) {}
                Dim counter As Int32 = 0
                counter = 0
                Do While (counter < arrEnumVals.Length)
                    enumToRet(counter) = CType(System.Convert.ToInt32(arrEnumVals.GetValue(counter)),PowerManagementCapabilitiesValues)
                    counter = (counter + 1)
                Loop
                Return enumToRet
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsPowerManagementSupportedNull As Boolean
            Get
                If (curObj("PowerManagementSupported") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("Boolean indicating that the Device can be power managed - ie, put into a power sa"& _ 
"ve state. This boolean does not indicate that power management features are curr"& _ 
"ently enabled, or if enabled, what features are supported. Refer to the PowerMan"& _ 
"agementCapabilities array for this information. If this boolean is false, the in"& _ 
"teger value 1, for the string, ""Not Supported"", should be the only entry in the "& _ 
"PowerManagementCapabilities array."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property PowerManagementSupported As Boolean
            Get
                If (curObj("PowerManagementSupported") Is Nothing) Then
                    Return System.Convert.ToBoolean(0)
                End If
                Return CType(curObj("PowerManagementSupported"),Boolean)
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The ProcessorId property contains processor-specific information that describes t"& _ 
"he processor's features. For x86 class CPUs, the field's format depends on the p"& _ 
"rocessor's support of the CPUID instruction. If the instruction is supported, th"& _ 
"e ProcessorId property contains two DWORD-formatted values. The first (offsets 0"& _ 
"8h-0Bh) is the EAX value returned by a CPUID instruction with input EAX set to 1"& _ 
". The second (offsets 0Ch-0Fh) is the EDX value returned by that instruction. On"& _ 
"ly the first two bytes of the ProcessorID property are significant (all others a"& _ 
"re set to 0) and contain (in WORD-format) the contents of the DX register at CPU"& _ 
" reset.")>  _
        Public ReadOnly Property ProcessorId As String
            Get
                Return CType(curObj("ProcessorId"),String)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsProcessorTypeNull As Boolean
            Get
                If (curObj("ProcessorType") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The ProcessorType property specifies the processor's primary function."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property ProcessorType As ProcessorTypeValues
            Get
                If (curObj("ProcessorType") Is Nothing) Then
                    Return CType(System.Convert.ToInt32(0),ProcessorTypeValues)
                End If
                Return CType(Convert.ToInt32(curObj("ProcessorType")),ProcessorTypeValues)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsRevisionNull As Boolean
            Get
                If (curObj("Revision") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The Revision property specifies the system's architecture-dependent revision leve"& _ 
"l. The meaning of this value depends on the architecture of the processor. It co"& _ 
"ntains the same values as the ""Version"" member, but in a numerical format."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property Revision As System.UInt16
            Get
                If (curObj("Revision") Is Nothing) Then
                    Return System.Convert.ToUInt16(0)
                End If
                Return CType(curObj("Revision"),System.UInt16)
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("A free form string describing the role of the processor - for example, ""Central P"& _ 
"rocessor""' or ""Math Processor""")>  _
        Public ReadOnly Property Role As String
            Get
                Return CType(curObj("Role"),String)
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The SocketDesignation property contains the type of chip socket used on the circu"& _ 
"it."&Microsoft.VisualBasic.ChrW(10)&"Example: J202")>  _
        Public ReadOnly Property SocketDesignation As String
            Get
                Return CType(curObj("SocketDesignation"),String)
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The Status property is a string indicating the current status of the object. Vari"& _ 
"ous operational and non-operational statuses can be defined. Operational statuse"& _ 
"s are ""OK"", ""Degraded"" and ""Pred Fail"". ""Pred Fail"" indicates that an element ma"& _ 
"y be functioning properly but predicting a failure in the near future. An exampl"& _ 
"e is a SMART-enabled hard drive. Non-operational statuses can also be specified."& _ 
" These are ""Error"", ""Starting"", ""Stopping"" and ""Service"". The latter, ""Service"","& _ 
" could apply during mirror-resilvering of a disk, reload of a user permissions l"& _ 
"ist, or other administrative work. Not all such work is on-line, yet the managed"& _ 
" element is neither ""OK"" nor in one of the other states.")>  _
        Public ReadOnly Property Status As String
            Get
                Return CType(curObj("Status"),String)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsStatusInfoNull As Boolean
            Get
                If (curObj("StatusInfo") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("StatusInfo is a string indicating whether the logical device is in an enabled (va"& _ 
"lue = 3), disabled (value = 4) or some other (1) or unknown (2) state. If this p"& _ 
"roperty does not apply to the logical device, the value, 5 (""Not Applicable""), s"& _ 
"hould be used."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property StatusInfo As StatusInfoValues
            Get
                If (curObj("StatusInfo") Is Nothing) Then
                    Return CType(System.Convert.ToInt32(0),StatusInfoValues)
                End If
                Return CType(Convert.ToInt32(curObj("StatusInfo")),StatusInfoValues)
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("Stepping is a free-form string indicating the revision level of the processor wit"& _ 
"hin the processor family.")>  _
        Public ReadOnly Property Stepping As String
            Get
                Return CType(curObj("Stepping"),String)
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The scoping System's CreationClassName.")>  _
        Public ReadOnly Property SystemCreationClassName As String
            Get
                Return CType(curObj("SystemCreationClassName"),String)
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The scoping System's Name.")>  _
        Public ReadOnly Property SystemName As String
            Get
                Return CType(curObj("SystemName"),String)
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("A globally unique identifier for the processor.  This identifier may only be uniq"& _ 
"ue within a processor family.")>  _
        Public ReadOnly Property UniqueId As String
            Get
                Return CType(curObj("UniqueId"),String)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsUpgradeMethodNull As Boolean
            Get
                If (curObj("UpgradeMethod") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("CPU socket information including data on how this Processor can be upgraded (if u"& _ 
"pgrades are supported). This property is an integer enumeration."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property UpgradeMethod As UpgradeMethodValues
            Get
                If (curObj("UpgradeMethod") Is Nothing) Then
                    Return CType(System.Convert.ToInt32(0),UpgradeMethodValues)
                End If
                Return CType(Convert.ToInt32(curObj("UpgradeMethod")),UpgradeMethodValues)
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The Version property specifies an architecture-dependent processor revision numbe"& _ 
"r. Note: This member is not used in Windows 95."&Microsoft.VisualBasic.ChrW(10)&"Example: Model 2, Stepping 12.")>  _
        Public ReadOnly Property Version As String
            Get
                Return CType(curObj("Version"),String)
            End Get
        End Property
        
        <Browsable(false),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>  _
        Public ReadOnly Property IsVoltageCapsNull As Boolean
            Get
                If (curObj("VoltageCaps") Is Nothing) Then
                    Return true
                Else
                    Return false
                End If
            End Get
        End Property
        
        <Browsable(true),  _
         DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),  _
         Description("The VoltageCaps property specifies the voltage capabilities of the processor. Bit"& _ 
"s 0-3 of the field represent specific voltages that the processor socket can acc"& _ 
"ept. All other bits should be set to zero. The socket is configurable if multipl"& _ 
"e bits are being set. For a range of voltages see CurrentVoltage. If the propert"& _ 
"y is NULL, then the voltage capabilities are unknown."),  _
         TypeConverter(GetType(WMIValueTypeConverter))>  _
        Public ReadOnly Property VoltageCaps As VoltageCapsValues
            Get
                If (curObj("VoltageCaps") Is Nothing) Then
                    Return CType(System.Convert.ToInt32(0),VoltageCapsValues)
                End If
                Return CType(Convert.ToInt32(curObj("VoltageCaps")),VoltageCapsValues)
            End Get
        End Property
        
        Private Overloads Function CheckIfProperClass(ByVal mgmtScope As System.Management.ManagementScope, ByVal path As System.Management.ManagementPath, ByVal OptionsParam As System.Management.ObjectGetOptions) As Boolean
            If ((Not (path) Is Nothing)  _
                        AndAlso (System.String.Compare(path.ClassName, ManagementClassName, true, CultureInfo.InvariantCulture) = 0)) Then
                Return true
            Else
                Return CheckIfProperClass(New System.Management.ManagementObject(mgmtScope, path, OptionsParam))
            End If
        End Function
        
        Private Overloads Function CheckIfProperClass(ByVal theObj As System.Management.ManagementBaseObject) As Boolean
            If ((Not (theObj) Is Nothing)  _
                        AndAlso (System.String.Compare(CType(theObj("__CLASS"),String), ManagementClassName, true, CultureInfo.InvariantCulture) = 0)) Then
                Return true
            Else
                Dim parentClasses As System.Array = CType(theObj("__DERIVATION"),System.Array)
                If (Not (parentClasses) Is Nothing) Then
                    Dim count As Int32 = 0
                    count = 0
                    Do While (count < parentClasses.Length)
                        If (System.String.Compare(CType(parentClasses.GetValue(count),String), ManagementClassName, true, CultureInfo.InvariantCulture) = 0) Then
                            Return true
                        End If
                        count = (count + 1)
                    Loop
                End If
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeAddressWidth() As Boolean
            If (IsAddressWidthNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeArchitecture() As Boolean
            If (IsArchitectureNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeAvailability() As Boolean
            If (IsAvailabilityNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeConfigManagerErrorCode() As Boolean
            If (IsConfigManagerErrorCodeNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeConfigManagerUserConfig() As Boolean
            If (IsConfigManagerUserConfigNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeCpuStatus() As Boolean
            If (IsCpuStatusNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeCurrentClockSpeed() As Boolean
            If (IsCurrentClockSpeedNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeCurrentVoltage() As Boolean
            If (IsCurrentVoltageNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeDataWidth() As Boolean
            If (IsDataWidthNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeErrorCleared() As Boolean
            If (IsErrorClearedNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeExtClock() As Boolean
            If (IsExtClockNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeFamily() As Boolean
            If (IsFamilyNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        'Converts a given datetime in DMTF format to System.DateTime object.
        Shared Function ToDateTime(ByVal dmtfDate As String) As Date
            Dim year As Integer = System.DateTime.MinValue.Year
            Dim month As Integer = System.DateTime.MinValue.Month
            Dim day As Integer = System.DateTime.MinValue.Day
            Dim hour As Integer = System.DateTime.MinValue.Hour
            Dim minute As Integer = System.DateTime.MinValue.Minute
            Dim second As Integer = System.DateTime.MinValue.Second
            Dim ticks As Double = 0
            Dim dmtf As String = dmtfDate
            Dim datetime As Date = System.DateTime.MinValue
            Dim tempString As String = System.String.Empty
            If (dmtf Is Nothing) Then
                Throw New System.ArgumentOutOfRangeException
            End If
            If (dmtf.Length = 0) Then
                Throw New System.ArgumentOutOfRangeException
            End If
            If (dmtf.Length <> 25) Then
                Throw New System.ArgumentOutOfRangeException
            End If
            Try 
                tempString = dmtf.Substring(0, 4)
                If ("****" <> tempString) Then
                    year = System.Int32.Parse(tempString)
                End If
                tempString = dmtf.Substring(4, 2)
                If ("**" <> tempString) Then
                    month = System.Int32.Parse(tempString)
                End If
                tempString = dmtf.Substring(6, 2)
                If ("**" <> tempString) Then
                    day = System.Int32.Parse(tempString)
                End If
                tempString = dmtf.Substring(8, 2)
                If ("**" <> tempString) Then
                    hour = System.Int32.Parse(tempString)
                End If
                tempString = dmtf.Substring(10, 2)
                If ("**" <> tempString) Then
                    minute = System.Int32.Parse(tempString)
                End If
                tempString = dmtf.Substring(12, 2)
                If ("**" <> tempString) Then
                    second = System.Int32.Parse(tempString)
                End If
                tempString = dmtf.Substring(15, 6)
                If ("******" <> tempString) Then
                    ticks = (System.Int64.Parse(tempString)  _
                                * (System.TimeSpan.TicksPerMillisecond / 1000))
                End If
                If ((((((((year < 0)  _
                            OrElse (month < 0))  _
                            OrElse (day < 0))  _
                            OrElse (hour < 0))  _
                            OrElse (minute < 0))  _
                            OrElse (minute < 0))  _
                            OrElse (second < 0))  _
                            OrElse (ticks < 0)) Then
                    Throw New System.ArgumentOutOfRangeException
                End If
            Catch e As System.Exception
                e = e
                Throw New System.ArgumentOutOfRangeException
            End Try
            datetime = New Date(year, month, day, hour, minute, second, 0)
            datetime = datetime.AddTicks(CType(ticks, Long))
            Dim tickOffset As System.TimeSpan = System.TimeZone.CurrentTimeZone.GetUtcOffset(datetime)
            Dim UTCOffset As Integer = 0
            Dim OffsetToBeAdjusted As Double = 0
            Dim OffsetMins As Double = (tickOffset.Ticks / System.TimeSpan.TicksPerMinute)
            tempString = dmtf.Substring(22, 3)
            If (tempString <> "***") Then
                tempString = dmtf.Substring(21, 4)
                Try 
                    UTCOffset = System.Int32.Parse(tempString)
                Catch e As System.Exception
                    e = e
                    Throw New System.ArgumentOutOfRangeException
                End Try
                OffsetToBeAdjusted = (OffsetMins - UTCOffset)
                datetime = datetime.AddMinutes(OffsetToBeAdjusted)
            End If
            Return datetime
        End Function
        
        'Converts a given System.DateTime object to DMTF datetime format.
        Shared Function ToDmtfDateTime(ByVal [date] As Date) As String
            Dim utcString As String = System.String.Empty
            Dim tickOffset As System.TimeSpan = System.TimeZone.CurrentTimeZone.GetUtcOffset([date])
            Dim OffsetMins As Double = (tickOffset.Ticks / System.TimeSpan.TicksPerMinute)
            If (System.Math.Abs(OffsetMins) > 999) Then
                [date] = [date].ToUniversalTime
                utcString = "+000"
            Else
                If (tickOffset.Ticks >= 0) Then
                    utcString = ("+" + (tickOffset.Ticks / System.TimeSpan.TicksPerMinute).ToString.PadLeft(3, Microsoft.VisualBasic.ChrW(48)))
                Else
                    Dim strTemp As String = OffsetMins.ToString
                    utcString = ("-" + strTemp.Substring(1, (strTemp.Length - 1)).PadLeft(3, Microsoft.VisualBasic.ChrW(48)))
                End If
            End If
            Dim dmtfDateTime As String = [date].Year.ToString.PadLeft(4, Microsoft.VisualBasic.ChrW(48))
            dmtfDateTime = (dmtfDateTime + [date].Month.ToString.PadLeft(2, Microsoft.VisualBasic.ChrW(48)))
            dmtfDateTime = (dmtfDateTime + [date].Day.ToString.PadLeft(2, Microsoft.VisualBasic.ChrW(48)))
            dmtfDateTime = (dmtfDateTime + [date].Hour.ToString.PadLeft(2, Microsoft.VisualBasic.ChrW(48)))
            dmtfDateTime = (dmtfDateTime + [date].Minute.ToString.PadLeft(2, Microsoft.VisualBasic.ChrW(48)))
            dmtfDateTime = (dmtfDateTime + [date].Second.ToString.PadLeft(2, Microsoft.VisualBasic.ChrW(48)))
            dmtfDateTime = (dmtfDateTime + ".")
            Dim dtTemp As Date = New Date([date].Year, [date].Month, [date].Day, [date].Hour, [date].Minute, [date].Second, 0)
            Dim microsec As Double = ((([date].Ticks - dtTemp.Ticks) _
                        * 1000) _
                        / System.TimeSpan.TicksPerMillisecond)
            Dim strMicrosec As String = microsec.ToString
            If (strMicrosec.Length > 6) Then
                strMicrosec = strMicrosec.Substring(0, 6)
            End If
            dmtfDateTime = (dmtfDateTime + strMicrosec.PadLeft(6, Microsoft.VisualBasic.ChrW(48)))
            dmtfDateTime = (dmtfDateTime + utcString)
            Return dmtfDateTime
        End Function
        
        Private Function ShouldSerializeInstallDate() As Boolean
            If (IsInstallDateNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeL2CacheSize() As Boolean
            If (IsL2CacheSizeNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeL2CacheSpeed() As Boolean
            If (IsL2CacheSpeedNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeLastErrorCode() As Boolean
            If (IsLastErrorCodeNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeLevel() As Boolean
            If (IsLevelNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeLoadPercentage() As Boolean
            If (IsLoadPercentageNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeMaxClockSpeed() As Boolean
            If (IsMaxClockSpeedNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializePowerManagementSupported() As Boolean
            If (IsPowerManagementSupportedNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeProcessorType() As Boolean
            If (IsProcessorTypeNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeRevision() As Boolean
            If (IsRevisionNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeStatusInfo() As Boolean
            If (IsStatusInfoNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeUpgradeMethod() As Boolean
            If (IsUpgradeMethodNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        Private Function ShouldSerializeVoltageCaps() As Boolean
            If (IsVoltageCapsNull = false) Then
                Return true
            End If
            Return false
        End Function
        
        <Browsable(true)>  _
        Public Sub CommitObject()
            If (isEmbedded = false) Then
                PrivateLateBoundObject.Put
            End If
        End Sub
        
        Private Shared Function ConstructPath(ByVal keyDeviceID As String) As String
            Dim strPath As String = "root\cimv2:win32_processor"
            strPath = (strPath  _
                        + (".DeviceID="  _
                        + (""""  _
                        + (keyDeviceID + """"))))
            Return strPath
        End Function
        
        'Different overloads of GetInstances() help in enumerating instances of the WMI class.
        Public Overloads Shared Function GetInstances() As processorCollection
            Return GetInstances(CType(Nothing,System.Management.ManagementScope), CType(Nothing,System.Management.EnumerationOptions))
        End Function
        
        Public Overloads Shared Function GetInstances(ByVal condition As String) As processorCollection
            Return GetInstances(Nothing, condition, Nothing)
        End Function
        
        Public Overloads Shared Function GetInstances(ByVal selectedProperties() As System.String ) As processorCollection
            Return GetInstances(Nothing, Nothing, selectedProperties)
        End Function
        
        Public Overloads Shared Function GetInstances(ByVal condition As String, ByVal selectedProperties() As System.String ) As processorCollection
            Return GetInstances(Nothing, condition, selectedProperties)
        End Function
        
        Public Overloads Shared Function GetInstances(ByVal mgmtScope As System.Management.ManagementScope, ByVal enumOptions As System.Management.EnumerationOptions) As processorCollection
            If (mgmtScope Is Nothing) Then
                If (statMgmtScope Is Nothing) Then
                    mgmtScope = New System.Management.ManagementScope
                    mgmtScope.Path.NamespacePath = "root\cimv2"
                Else
                    mgmtScope = statMgmtScope
                End If
            End If
            Dim pathObj As System.Management.ManagementPath = New System.Management.ManagementPath
            pathObj.ClassName = "win32_processor"
            pathObj.NamespacePath = "root\cimv2"
            Dim clsObject As System.Management.ManagementClass = New System.Management.ManagementClass(mgmtScope, pathObj, Nothing)
            If (enumOptions Is Nothing) Then
                enumOptions = New System.Management.EnumerationOptions
                enumOptions.EnsureLocatable = true
            End If
            Return New processorCollection(clsObject.GetInstances(enumOptions))
        End Function
        
        Public Overloads Shared Function GetInstances(ByVal mgmtScope As System.Management.ManagementScope, ByVal condition As String) As processorCollection
            Return GetInstances(mgmtScope, condition, Nothing)
        End Function
        
        Public Overloads Shared Function GetInstances(ByVal mgmtScope As System.Management.ManagementScope, ByVal selectedProperties() As System.String ) As processorCollection
            Return GetInstances(mgmtScope, Nothing, selectedProperties)
        End Function
        
        Public Overloads Shared Function GetInstances(ByVal mgmtScope As System.Management.ManagementScope, ByVal condition As String, ByVal selectedProperties() As System.String ) As processorCollection
            If (mgmtScope Is Nothing) Then
                If (statMgmtScope Is Nothing) Then
                    mgmtScope = New System.Management.ManagementScope
                    mgmtScope.Path.NamespacePath = "root\cimv2"
                Else
                    mgmtScope = statMgmtScope
                End If
            End If
            Dim ObjectSearcher As System.Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher(mgmtScope, New SelectQuery("win32_processor", condition, selectedProperties))
            Dim enumOptions As System.Management.EnumerationOptions = New System.Management.EnumerationOptions
            enumOptions.EnsureLocatable = true
            ObjectSearcher.Options = enumOptions
            Return New processorCollection(ObjectSearcher.Get)
        End Function
        
        <Browsable(true)>  _
        Public Shared Function CreateInstance() As processor
            Dim mgmtScope As System.Management.ManagementScope = Nothing
            If (statMgmtScope Is Nothing) Then
                mgmtScope = New System.Management.ManagementScope
                mgmtScope.Path.NamespacePath = CreatedWmiNamespace
            Else
                mgmtScope = statMgmtScope
            End If
            Dim mgmtPath As System.Management.ManagementPath = New System.Management.ManagementPath(CreatedClassName)
            Return New processor(New System.Management.ManagementClass(mgmtScope, mgmtPath, Nothing).CreateInstance)
        End Function
        
        <Browsable(true)>  _
        Public Sub Delete()
            PrivateLateBoundObject.Delete
        End Sub
        
        Public Function Reset() As System.UInt32
            If (isEmbedded = false) Then
                Dim inParams As System.Management.ManagementBaseObject = Nothing
                Dim outParams As System.Management.ManagementBaseObject = PrivateLateBoundObject.InvokeMethod("Reset", inParams, Nothing)
                Return System.Convert.ToUInt32(outParams.Properties("ReturnValue").Value)
            Else
                Return System.Convert.ToUInt32(0)
            End If
        End Function
        
        Public Function SetPowerState(ByVal PowerState As System.UInt16, ByVal Time As Date) As System.UInt32
            If (isEmbedded = false) Then
                Dim inParams As System.Management.ManagementBaseObject = Nothing
                inParams = PrivateLateBoundObject.GetMethodParameters("SetPowerState")
                inParams("PowerState") = PowerState
                inParams("Time") = ToDmtfDateTime(CType(Time,Date))
                Dim outParams As System.Management.ManagementBaseObject = PrivateLateBoundObject.InvokeMethod("SetPowerState", inParams, Nothing)
                Return System.Convert.ToUInt32(outParams.Properties("ReturnValue").Value)
            Else
                Return System.Convert.ToUInt32(0)
            End If
        End Function
        
        Public Enum ArchitectureValues As Integer
            
            x86 = 0
            
            MIPS = 1
            
            Alpha = 2
            
            PowerPC = 3
            
            ia64 = 6
        End Enum
        
        Public Enum AvailabilityValues As Integer
            
            Other = 1
            
            Unknown = 2
            
            Running_Full_Power = 3
            
            Warning = 4
            
            In_Test = 5
            
            Not_Applicable = 6
            
            Power_Off = 7
            
            Off_Line = 8
            
            Off_Duty = 9
            
            Degraded = 10
            
            Not_Installed = 11
            
            Install_Error = 12
            
            Power_Save_Unknown = 13
            
            Power_Save_Low_Power_Mode = 14
            
            Power_Save_Standby = 15
            
            Power_Cycle = 16
            
            Power_Save_Warning = 17
            
            Paused = 18
            
            Not_Ready = 19
            
            Not_Configured = 20
            
            Quiesced = 21
            
            INVALID_ENUM_VALUE = 0
        End Enum
        
        Public Enum ConfigManagerErrorCodeValues As Long
            
            This_device_is_working_properly_ = 0
            
            This_device_is_not_configured_correctly_ = 1
            
            Windows_cannot_load_the_driver_for_this_device_ = 2
            
            The_driver_for_this_device_might_be_corrupted_or_your_system_may_be_running_low_on_memory_or_other_resources_ = 3
            
            This_device_is_not_working_properly_One_of_its_drivers_or_your_registry_might_be_corrupted_ = 4
            
            The_driver_for_this_device_needs_a_resource_that_Windows_cannot_manage_ = 5
            
            The_boot_configuration_for_this_device_conflicts_with_other_devices_ = 6
            
            Cannot_filter_ = 7
            
            The_driver_loader_for_the_device_is_missing_ = 8
            
            This_device_is_not_working_properly_because_the_controlling_firmware_is_reporting_the_resources_for_the_device_incorrectly_ = 9
            
            This_device_cannot_start_ = 10
            
            This_device_failed_ = 11
            
            This_device_cannot_find_enough_free_resources_that_it_can_use_ = 12
            
            Windows_cannot_verify_this_device_s_resources_ = 13
            
            This_device_cannot_work_properly_until_you_restart_your_computer_ = 14
            
            This_device_is_not_working_properly_because_there_is_probably_a_re_enumeration_problem_ = 15
            
            Windows_cannot_identify_all_the_resources_this_device_uses_ = 16
            
            This_device_is_asking_for_an_unknown_resource_type_ = 17
            
            Reinstall_the_drivers_for_this_device_ = 18
            
            Failure_using_the_VxD_loader_ = 19
            
            Your_registry_might_be_corrupted_ = 20
            
            System_failure_Try_changing_the_driver_for_this_device_If_that_does_not_work_see_your_hardware_documentation_Windows_is_removing_this_device_ = 21
            
            This_device_is_disabled_ = 22
            
            System_failure_Try_changing_the_driver_for_this_device_If_that_doesn_t_work_see_your_hardware_documentation_ = 23
            
            This_device_is_not_present_is_not_working_properly_or_does_not_have_all_its_drivers_installed_ = 24
            
            Windows_is_still_setting_up_this_device_ = 25
            
            Windows_is_still_setting_up_this_device_0 = 26
            
            This_device_does_not_have_valid_log_configuration_ = 27
            
            The_drivers_for_this_device_are_not_installed_ = 28
            
            This_device_is_disabled_because_the_firmware_of_the_device_did_not_give_it_the_required_resources_ = 29
            
            This_device_is_using_an_Interrupt_Request_IRQ_resource_that_another_device_is_using_ = 30
            
            This_device_is_not_working_properly_because_Windows_cannot_load_the_drivers_required_for_this_device_ = 31
        End Enum
        
        Public Enum CpuStatusValues As Integer
            
            Unknown
            
            CPU_Enabled
            
            CPU_Disabled_by_User_via_BIOS_Setup
            
            CPU_Disabled_By_BIOS_POST_Error_
            
            CPU_is_Idle
            
            Reserved
            
            Reserved0
            
            Other
        End Enum
        
        Public Enum FamilyValues As Integer
            
            Other = 1
            
            Unknown = 2
            
            Val_8086 = 3
            
            Val_80286 = 4
            
            Val_80386 = 5
            
            Val_80486 = 6
            
            Val_8087 = 7
            
            Val_80287 = 8
            
            Val_80387 = 9
            
            Val_80487 = 10
            
            Pentium_Family = 11
            
            Pentium_Pro = 12
            
            Pentium_II = 13
            
            Pentium_MMX = 14
            
            Celeron = 15
            
            Pentium_II_Xeon = 16
            
            Pentium_III = 17
            
            M1_Family = 18
            
            M2_Family = 19
            
            K5_Family = 25
            
            K6_Family = 26
            
            K6_2 = 27
            
            K6_III = 28
            
            Athlon = 29
            
            Power_PC_Family = 32
            
            Power_PC_601 = 33
            
            Power_PC_603 = 34
            
            Power_PC_603_ = 35
            
            Power_PC_604 = 36
            
            Alpha_Family = 48
            
            MIPS_Family = 64
            
            SPARC_Family = 80
            
            Val_68040 = 96
            
            Val_68xxx_Family = 97
            
            Val_68000 = 98
            
            Val_68010 = 99
            
            Val_68020 = 100
            
            Val_68030 = 101
            
            Hobbit_Family = 112
            
            Weitek = 128
            
            AMD_Athlon_TM_64_Processor_Family = 131
            
            AMD_Opteron_TM_Family = 132
            
            PA_RISC_Family = 144
            
            V30_Family = 160
            
            Pentium_III_Xeon = 176
            
            AS400_Family = 180
            
            Intel_Pentium_M_Processor = 185
            
            IBM390_Family = 200
            
            G6 = 203
            
            z_Architecture_base = 204
            
            i860 = 250
            
            i960 = 251
            
            SH_3 = 260
            
            SH_4 = 261
            
            ARM = 280
            
            StrongARM = 281
            
            Val_6x86 = 300
            
            MediaGX = 301
            
            MII = 302
            
            WinChip = 320
            
            INVALID_ENUM_VALUE = 0
        End Enum
        
        Public Enum PowerManagementCapabilitiesValues As Integer
            
            Unknown
            
            Not_Supported
            
            Disabled
            
            Enabled
            
            Power_Saving_Modes_Entered_Automatically
            
            Power_State_Settable
            
            Power_Cycling_Supported
            
            Timed_Power_On_Supported
        End Enum
        
        Public Enum ProcessorTypeValues As Integer
            
            Other = 1
            
            Unknown = 2
            
            Central_Processor = 3
            
            Math_Processor = 4
            
            DSP_Processor = 5
            
            Video_Processor = 6
            
            INVALID_ENUM_VALUE = 0
        End Enum
        
        Public Enum StatusInfoValues As Integer
            
            Other = 1
            
            Unknown = 2
            
            Enabled = 3
            
            Disabled = 4
            
            Not_Applicable = 5
            
            INVALID_ENUM_VALUE = 0
        End Enum
        
        Public Enum UpgradeMethodValues As Integer
            
            Other = 1
            
            Unknown = 2
            
            Daughter_Board = 3
            
            ZIF_Socket = 4
            
            Replacement_Piggy_Back = 5
            
            None = 6
            
            LIF_Socket = 7
            
            Slot_1 = 8
            
            Slot_2 = 9
            
            Val_370_Pin_Socket = 10
            
            Slot_A = 11
            
            Slot_M = 12
            
            INVALID_ENUM_VALUE = 0
        End Enum
        
        Public Enum VoltageCapsValues As Integer
            
            Val_5 = 1
            
            Val_3_3 = 2
            
            Val_2_9 = 4
        End Enum
        
        'Enumerator implementation for enumerating instances of the class.
        Public Class processorCollection
            Inherits Object
            Implements ICollection
            
            Private ObjectCollection As ManagementObjectCollection
            
            Public Sub New(ByVal objCollection As ManagementObjectCollection)
                MyBase.New
                ObjectCollection = objCollection
            End Sub
            
            Public ReadOnly Property Count As Integer Implements System.Collections.ICollection.Count
                Get
                    Return ObjectCollection.Count
                End Get
            End Property
            
            Public ReadOnly Property IsSynchronized As Boolean Implements System.Collections.ICollection.IsSynchronized
                Get
                    Return ObjectCollection.IsSynchronized
                End Get
            End Property
            
            Public ReadOnly Property SyncRoot As Object Implements System.Collections.ICollection.SyncRoot
                Get
                    Return Me
                End Get
            End Property
            
            Public Sub CopyTo(ByVal array As System.Array, ByVal index As Integer) Implements System.Collections.ICollection.CopyTo
                ObjectCollection.CopyTo(array, index)
                Dim nCtr As Integer
                nCtr = 0
                Do While (nCtr < array.Length)
                    array.SetValue(New processor(CType(array.GetValue(nCtr),System.Management.ManagementObject)), nCtr)
                    nCtr = (nCtr + 1)
                Loop
            End Sub
            
            Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
                Return New processorEnumerator(ObjectCollection.GetEnumerator)
            End Function
            
            Public Class processorEnumerator
                Inherits Object
                Implements System.Collections.IEnumerator
                
                Private ObjectEnumerator As ManagementObjectCollection.ManagementObjectEnumerator
                
                Public Sub New(ByVal objEnum As ManagementObjectCollection.ManagementObjectEnumerator)
                    MyBase.New
                    ObjectEnumerator = objEnum
                End Sub
                
                Public ReadOnly Property Current As Object Implements System.Collections.IEnumerator.Current
                    Get
                        Return New processor(CType(ObjectEnumerator.Current,System.Management.ManagementObject))
                    End Get
                End Property
                
                Public Function MoveNext() As Boolean Implements System.Collections.IEnumerator.MoveNext
                    Return ObjectEnumerator.MoveNext
                End Function
                
                Public Sub Reset() Implements System.Collections.IEnumerator.Reset
                    ObjectEnumerator.Reset
                End Sub
            End Class
        End Class
        
        'TypeConverter to handle null values for ValueType properties
        Public Class WMIValueTypeConverter
            Inherits TypeConverter
            
            Private baseConverter As TypeConverter
            
            Public Sub New(ByVal baseType As System.Type)
                MyBase.New
                baseConverter = TypeDescriptor.GetConverter(baseType)
            End Sub
            
            Public Overloads Overrides Function CanConvertFrom(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal srcType As System.Type) As Boolean
                Return baseConverter.CanConvertFrom(context, srcType)
            End Function
            
            Public Overloads Overrides Function CanConvertTo(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal destinationType As System.Type) As Boolean
                Return baseConverter.CanConvertTo(context, destinationType)
            End Function
            
            Public Overloads Overrides Function ConvertFrom(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal culture As System.Globalization.CultureInfo, ByVal value As Object) As Object
                Return baseConverter.ConvertFrom(context, culture, value)
            End Function
            
            Public Overloads Overrides Function CreateInstance(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal dictionary As System.Collections.IDictionary) As Object
                Return baseConverter.CreateInstance(context, dictionary)
            End Function
            
            Public Overloads Overrides Function GetCreateInstanceSupported(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
                Return baseConverter.GetCreateInstanceSupported(context)
            End Function
            
            Public Overloads Overrides Function GetProperties(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal value As Object, ByVal attributeVar() As System.Attribute) As PropertyDescriptorCollection
                Return baseConverter.GetProperties(context, value, attributeVar)
            End Function
            
            Public Overloads Overrides Function GetPropertiesSupported(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
                Return baseConverter.GetPropertiesSupported(context)
            End Function
            
            Public Overloads Overrides Function GetStandardValues(ByVal context As System.ComponentModel.ITypeDescriptorContext) As System.ComponentModel.TypeConverter.StandardValuesCollection
                Return baseConverter.GetStandardValues(context)
            End Function
            
            Public Overloads Overrides Function GetStandardValuesExclusive(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
                Return baseConverter.GetStandardValuesExclusive(context)
            End Function
            
            Public Overloads Overrides Function GetStandardValuesSupported(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
                Return baseConverter.GetStandardValuesSupported(context)
            End Function
            
            Public Overloads Overrides Function ConvertTo(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal culture As System.Globalization.CultureInfo, ByVal value As Object, ByVal destinationType As System.Type) As Object
                If (Not (context) Is Nothing) Then
                    If (context.PropertyDescriptor.ShouldSerializeValue(context.Instance) = false) Then
                        Return ""
                    End If
                End If
                Return baseConverter.ConvertTo(context, culture, value, destinationType)
            End Function
        End Class
        
        'Embedded class to represent WMI system Properties.
        <TypeConverter(GetType(System.ComponentModel.ExpandableObjectConverter))>  _
        Public Class ManagementSystemProperties
            
            Private PrivateLateBoundObject As System.Management.ManagementBaseObject
            
            Public Sub New(ByVal ManagedObject As System.Management.ManagementBaseObject)
                MyBase.New
                PrivateLateBoundObject = ManagedObject
            End Sub
            
            <Browsable(true)>  _
            Public ReadOnly Property GENUS As Integer
                Get
                    Return CType(PrivateLateBoundObject("__GENUS"),Integer)
                End Get
            End Property
            
            <Browsable(true)>  _
            Public ReadOnly Property [CLASS] As String
                Get
                    Return CType(PrivateLateBoundObject("__CLASS"),String)
                End Get
            End Property
            
            <Browsable(true)>  _
            Public ReadOnly Property SUPERCLASS As String
                Get
                    Return CType(PrivateLateBoundObject("__SUPERCLASS"),String)
                End Get
            End Property
            
            <Browsable(true)>  _
            Public ReadOnly Property DYNASTY As String
                Get
                    Return CType(PrivateLateBoundObject("__DYNASTY"),String)
                End Get
            End Property
            
            <Browsable(true)>  _
            Public ReadOnly Property RELPATH As String
                Get
                    Return CType(PrivateLateBoundObject("__RELPATH"),String)
                End Get
            End Property
            
            <Browsable(true)>  _
            Public ReadOnly Property PROPERTY_COUNT As Integer
                Get
                    Return CType(PrivateLateBoundObject("__PROPERTY_COUNT"),Integer)
                End Get
            End Property
            
            <Browsable(true)>  _
            Public ReadOnly Property DERIVATION As String()
                Get
                    Return CType(PrivateLateBoundObject("__DERIVATION"),String())
                End Get
            End Property
            
            <Browsable(true)>  _
            Public ReadOnly Property SERVER As String
                Get
                    Return CType(PrivateLateBoundObject("__SERVER"),String)
                End Get
            End Property
            
            <Browsable(true)>  _
            Public ReadOnly Property [NAMESPACE] As String
                Get
                    Return CType(PrivateLateBoundObject("__NAMESPACE"),String)
                End Get
            End Property
            
            <Browsable(true)>  _
            Public ReadOnly Property PATH As String
                Get
                    Return CType(PrivateLateBoundObject("__PATH"),String)
                End Get
            End Property
        End Class
    End Class
End Namespace