硬盘,
Private Declare Function hardisk Lib kernel32 Alias GetVolumeInformationA (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Private Sub Form_Load()
On Error GoTo Err_Form_Load
Dim aa As Long
Dim VolName As String
Dim disnun As Long
Dim Maxlen As Long
Dim Sysflag As Long
Dim fsysName As String

aa = hardisk(c:\, VolName, 256, disnun, Maxlen, Sysflag, fsysName, 256)

MsgBox c 硬盘序列号(16制): & Hex(disnun)

Exit Sub
Err_Form_Load:
End Sub Function Comput()
On Error Resume Next
strComputer = .
Set objWMIService = GetObject(winmgmts:\\ & strComputer & \root\cimv2)
Set colItems = objWMIService.ExecQuery(Select * from Win32_BaseBoard, , 48)
For Each objItem In colItems
Debug.Print Caption: & objItem.Caption
Debug.Print ConfigOptions: & objItem.ConfigOptions
Debug.Print CreationClassName: & objItem.CreationClassName
Debug.Print Depth: & objItem.Depth
Debug.Print Description: & objItem.Description
Debug.Print Height: & objItem.Height
Debug.Print HostingBoard: & objItem.HostingBoard
Debug.Print HotSwappable: & objItem.HotSwappable
Debug.Print InstallDate: & objItem.InstallDate
Debug.Print Manufacturer: & objItem.Manufacturer
Debug.Print Model: & objItem.Model
Debug.Print Name: & objItem.Name
Debug.Print OtherIdentifyingInf & objItem.OtherIdentifyingInfo
Debug.Print PartNumber: & objItem.PartNumber
Debug.Print PoweredOn: & objItem.PoweredOn
Debug.Print Product: & objItem.Product
Debug.Print Removable: & objItem.Removable
Debug.Print Replaceable: & objItem.Replaceable
Debug.Print RequirementsDescription: & objItem.RequirementsDescription
Debug.Print RequiresDaughterBoard: & objItem.RequiresDaughterBoard
Debug.Print SerialNumber: & objItem.SerialNumber
Debug.Print SKU: & objItem.SKU
Debug.Print SlotLayout: & objItem.SlotLayout
Debug.Print SpecialRequirements: & objItem.SpecialRequirements
Debug.Print Status: & objItem.Status
Debug.Print Tag: & objItem.Tag
Debug.Print Version: & objItem.Version
Debug.Print Weight: & objItem.Weight
Debug.Print Width: & objItem.Width
Debug.Print
Next
End Function

注意：SerialNumber 所在的行就是 不知道,但我想VB 有这样的函数，盼望高手解答