HOW TO:获取硬盘物理序列号

.bCommandReg = bIDCmd

End With

End With

If DeviceIoControl(device, DFP_RECEIVE_DRIVE_DATA, scip, Marshal.SizeOf(scip), scop, Marshal.SizeOf(scop), bytRv, 0) <> 0 Then

Dim s As New StringBuilder()

Dim i As Integer

For i = 20 To 40 - 2 Step 2

s.Append(ChrW(scop.bBuffer((i + 1))))

s.Append(ChrW(scop.bBuffer(i)))

Next i

CloseHandle(device)

Return s.ToString().Trim()

End If

End If

End If

CloseHandle(device)

Return ""

End Function

End Class

第3楼. 由 lzmtw 于 2007-2-12 16:57:29 发表

参考了一个C#的,原出处不知在哪了.

第4楼. 由 lzmtw 于 2007-2-12 17:09:47 发表

才发现这个取的信息较全面:

Disk Serial Number"—Using the WMI Scripting Library

http://www.codeguru.com/vb/controls/vb_shell/comments.php/c3049/?thread=39850