包括硬盘号,MAC地址,CPU信息等 Dim strDiskID As String Dim hdd As HardDiskInfo.HardDiskInfo hdd = HardDiskInfo.AtapiDevice.GetHddInfo(0) strDiskID = hdd.SerialNumber Return strDiskID