想问高手一个问题，怎么样在VB.net中不调用DLL来读取CPU的各项信息？用WMI可以吗？好象没有看到相应的信息嘛！ 问题点数：20、回复次数：22

回复1:怎么样读取CPU信息？

顶一下！

回复2:怎么样读取CPU信息？

就是WMI

回复3:怎么样读取CPU信息？

可是我看WMI里好象没有读取CPU的嘛？大哥指示一下，别的硬件信息都能读到的。

回复4:怎么样读取CPU信息？

Dim   search   As   New   ManagementObjectSearcher("SELECT   *   FROM   Win32_ComputerSystem")  
                  Dim   search   As   New   ManagementObjectSearcher("SELECT   *   FROM   Win32_OperatingSystem")  
 

回复5:怎么样读取CPU信息？

Dim   query   As   New   SelectQuery("Win32_bios")  
 

回复6:怎么样读取CPU信息？

自己看看，我没用过，只是看过

回复7:怎么样读取CPU信息？

大哥，那些好象都不是读CPU的嘛~~~！

回复8:怎么样读取CPU信息？

WMI   可以访问的信息类型有:  
        Win32_1394Controller  
        Win32_BaseBoard  
        Win32_Battery  
        Win32_BIOS  
        Win32_Bus  
        Win32_CacheMemory  
        Win32_CDROMDrive  
        Win32_CurrentProbe  
        Win32_DesktopMonitor  
        Win32_DeviceMemoryAddress  
        Win32_DiskDrive  
        Win32_DisplayConfiguration  
        Win32_DisplayControllerConfiguration  
        Win32_DMAChannel  
        Win32_Fan  
        Win32_FloppyController  
        Win32_FloppyDrive  
        Win32_HeatPipe  
        Win32_IDEController  
        Win32_InfraredDevice  
        Win32_IRQResource  
        Win32_Keyboard  
        Win32_MemoryArray  
        Win32_MemoryDevice  
        Win32_MotherboardDevice  
        Win32_NetworkAdapter  
        Win32_NetworkAdapterConfiguration  
        Win32_OnBoardDevice  
        Win32_ParallelPort  
        Win32_PCMCIAController  
        Win32_PhysicalMemory  
        Win32_PhysicalMemoryArray  
        Win32_PnPEntity  
        Win32_PointingDevice  
        Win32_PortableBattery  
        Win32_PortConnector  
        Win32_PortResource  
        Win32_POTSModem  
        Win32_PowerManagementEvent  
        Win32_Printer  
        Win32_PrinterConfiguration  
        Win32_PrintJob  
        Win32_Processor  
        Win32_Refrigeration  
        Win32_SerialPort  
        Win32_SerialPortConfiguration  
        Win32_SMBIOSMemory  
        Win32_SoundDevice  
        Win32_SystemEnclosure  
        Win32_SystemMemoryResource  
        Win32_SystemSlot  
        Win32_TapeDrive  
        Win32_TemperatureProbe  
        Win32_UninterruptiblePowerSupply  
        Win32_USBController  
        Win32_VideoConfiguration  
        Win32_VideoController  
        Win32_VoltageProbe

回复9:怎么样读取CPU信息？

哈，再给你查查

回复10:怎么样读取CPU信息？

试试，我要回去了，好运：  
          Private   Sub   Button1_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   Button1.Click  
                  Dim   Wmi   As   New   System.Management.ManagementObjectSearcher("SELECT   *   FROM   Win32_Processor")  
                  Dim   Uint32   As   String  
                  Dim   f   As   Management.PropertyData  
                  For   Each   WmiObj   As   ManagementObject   In   Wmi.Get  
                          For   Each   f   In   WmiObj.Properties  
                                  Dim   v   As   String  
                                  If   f.Value   Is   Nothing   Then  
                                          v   =   ""  
                                  Else  
                                          v   =   f.Value.ToString  
                                  End   If  
                                  Console.WriteLine(f.Name   &   ":     "   &   v)  
                          Next  
                  Next  
          End   Sub

回复11:怎么样读取CPU信息？

