1.hp omni120 t pc/q007 硬盘序列号?
2.日立 硬盘序列号代表什么？
3.怎么看HD Tune 硬盘检测工具的数据各代表了什么？
4.如何获取一个磁盘的句柄？
1、首先打开计算机，在“计算机”上右击,选择“管理”。
2、其次在弹出的窗口中,选择“磁盘管理”，把E盘号改成T盘,在E盘上右击,选择“更改驱动号和路径”。
3、然后在弹出的对话框中选择“更改”，在弹出的对话框中选择“T”。
4、最后点击确定即可。
hp omni120 t pc/q007 硬盘序列号?
你可以用希捷硬盘工具SEATOOLS测试,用WINDOWS版本的,可以看到硬盘的完整信息如SN\PN,再与硬盘贴纸对比,一致就表示硬盘非货(冒的).然后再进行短驱动测试,测试完后进行保修信息查询就可以知道你的是正品还是水货了,有保修的就是正品,如果保修期已过说明你的硬盘是翻新的.至于坏道问题,推荐你用HDTUNE查或者DISKGENIUS查,后者还可以修复物理坏道(理论上达到90%以上),这两个软件网上都可以下到,推荐上软件下载,不会中毒.
日立 硬盘序列号代表什么？
您好，中国惠普，很高兴为您服务!
每一款机器都有一个不同的硬盘序列号的，请问您这样咨询是机器的硬盘方面出现了问题么，如果是建议您尽快联系当地的金牌服务中心进行检测处理即可，关于金牌服务中心的****，您可以通过下面的网址选择您所在的省市及所使用的产品类型查询即可：://8.hp/cn/zh/support-drivers/esupport/ascpps.html
我是HP员工。
如果以上信息没有解决您的问题，您还可以继续追问，或是通过访问惠普技术支持网页( .hp/cn )寻求帮助。感谢您对惠普的支持。
怎么看HD Tune 硬盘检测工具的数据各代表了什么？
这是Hitachi Mobile 系列笔记本硬盘型号，字母含义如下：
Hitachi HTS545032B9A300 = 320GB, SATA 3Gb/s
H = Hitachi（日立）
T = 移动硬盘
S = 标准（E 代表可用性增强）
54 = 5400 RPM 72 = 7200 RPM
50 = 总容量—500GB
32 = 本型号容量，32 = 320GB
（25 = 250GB，16 = 160GB,
12 = 120GB，80 = 80GB）
B = 世代码
9 = 9.5mm Z 轴高度
A3 = 接口，SATA 3Gb/s (SA = 1.5Gb/s)
0 = 预留
0 = 特征码，0 = 无 (1 = BDE)
如何获取一个磁盘的句柄？
Maximum：最大传输速率Average：平均传输速率Access：存取时间Burst：随机传输速率CPU Usage：CPU使用率开始下边的选项快速扫描选择 勾选为快速扫描 反之普通扫描绿色方块代表状态正常1.查看硬盘的可用寿命在窗口的左上方有一个绿色的进度条，进度条的长度代表着硬盘的可用寿命，如果进度条充满整栏，说明你的硬盘寿命良好。如进度条已向左侧移动一段距离，说明寿命正在减少之中；越向左，则说明可用寿命越短。2.查看硬盘的各个指标状态Drive Health会自动检测当前硬盘的健康状况，并显示在主窗口的列表中。这里提供了RawRead Error Rate、Spin Up Time等项目，对我们来说最重要的是“Status”栏下面显示的值。下面笔者简单介绍各值的含义：OK：情况良好Attribute changed：某项特性被更改Dangerous changes：危险Pre T.E.C warning：警告如果该项数值为“OK”，即“AttributeName”前面显示为“√”的话，则说明一切正常，你用不着担心；如果数值为“Dangerous changes”或“Pre T.E.C warning”，即“AttributeName”前面显示为“!”的话，那就需要谨慎了。不过，如果显示为“UNLOCK IT!”则说明你的硬盘可能不支持或者未激活该功能。3.保存硬盘检测结果选择“Drive”菜单下的“Se Report→TextFile”项，可以将当前的检测结果保存到文本文件中。另外，在“Common Drive Settings”窗口中可以设置对硬盘可能出现的错误等级进行监测，并且还可以设置检测频率。三、查看硬盘信息激活“View”菜单下的“ShowDisk lnformation”项，我们可以在窗口的右侧查看到硬盘的相关信息，这一功能类似于硬件检测工具。从这里可以了解到硬盘的生产厂家、型号、产品序列号、Fireware版本、块大小、总的容量、当前扇区数、总的扇区数、磁道、磁头等资料，更重要的是在这里还可以查看硬盘的Ultra DMAT作模式，以及查看硬盘是否支持温控设置。如果支持温控，在Drive Temperature一项中会显示当前硬盘的温度。Drive Health占用的系统很少，我们可以将它添加到“启动”组中作为x作系统的一个后台服务运行，这样就可以在硬盘发生问题时及时得到警告，为重要资料的保存赢得宝贵的时间.红色方块代表存在缺陷
v
'模块
Option Explicit
'***************************************************************************************************************
'获取当前所有逻辑驱动器的根驱动器路径
'GetLogicalDriveStrings说明
'获取一个字串，其中包含了当前所有逻辑驱动器的根驱动器路径
'返回值
'Long，装载到lpBuffer的字符数量（排除空中止字符）。如缓冲区的长度不够，不能容下路径，则返回值就变成要求的缓冲区大小。零表示失败。会设置GetLastError
'参数表
'参数 类型及说明
'nBufferLength Long，lpBuffer字串的长度
'lpBuffer String，用于装载逻辑驱动器名称的字串。每个名字都用一个NULL字符分隔，在最后一个名字后面用两个NULL表示中止（空中止）
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
'****************************************************************************************************************
'判断驱动器的类型
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Const DRIVE_UNKNOWN = 0 '驱动器类型无法确定
Private Const DRIVE_NO_ROOT_DIR = 1 '驱动器根目录不存在
Private Const DRIVE_REMOVABLE = 2 '软盘驱动器或可移动盘
Private Const DRIVE_FIXED = 3 '硬盘驱动器
Private Const DRIVE_REMOTE = 4 'Network 驱动器
Private Const DRIVE_CDROM = 5 '光盘驱动器
Private Const DRIVE_RAMDISK = 6 'RAM 存储器
'****************************************************************************************************************
' CreateFile获取设备句柄
'参数
'lpFileName 文件名
'dwDesiredAccess 访问方式
'dwShareMode 共享方式
'ATTRIBUTES lpSecurityAttributes 安全描述符指针
'dwCreationDisposition 创建方式
'dwFlagsAndAttributes 文件属性及标志
' hTemplateFile 模板文件的句柄
'CreateFile这个函数用处很多，这里我们用它「打开」设备驱动程序，得到设备的句柄。
'操作完成后用CloseHandle关闭设备句柄。
'与普通文件名有所不同，设备驱动的「文件名」形式固定为「\\.\DeviceName」(注意在C程序中该字符串写法为「\\\\.\\DeviceName」)
'DeviceName必须与设备驱动程序内规定的设备名称一致。
'一般地，调用CreateFile获得设备句柄时，访问方式参数设置为0或GENERIC_READ|GENERIC_WRITE
'共享方式参数设置为FILE_SHARE_READ|FILE_SHARE_WRITE，创建方式参数设置为OPEN_EXISTING，其它参数设置为0或NULL。
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const GENERIC_READ = &H80000000 '允许对设备进行读访问
Private Const FILE_SHARE_READ = &H1 '允许读取共享
Private Const OPEN_EXISTING = 3 '文件必须已经存在。由设备提出要求
Private Const FILE_SHARE_WRITE = &H2 '允许对文件进行共享访问
'****************************************************************************************************************
'DeviceIoControl说明
'用途 实现对设备的访问—获取信息，发送命令，交换数据等。
'参数
'hDevice 设备句柄
'dwIoControlCode 控制码
'lpInBuffer 输入数据缓冲区指针
'nInBufferSize 输入数据缓冲区长度
'lpOutBuffer 输出数据缓冲区指针
'nOutBufferSize 输出数据缓冲区长度
'lpBytesReturned 输出数据实际长度单元长度
'lpOverled 重叠操作结构指针
Private Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, lpOverled As OVERLAPPED) As Long
Private Type SECURITY_ATTRIBUTES
nLength As Long '结构体的大小
lpSecurityDescriptor As Long '安全描述符（一个C-Style的字符串）。
bInheritHandle As Long '所创建出来的东西是可以被其他的子进程使用的
End Type
'查询存储设备还是适配器属性
Private Enum STORE_PROPERTY_ID
StorageDeviceProperty = 0 '查询设备属性
StorageAdapterProperty '查询适配器属性
End Enum
'查询存储设备属性的类型
Private Enum STORE_QUERY_TYPE
PropertyStandardQuery = 0 '读取描述
PropertyExistsQuery '测试是否支持
PropertyMaskQuery '读取指定的描述
PropertyQueryMaxDefined '验证数据
End Enum
'查询属性输入的数据结构
Private Type STORE_PROPERTY_QUERY
PropertyId As STORE_PROPERTY_ID '设备/适配器
QueryType As STORE_QUERY_TYPE '查询类型
AdditionalParameters(0) As Byte '额外的数据(仅定义了象徵性的1个字节)
End Type
Private Type OVERLAPPED
Internal As Long '保留给操作系统使用。用于保存系统状态，当GetOverLedRseult的返回值中没有设置ERROR_IO_PENDING时，本域为有效。
InternalHigh As Long '成员保留给操作系统使用。用于保存异步传输数据的长度。当GetOverLedRseult返回TRUE时，本域为有效。
offset As Long '指定开始进行异步传输的文件的一个位置。该位置是距离文件开头处的偏移值。在调用ReadFile或WriteFile之前，必须设置此分量。
OffsetHigh As Long '指定开始异步传输处的字节偏移的高位字部分。
hEvent As Long '指向一个的句柄，当传输完后将其设置为信号状态。
End Type
'存储设备的总线类型
Private Enum STORE_BUS_TYPE
BusTypeUnknown = 0
BusTypeScsi
BusTypeAtapi
BusTypeAta
BusType1394
BusTypeSsa
BusTypeFibre
BusTypeUsb
BusTypeRAID
BusTypeMaxReserved = &H7F
End Enum
'查询属性输出的数据结构
Private Type STORE_DEVICE_DESCRIPTOR
Version As Long '版本
Size As Long '结构大小
DeviceType As Byte '设备类型
DeviceTypeModifier As Byte 'SCSI-2额外的设备类型
RemovableMedia As Byte '是否可移动
CommandQueueing As Byte '是否支持命令队列
VendorIdOffset As Long '厂家设定值的偏移
ProductIdOffset As Long '产品ID的偏移
ProductRevisionOffset As Long '产品版本的偏移
SerialNumberOffset As Long '序列号的偏移
BusType As STORE_BUS_TYPE '总线类型
RawPropertiesLength As Long '额外的属性数据长度
RawDeviceProperties(0) As Byte '额外的属性数据(仅定义了象徵性的1个字节)
End Type
'计算控制码 IOCTL_STORE_QUERY_PROPERTY
Private Const IOCTL_STORE_BASE As Long = &H2D
Private Const METHOD_BUFFERED = 0
Private Const FILE_ANY_ACCESS = 0
'判断驱动器类别
Public Function TellDriveType(ByVal sDriveLetter As String) As String
Select Case GetDriveType(sDriveLetter)
Case DRIVE_UNKNOWN
TellDriveType = "驱动器类型无法确定"
Case DRIVE_NO_ROOT_DIR
TellDriveType = "驱动器根目录不存在"
Case DRIVE_CDROM
TellDriveType = "光盘驱动器"
Case DRIVE_FIXED
TellDriveType = "固定驱动器"
Case DRIVE_RAMDISK
TellDriveType = "RAM盘"
Case DRIVE_REMOTE
TellDriveType = "远程（网络）驱动器"
Case DRIVE_REMOVABLE
If UCase$(Left$(sDriveLetter, 1)) = "A" Or UCase$(Left$(sDriveLetter, 1)) = "B" Then
TellDriveType = "软盘"
Else
TellDriveType = "其他"
End If
TellDriveType = "可移动驱动器 - " & TellDriveType
Case Else
TellDriveType = "未知"
End Select
TellDriveType = TellDriveType & " - " & GetDriveBusType(sDriveLetter) & "总线"
End Function
'获取磁盘属性
Private Function GetDisksProperty(ByVal hDevice As Long, utDevDesc As STORE_DEVICE_DESCRIPTOR) As Boolean
Dim ut As OVERLAPPED
Dim utQuery As STORE_PROPERTY_QUERY
Dim lOutBytes As Long
With utQuery
.PropertyId = StorageDeviceProperty
.QueryType = PropertyStandardQuery
End With
GetDisksProperty = DeviceIoControl(hDevice, IOCTL_STORE_QUERY_PROPERTY, utQuery, LenB(utQuery), utDevDesc, LenB(utDevDesc), lOutBytes, ut)
End Function
Private Function CTL_CODE(ByVal lDeviceType As Long, ByVal lFunction As Long, ByVal lMethod As Long, ByVal lAccess As Long) As Long
CTL_CODE = (lDeviceType * 2 ^ 16&) Or (lAccess * 2 ^ 14&) Or (lFunction * 2 ^ 2) Or (lMethod)
End Function
'获取设备属息，希望得到系统中所安装的各种固定的和可移动的硬盘、优盘和CD/DVD-ROM/R/W的接口类型、序列号、产品ID等信息。
Private Function IOCTL_STORE_QUERY_PROPERTY() As Long
IOCTL_STORE_QUERY_PROPERTY = CTL_CODE(IOCTL_STORE_BASE, &H500, METHOD_BUFFERED, FILE_ANY_ACCESS)
End Function
'获取驱动器总线类型
Public Function GetDriveBusType(ByVal sDriveLetter As String) As String
Dim hDevice As Long
Dim ut As SECURITY_ATTRIBUTES
Dim utDevDesc As STORE_DEVICE_DESCRIPTOR
hDevice = CreateFile("\\.\" & sDriveLetter, GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, ut, OPEN_EXISTING, 0, 0)
If hDevice <> -1 Then
utDevDesc.Size = LenB(utDevDesc)
Call GetDisksProperty(hDevice, utDevDesc)
Select Case utDevDesc.BusType
Case BusType1394
GetDriveBusType = "1394"
Case BusTypeAta
GetDriveBusType = "Ata"
Case BusTypeAtapi
GetDriveBusType = "Atapi"
Case BusTypeFibre
GetDriveBusType = "Fibre"
Case BusTypeRAID
GetDriveBusType = "RAID"
Case BusTypeScsi
GetDriveBusType = "Scsi"
Case BusTypeSsa
GetDriveBusType = "Ssa"
Case BusTypeUsb
GetDriveBusType = "Usb"
Case BusTypeUnknown
GetDriveBusType = "未知"
Case Else
End Select
Call CloseHandle(hDevice)
End If
End Function
Public Sub findUsbHardDisk()
Dim r&, allDrives$, JustOneDrive$, pos%, DriveType&
Dim Diskfound% '是否移动硬盘
Dim AllDiskID$ '系统所有硬盘盘符
Dim retBusType$ '返回总线类型
allDrives$ = Space$(64) '建立缓冲区
r& = GetLogicalDriveStrings(Len(allDrives$), allDrives$) '获取系统里所有的逻辑驱动器名
allDrives$ = Left$(allDrives$, r&) '过滤尾部多余的空格字符
Do
pos% = InStr(allDrives$, Chr$(0)) '搜索Chr(0)的位置获取各驱动器名
If pos% Then
JustOneDrive$ = Left$(allDrives$, pos%) '得到驱动器名，含Chr(0)
pos% = InStr(JustOneDrive$, Chr$(0))
JustOneDrive$ = Mid$(JustOneDrive$, 1, pos% - 2) '分离Chr(0)和"\"
allDrives$ = Mid$(allDrives$, pos% + 1, Len(allDrives$)) '分离本次的一组字符，重新组合。
DriveType& = GetDriveType(JustOneDrive$) '判断驱动器类型
If DriveType& = DRIVE_FIXED Then
retBusType$ = GetDriveBusType(JustOneDrive$)
If retBusType$ = "Usb" Then
AllDiskID$ = AllDiskID$ & JustOneDrive$ '累加发现的移动硬盘盘符
Diskfound% = True
End If
End If
End If
Loop Until allDrives$ = "" '直到最后一组
If Diskfound% Then
MsgBox "发现移动硬盘 -->" & AllDiskID$, vbInformation, "结果"
Else
MsgBox "你的系统没有移动硬盘", vbInformation, "结果"
End If
End Sub
'窗体
Private Sub Command1_Click()
findUsbHardDisk
End Sub
