我用的如下代码：
If HardWareInfo.Ready = False '如果没有初始化
HardWareInfo.Initialize '初始化HardWareInfo,提取硬件信息
End If
Output.Show("CPU信息")
With HardWareInfo.CPU
Output.Show("制造商:" & .Manufacturer)
Output.Show("品名:" & .Name)
Output.Show("型号:" & .Description)
Output.Show("序列号:" & .ProcessorId)
End With
Output.Show(Chr(13) & Chr(10))
Output.Show("主板信息")
With HardWareInfo.BaseBoard
Output.Show("制造商:" & .Manufacturer)
Output.Show("型号:" & .Product)
Output.Show("序列号:" & .SerialNumber)
End With
Output.Show(Chr(13) & Chr(10))
Output.Show("硬盘信息")
With HardWareInfo.Disk
Output.Show("型号:" & .Model)
Output.Show("序列号:" & .Signature)
End With
Output.Show(Chr(13) & Chr(10))
Output.Show("BIOS信息")
With HardWareInfo.Bios
Output.Show("厂商:" & .Manufacturer)
Output.Show("序列号:" & .SerialNumber)
End With
加好友 
发短信
Post By：2014/7/11 15:02:00 [显示全部帖子]
