感谢您使用微软产品。您可以使用WMI的Win32_Processor对象获得CPU的各项信息,如下例:Private Sub Command1_Click()WQL = "Select * From Win32_Processor"
Set objinst = GetObject("winmgmts:").ExecQuery(WQL)For Each obj In objinst    Debug.Print obj.Name
    Debug.Print obj.DeviceID
    Debug.Print obj.DescriptionNext
End Sub您可以使用WMI的Win32_VideoController对象获得显卡的各项信息,如下例:Private Sub Command2_Click()WQL = "Select * From Win32_VideoController"
Set objinst = GetObject("winmgmts:").ExecQuery(WQL)For Each obj In objinst    Debug.Print obj.AdapterCompatibility
    Debug.Print obj.AdapterRAM
    Debug.Print obj.MaxRefreshRate
     
Next
End Sub详细信息请参考:
Win32_Processor
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_processor.asp
Win32_VideoController
http://msdn.microsoft.com/library/en-us/wmisdk/wmi/win32_videocontroller.asp
- 微软全球技术中心 VB技术支持本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款
(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境,请参加我们的用户满意度调查
(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。
Best Wishes,
Ivie Zeng