包括硬盘号，MAC地址，CPU信息等 Dim strDiskID As String Dim hdd As HardDiskInfo.HardDiskInfo hdd = HardDiskInfo.AtapiDevice.GetHddInfo(0) strDiskID = hdd.SerialNumber Return strDiskID
高级硬盘信息获取源代码 Ver 1.0 =================================== 一个完整的高级硬盘信息获取源代码，没有使用微软的WMI，使用磁盘API函数获取。可以或者硬盘的有关信息，如磁盘固件版本、硬盘类型、硬盘型号、序列号、磁盘柱面、磁头数、扇区数。以及主从盘信息，磁盘空间大小，每扇区字节数，每簇扇区数等等详细的硬盘信息。同时附带一个很不错的饼图绘制类文件，可以以百分比的饼图显示磁盘使用状态。最为高级的是可以获取磁盘的健康状态，如最差值等。总之一个不错的简练
