USUÁRIO:
SENHA:
SALVAR LOGIN ?
Dicas
Visual Basic
(Miscelâneas)
Título da Dica:
Obtendo informações do processador utilizando WMI
Postada em 21/6/2003 por
cacá
Esse dica funcionará sem problemas no Windows 2000 e no XP. Para utlizar a WMI no Windows 98 vocês devem instalar o WMI Core. Vocês podem fazer o download em
http://www.microsoft.com/downloads/details.aspx?FamilyID=98a4c5ba-337b-4e92-8c18-a63847760ea5&DisplayLang=en
On Error Resume Next
Dim dcSet As SWbemObjectSet
Dim objItem As SWbemObject
Set dcSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf("Win32_Processor")
For Each objItem In dcSet
Debug.Print "AddressWidth: " & objItem.AddressWidth
Debug.Print "Architecture: " & objItem.Architecture
Debug.Print "Availability: " & objItem.Availability
Debug.Print "Caption: " & objItem.Caption
Debug.Print "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
Debug.Print "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
Debug.Print "CpuStatus: " & objItem.CpuStatus
Debug.Print "CreationClassName: " & objItem.CreationClassName
Debug.Print "CurrentClockSpeed: " & objItem.CurrentClockSpeed
Debug.Print "CurrentVoltage: " & objItem.CurrentVoltage
Debug.Print "DataWidth: " & objItem.DataWidth
Debug.Print "Description: " & objItem.Description
Debug.Print "DeviceID: " & objItem.DeviceID
Debug.Print "ErrorCleared: " & objItem.ErrorCleared
Debug.Print "ErrorDescription: " & objItem.ErrorDescription
Debug.Print "ExtClock: " & objItem.ExtClock
Debug.Print "Family: " & objItem.Family
Debug.Print "InstallDate: " & objItem.InstallDate
Debug.Print "L2CacheSize: " & objItem.L2CacheSize
Debug.Print "L2CacheSpeed: " & objItem.L2CacheSpeed
Debug.Print "LastErrorCode: " & objItem.LastErrorCode
Debug.Print "Level: " & objItem.Level
Debug.Print "LoadPercentage: " & objItem.LoadPercentage
Debug.Print "Manufacturer: " & objItem.Manufacturer
Debug.Print "MaxClockSpeed: " & objItem.MaxClockSpeed
Debug.Print "Name: " & objItem.Name
Debug.Print "OtherFamilyDescription: " & objItem.OtherFamilyDescription
Debug.Print "PNPDeviceID: " & objItem.PNPDeviceID
Debug.Print "PowerManagementCapabilities: " & objItem.PowerManagementCapabilities
Debug.Print "PowerManagementSupported: " & objItem.PowerManagementSupported
Debug.Print "ProcessorId: " & objItem.ProcessorId
Debug.Print "ProcessorType: " & objItem.ProcessorType
Debug.Print "Revision: " & objItem.Revision
Debug.Print "Role: " & objItem.Role
Debug.Print "SocketDesignation: " & objItem.SocketDesignation
Debug.Print "Status: " & objItem.Status
Debug.Print "StatusInfo: " & objItem.StatusInfo
Debug.Print "Stepping: " & objItem.Stepping
Debug.Print "SystemCreationClassName: " & objItem.SystemCreationClassName
Debug.Print "SystemName: " & objItem.SystemName
Debug.Print "UniqueId: " & objItem.UniqueId
Debug.Print "UpgradeMethod: " & objItem.UpgradeMethod
Debug.Print "Version: " & objItem.Version
Debug.Print "VoltageCaps: " & objItem.VoltageCaps
Next
Observação: Nem todos os objetos retornam resultados
CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados.
Powered by
HostingZone -
A melhor hospedagem para seu site
