如何获取硬盘编号

Question

在cn.yahoo.com中搜索 硬盘序列号 就可以找到用vb实现的各种办法。

Answer 1

如何获取硬盘卷标、序列号和文件系统类型？
 　　 磁盘序列号在每次软盘或硬盘格式化后都重新生成，并且不回重复。许多程序员用此加密。其实也可以修改该函数，可以得到磁盘卷标和文件系统类型信息。声明：
Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias _
　 "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal _
　 lpVolumeNameBuffer As String, ByVal nVolumeNameSize　As Integer, _
　 lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _
　 lpFileSystemFlags　As Long, ByVal lpFileSystemNameBuffer As String, _
　 ByVal nFileSystemNameSize As Long) As Long代码：Function GetSerialNumber(sRoot As String) As Long
　　Dim lSerialNum As Long
　　Dim R As Long
　　Dim strLabel As String, strType As String
　　strLabel = String$(255, Chr$(0))
　　'磁盘卷标
　　strType = String$(255, Chr$(0))
　　'文件系统类型 一般为 FAT 
　　R = GetVolumeInformation(sRoot, strLabel, Len(strLabel), _
　　　　lSerialNum, 0, 0, strType, Len(strType))
　　GetSerialNumber = lSerialNum
　　'在 strLabel 中为 磁盘卷标
　　'在 strType　中为 文件系统类型
End Function用法：当驱动器不存在时，函数返回 0。如果是个非根目录，也将返回 0：lSerial = GetSerialNumber("c:\")

Answer 2

亝我要的不是磁盘序列号，我要的是硬盘的编号 
例如 腾龙四的编号为IC35LXXXVVA07
金钻四代DiamondMax Plus40 53073U6
Seagate酷鱼II代IDE硬盘ST330630A
这个如何用VB编程来获取这个编号

Answer 3

斑竹用VC编写的DLL，可以获得硬盘的型号、序列号以及计算机 ID，带Delphi的源程序，在Win2K下通过，但是没有在Win9X下试过，感兴趣的朋友可以在Win9X 下试一下，或者编写一个VB的范例。
函数以及定义：
function ReadPhysicalDrive(driveID:integer;buffer:Pointer;bufLen:integer):integer; stdcall; external 'DiskID.dll' name 'ReadPhysicalDriveInNT';
获得WinNT下的硬盘型号以及序列号。参数driveID为硬盘的位置，IDE1上的主盘为0，类推到IDE2上的从盘的driveID为3。
function ReadPhysicalDrive9X(driveID:integer;buffer:Pointer;bufLen:integer):integer; stdcall; external 'DiskID.dll' name 'ReadDrivePortsInWin9X'; 
获得Win9X下的硬盘型号以及序列号。参数同上
function getHardDriveComputerID:int64; stdcall; external 'DiskID.dll' name 'getHardDriveComputerID';
获得计算机的ID http://www.applevb.com/lib/diskio.rar
VC源程序 :
http://www.applevb.com/DiskID.rar

Answer 4

:-)http://www.csdn.net/expert/topic/934/934383.xml?temp=.7288172http://www.dapha.net/vb/list.asp?id=1886

Answer 5

http://www.csdn.net/Expert/topicview.asp?id=893191