Already did !
tks for nothing!
Public Class Processador
Private moReturn As System.management.ManagementObjectCollection
Private moSearch As Management.ManagementObjectSearcher
Private mo As Management.ManagementObject
Private sFabricante, sNome, sSerial, sVelocidade, sTipo, sDispositivo,
sClockMaximo As String
Private sL2CacheSize, sL2CacheSpeed, sLevel, sStepping As String
Sub New()
moSearch = New Management.ManagementObjectSearcher("Select * from
Win32_Processor")
moReturn = moSearch.Get
For Each mo In moReturn
Me.sFabricante = mo("Manufacturer").ToString.Trim
Me.sNome = mo("Name").ToString.Trim
Me.sSerial = mo("ProcessorID").ToString.Trim
Me.sVelocidade = mo("CurrentClockSpeed").ToString.Trim
Me.sTipo = mo("Description").ToString.Trim
Me.sDispositivo = mo("DeviceID").ToString.Trim
Me.sClockMaximo = mo("MaxClockSpeed").ToString.Trim
Me.sL2CacheSize = mo("L2CacheSize").ToString.Trim
Me.sL2CacheSpeed = mo("L2CacheSpeed").ToString.Trim
Me.sLevel = mo("Level").ToString.Trim
Me.sStepping = mo("Stepping").ToString.Trim
Next
End Sub
end Class
