VB中如何编程获取硬盘的ID

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

用fso很简单