Question

请教，如何用VB获取计算机硬件信息

Answer 1

VB可以使用Windows管理设备(WMI)进行读取计算机硬件信息。
Dim s, System, item
Dim i As Integer

Set System = GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")
For Each item In System
‘List1.AddItem item.cputype
s = "Computer Info" & vbCrLf
s = s & "***********************" & vbCrLf
s = s & "计算机名称: " & item.name & vbCrLf
s = s & "状态: " & item.Status & vbCrLf
s = s & "类型: " & item.SystemType & vbCrLf
s = s & "生产厂家: " & item.Manufacturer & vbCrLf
s = s & "型号: " & item.Model & vbCrLf
s = s & "内存: ~" & item.totalPhysicalMemory \ 1024000 & "mb" & vbCrLf
s = s & "域: " & item.domain & vbCrLf
‘s = s & "工作组" & item.Workgroup & vbCrLf ‘获得工作组和域的选项不能同时用

s = s & "当前用户: " & item.username & vbCrLf
s = s & "启动状态" & item.BootupState & vbCrLf
s = s & "该计算机属于" & item.PrimaryOwnerName & vbCrLf
s = s & "系统类型" & item.CreationClassName & vbCrLf
s = s & "计算机类类型" & item.Description & vbCrLf

For i = 0 To 1 ‘这里假设安装了两个系统
s = s & Chr(5) & "启动选项" & i & " :" & item.SystemStartupOptions(i) _
& vbCrLf
Next i
Next

Text1.Text = s

运行上面的代码后，在textBox中就可以显示计算机的信息。

在上面的代码中，程序通过GetObject("winmgmts:")获得WMI对象，然后获得下面的
Win32_ComputerSystem子项并通过访问Win32_ComputerSystem对象中的分项获得系统中的信息。
*需要说明的是，并不是所有的系统都支持WMI，在有些系统中无法显示生产厂家等信息。