哈哈!楼上兄台有点太专业了,楼主本身就是菜菜,你提供这么细那能看的明白啊,在说了他要的是硬件型号内存大小..等一类简单易懂的东东就行!!敢问楼主是这样吗?如果是的话呢你可以试一下这个比较简单的方法:
进以下网站下一个(everest)解压后直接运行(everest.exe)即可
http://www.orsoon.com/Soft/1775.html
#########################################
注:页面下方有4个下载地址,随便点一个就行
#########################################
网上找到的 应该是好用的 我手里没有vb 你试验一下吧!~
Function GetMainboardSerialNumber() As String
On Error Resume Next
Dim strComputer
Dim objWMIService
Dim objItem
Dim strOption
Dim colItems
GetMainboardSerialNumber = ""
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard")
For Each objItem In colItems
If objItem.SerialNumber <> "" Then
GetMainboardSerialNumber = objItem.SerialNumber
Exit Function
End If
Next
End Function