'用WMI,工程-引用 Microsoft WMI Scripting V1.1 Library '以下是获得显卡型号
Private Sub Command1_Click() wmiVideoControllerInfo End Sub
Private Sub wmiVideoControllerInfo() Dim wmiObjSet As SWbemObjectSet Dim obj As SWbemObject Set wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _ InstancesOf("Win32_VideoController") On Local Error Resume Next
For Each obj In wmiObjSet MsgBox obj.VideoProcessor Next
End Sub
'用WMI,记得先工程-引用 Microsoft WMI Scripting V1.1 Library '以下是获得声卡型号
Private Sub Command1_Click() wmiSoundDeviceInfo End Sub
Private Sub wmiSoundDeviceInfo()
Dim wmiObjSet As SWbemObjectSet Dim obj As SWbemObject
Set wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _ InstancesOf("Win32_SoundDevice") On Local Error Resume Next
For Each obj In wmiObjSet MsgBox obj.ProductName Next End Sub
---------------------------------------------------------------
'用WMI,工程-引用 Microsoft WMI Scripting V1.1 Library
'以下是获得显卡型号
Private Sub Command1_Click()
wmiVideoControllerInfo
End Sub
Private Sub wmiVideoControllerInfo()
Dim wmiObjSet As SWbemObjectSet
Dim obj As SWbemObject
Set wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf("Win32_VideoController")
On Local Error Resume Next
For Each obj In wmiObjSet
MsgBox obj.VideoProcessor
Next
End Sub
'用WMI,记得先工程-引用 Microsoft WMI Scripting V1.1 Library
'以下是获得声卡型号
Private Sub Command1_Click()
wmiSoundDeviceInfo
End Sub
Private Sub wmiSoundDeviceInfo()
Dim wmiObjSet As SWbemObjectSet
Dim obj As SWbemObject
Set wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf("Win32_SoundDevice")
On Local Error Resume Next
For Each obj In wmiObjSet
MsgBox obj.ProductName
Next
End Sub
总结文章
在VB中使用WMI获取系统硬件和软件有关信息
http://www.csdn.net/Develop/read_article.asp?id=23371
看能不能通过API函数实现,回家试一试。