我的电脑是：  
   
  AddressWidth:     32  
  Architecture:     0  
  Availability:     3  
  Caption:     x86   Family   15   Model   2   Stepping   4  
  ConfigManagerErrorCode:      
  ConfigManagerUserConfig:      
  CpuStatus:     1  
  CreationClassName:     Win32_Processor  
  CurrentClockSpeed:     1991  
  CurrentVoltage:     33  
  DataWidth:     32  
  Description:     x86   Family   15   Model   2   Stepping   4  
  DeviceID:     CPU0  
  ErrorCleared:      
  ErrorDescription:      
  ExtClock:     100  
  Family:     178  
  InstallDate:      
  L2CacheSize:     512  
  L2CacheSpeed:     1991  
  LastErrorCode:      
  Level:     15  
  LoadPercentage:     13  
  Manufacturer:     GenuineIntel  
  MaxClockSpeed:     1991  
  Name:                                 Intel(R)   Pentium(R)   4   CPU   2.00GHz  
  OtherFamilyDescription:      
  PNPDeviceID:      
  PowerManagementCapabilities:      
  PowerManagementSupported:     False  
  ProcessorId:     3FEBFBFF00000F24  
  ProcessorType:     3  
  Revision:     516  
  Role:     CPU  
  SocketDesignation:     Socket   478  
  Status:     OK  
  StatusInfo:     3  
  Stepping:     4  
  SystemCreationClassName:     Win32_ComputerSystem  
  SystemName:     FK-A09-05  
  UniqueId:      
  UpgradeMethod:     4  
  Version:     型号   2，步进   4  
  VoltageCaps:      
   
 

回复12:怎么样读取CPU信息？

是不是太差劲了点，还是两年前配的。

回复13:怎么样读取CPU信息？

晚安

回复14:怎么样读取CPU信息？

大哥你太强了，崇拜你，以后跟着你混了。

回复15:怎么样读取CPU信息？

收藏~

回复16:怎么样读取CPU信息？

本文汇集了在.NET中得到计算机硬件信息的一些功能。  
   
  得到显示器分辨率    
  Dim   X   As   Short   =   System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width  
  Dim   Y   As   Short   =   System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height  
  MsgBox("您的显示器分辨率是："   &   X   &   "   X   "   &   Y)  
   
  得到特殊文件夹的路径    
  '"Desktop"桌面文件夹路径  
  MsgBox(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory))  
  '"Favorites"收藏夹路径  
  MsgBox(Environment.GetFolderPath(Environment.SpecialFolder.Favorites))  
  '"Application   Data"路径  
  MsgBox(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData))  
   
  '通用写法  
  'Dim   SPEC   As   String   =   Environment.GetFolderPath(Environment.SpecialFolder.XXXXXXX)  
  'XXXXXXX是特殊文件夹的名字  
   
  得到操作系统版本信息    
  MsgBox(Environment.OSVersion.ToString)  
   
  得到当前登录的用户名    
  MsgBox(Environment.UserName)  
   
  得到当前应用程序的路径    
  MsgBox(Environment.CurrentDirectory)  
   
  打开和关闭CD-ROM    
  '先新建模块  
  Module   mciAPIModule  
      Declare   Function   mciSendString   Lib   "winmm.dll"   Alias   "mciSendStringA"   _  
      (ByVal   lpstrCommand   As   String,   ByVal   lpstrReturnString   As   String,   _  
      ByVal   uReturnLength   As   Integer,   ByVal   hwndCallback   As   Integer)   As   Integer  
  End   Module  
   
  '打开CD-ROM    
  Dim   lRet   As   Long  
  lRet   =   mciSendString("set   cdAudio   door   open",   0&,   0,   0)  
   
  '关闭CD-ROM    
  Dim   lRet   As   Long  
  lRet   =   mciSendString("set   cdAudio   door   Closed",   0&,   0,   0)  
  '更多请参见  
  http://msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/mmcmdstr_8eyc.asp  
   
  得到计算机IP和计算机全名    
  Dim   MYIP   As   System.Net.IPHostEntry   =   System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)  
  MsgBox("您的IP地址："   &   (MYIP.AddressList.GetValue(0).ToString))  
  MsgBox("您的计算机全名："   &   (MYIP.HostName.ToString))  
   
  使用win32_operatingSystem   (wmi   Class)得到计算机信息    
  '添加ListBox在Form1_Load事件里，并引用system.Managment  
  Dim   opSearch   As   New   ManagementObjectSearcher("SELECT   *   FROM   Win32_OperatingSystem")  
  Dim   opInfo   As   ManagementObject  
  For   Each   opInfo   In   opSearch.Get()  
      ListBox1.Items.Add("Name:   "   &   opInfo("name").ToString())  
      ListBox1.Items.Add("Version:   "   &   opInfo("version").ToString())  
      ListBox1.Items.Add("Manufacturer:   "   &   opInfo("manufacturer").ToString())  
      ListBox1.Items.Add("Computer   name:   "   &   opInfo("csname").ToString())  
      ListBox1.Items.Add("Windows   Directory:   "   &   opInfo("windowsdirectory").ToString())  
  Next  
   
  列出计算机安装的全部字体，并添加到ListBox    
  '新建Form并添加ListBox和Button  
  Private   Sub   Button1_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   Button1.Click  
  Dim   fntCollection   As   InstalledFontCollection   =   New   InstalledFontCollection()  
  Dim   fntFamily()   As   FontFamily   <BR