VB可以使用Windows管理设备(WMI)进行读取计算机硬件信息。
创新互联长期为1000+客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为花都企业提供专业的成都网站设计、成都网站建设、外贸网站建设，花都网站改版等技术服务。拥有十余年丰富建站经验和众多成功案例,为您定制开发。
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，在有些系统中无法显示生产厂家等信息。
tmpstr=""
set fso=createObject("scripting.filesystemObject")
Set dc = fso.Drives
for each d in dc
If d.isReady Then
tmpstr=tmpstr "磁盘" d.DriveLetter ":" vbcrlf _
"可用空间：" (d.AvailableSpace/1024/1024/1024) " GB" vbcrlf _
"空余空间：" (d.FreeSpace/1024/1024/1024) " GB" vbcrlf _
"总空间大小：" (d.TotalSize/1024/1024/1024) " GB" vbcrlf _
"文件系统：" d.FileSystem vbcrlf _
"驱动器类型：" d.DriveType vbcrlf _
"是否就绪：" d.IsReady vbcrlf _
"路径：" d.Path vbcrlf _
"根目录：" d.RootFolder vbcrlf _
"序列号：" d.SerialNumber vbcrlf _
"共享名：" d.ShareName vbcrlf _
"卷名：" d.VolumeName vbcrlf vbcrlf
End If
Next
msgbox tmpstr
strResult += 磁盘类型: System.Convert.ToInt16(disk(DriveType).ToString())End IfMsgBox(strResult)NextEnd Sub总结：在VB.NET中，用API函数可以获取硬盘信息。原来熟悉API函数VB6程序员，可以对API函数声明进行适当的更改后，进行调用。利用FSO（文件系统对象）的Scrrun.DLL，也可以获得磁盘信息。在点虐 Framwork中，利用WMI可以获取更多的关于机器硬件的详细信息（参考System.Management命名空间）。
