论坛 › 『 提问交流 』 › 如何获取硬盘的物理序列号

xqe 发表于 2011-7-2 10:01:18

如何获取硬盘的物理序列号

请问有关于获取硬盘物理序列号的代码么

happytc 发表于 2011-7-2 10:06:12

你都不会先搜一下？

panjizeng 发表于 2011-7-2 12:13:05

DriveGetSerial ( "路径" )

menfan1 发表于 2011-7-2 15:35:22

UDF里也有哦，搜索一下吧

syhw222 发表于 2011-7-3 19:23:36

我也想知道

水木子 发表于 2011-7-3 22:44:37

本帖最后由 水木子 于 2011-7-3 22:45 编辑

4楼的回复不对！
本论坛大神P版主写过相关UDF函数。
http://www.autoitx.com/forum.php?mod=viewthread&tid=9507&highlight=

xqe 发表于 2011-7-4 13:53:08

积分不够看不到`

user3000 发表于 2011-7-8 03:46:43

本帖最后由 pusofalse 于 2011-3-15 22:48 编辑#include <WinAPI.au3>

Const $IOCTL_STORAGE_BASE = 0x2D
Const $IOCTL_STORAGE_QUERY_PROPERTY = _MakeCtrlCode($IOCTL_STORAGE_BASE, 0x500)
Const $DFP_RECEIVE_DRIVE_DATA = 0x7C088

Const $tagSTORAGEPROPERTYQUERY = "int PropertyId;int QueryType;byte AdditionalParams"
Const $tagSTORAGEDEVICEDESCRIPTOR = "ulong Version;ulong Size;byte DeviceType;" & _
                        "byte DeviceTypeModifier;byte RemovableMedia;" & _
                        "byte CommandQueueing;ulong VendorIdOffset;" & _
                        "ulong ProductIdOffset;ulong ProductRevisionOffset;" & _
                        "ulong SerialNumberOffset;int BusType;" & _
                        "ulong RawPropertiesLength;byte RawDeviceProperties"
Const $tagDRIVERSTATUS = "byte DriverError;byte IDEStatus;byte Reserved1;dword Reserved2"
Const $tagIDEREGS = "byte Features;byte SectorCount;byte SectorNumber;byte CylLow;" & _
                        "byte CylHigh;byte DriveHead;byte Command;byte Reserved"
Const $tagSENDCMDOUTPARAMS = "dword Size;" & $tagDRIVERSTATUS
Const $tagSENDCMDINPARAMS = "dword Size;" & $tagIDEREGS & ";byte DriveNumber;" & _
                        "byte Reserved1;dword Reserved2;byte Buffer"

$sPhysDisk = "\\.\PhysicalDrive0"
$hDisk = _WinAPI_CreateFile($sPhysDisk, 2, 6, 6, 1)
If $hDisk = -1 Then
      Exit(ConsoleWrite("_WinAPI_CreateFile fails, error code: " & _WinAPI_GetLastError() & @CRLF))
EndIf

$tSCIP = DllStructCreate($tagSENDCMDINPARAMS)
$tSCOP = DllStructCreate($tagSENDCMDOUTPARAMS & ";char Buffer")
$tQuery = DllStructCreate($tagSTORAGEPROPERTYQUERY)
$tDescr = DllStructCreate($tagSTORAGEDEVICEDESCRIPTOR)
DllStructSetData($tQuery, "PropertyId", 0)
DllStructSetData($tQuery, "QueryType", 0)

$iResult = _DeviceIoControl($hDisk, $IOCTL_STORAGE_QUERY_PROPERTY, _
                $tQuery, DllStructGetSize($tQuery), _
                $tDescr, DllStructGetSize($tDescr))
If $iResult = 0 Then
      Exit(ConsoleWrite("_DeviceIoControl fails, error code: " & @error & @CRLF))
EndIf

If DllStructGetData($tDescr, "BusType") = 2 Then
      DllStructSetData($tSCIP, "Command", 0xA1)
Else
      DllStructSetData($tSCIP, "Command", 0xEC)
EndIf

$iResult = _DeviceIoControl($hDisk, $DFP_RECEIVE_DRIVE_DATA, _
                $tSCIP, DllStructGetSize($tSCIP), _
                $tSCOP, DllStructGetSize($tSCOP))
If $iResult = 0 Then
      Exit(ConsoleWrite("_DeviceIoControl fails, error code: " & @error & @CRLF))
EndIf

Dim $sSerialNum
For $i = 21 to 40 Step 2
      $sSerialNum &= DllStructGetData($tSCOP, "Buffer", $i + 1)
      $sSerialNum &= DllStructGetData($tSCOP, "Buffer", $i)
Next
$sSerialNum = StringReplace($sSerialNum, " ", "")
Msgbox(0, "", $sPhysDisk & "'s serial number: " & $sSerialNum)

$tSCIP = 0
$tSCOP = 0
$tQuery = 0
$tDescr = 0
_WinAPI_CloseHandle($hDisk)

Func _MakeCtrlCode($iDevType, $iFunction, $iMethod = 0, $iAccess = 0)
      Return bitOR(bitShift($iDevType,-16),bitShift($iAccess, -14),bitShift($iFunction, -2), $iMethod)
EndFunc      ;==>_MakeCtrlCode

Func _DeviceIoControl($hDevice, $iCtrlCode, $pIn, $iIn, $pOut, $iOut, $pOverlapped = 0)
      Local $iResult

      If IsDllStruct($pIn) Then $pIn = DllStructGetPtr($pIn)
      If IsDllStruct($pOut) Then $pOut = DllStructGetPtr($pOut)
      If IsDllStruct($pOverlapped) Then $pOverlapped = DllStructGetPtr($pOverLapped)
      $iResult = DllCall("Kernel32.dll", "int", "DeviceIoControl", "ptr", $hDevice, _
                        "dword", $iCtrlCode, "ptr", $pIn, "dword", $iIn, _
                        "ptr", $pOut, "dword", $iOut, "int*", 0, "ptr", $pOverlapped)
      Return SetError(_WinAPI_GetLastError(), $iResult, $iResult)
EndFunc      ;==>_DeviceIoControl

dyd 发表于 2011-7-8 17:42:41

好东东顶,,,,,

44003434 发表于 2011-7-8 18:41:21

$sn = dllcall("DiskSerial.dll","int","GetSerialNumber","int","nDrive","str","lpBuffer")
$sn
DiskSerial.dll自己去下载.我就不上传了

yorker0503 发表于 2011-7-9 10:14:37

这个好啊~~~~

tigercc99 发表于 2011-7-9 11:04:09

没怎么看明白

查看完整版本: 如何获取硬盘的物理序列号