Sub DriverSerialNumber()
Dim FileSys As New FileSystemObject
Dim Drivers As Drives, Driver As Drive
For Each Driver In FileSys.Drives
If Driver.DriveType = Fixed Then
Debug.Print Driver.SerialNumber
End If
Next
End Sub
以上程序需要加载scrrun.dll
不知版主的程序和我的程序返回的内容是否相同。
警告：你最好不要使用以上的方式返回的硬盘号，因为如果别人使用硬盘镜像的话，号码会相同的。（同型号同大小的硬盘）
