AutoHotkey Community

RegCode := 000000000000
Drive   := 0

hModule := DllCall("LoadLibrary", "Str", "GetDiskSerial.dll")

Serial := DllCall("GetDiskSerial\GetSerialNumber", Int, Drive, Str, RegCode)

Model := DllCall("GetDiskSerial\GetModelNumber", Int, Drive, Str, RegCode)

Revision := DllCall("GetDiskSerial\GetRevisionNo", Int, Drive, Str, RegCode)

Buffer := DllCall("GetDiskSerial\GetBufferSize", Int, Drive, Str, RegCode)

Cylinders := DllCall("GetDiskSerial\GetCylinders", Int, Drive, Str, RegCode)

Heads := DllCall("GetDiskSerial\GetHeads", Int, Drive, Str, RegCode)

Sectors := DllCall("GetDiskSerial\GetSectors", Int, Drive, Str, RegCode)

DllCall("FreeLibrary", "UInt", hModule)

MsgBox Serial: %Serial%`nModel: %Model%`nRevision: %Revision%`nBuffer: %Buffer%`nCylinders: %Cylinders%`nHeads: %Heads%`nSectors: %Sectors%

COM_Init()
MsgBox, % WMI_Query("root\cimv2", "Win32_PhysicalMedia", "SerialNumber")
;   . WMI_Query("root\cimv2", "Win32_DiskDrive", "Model")
COM_Term()
Return

WMI_Query(Namespace, Class, Property)
{
   psvc :=   COM_GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\" . Namespace)
   pset :=   COM_Invoke(psvc, "ExecQuery", "SELECT * FROM " . Class)
   penm :=   COM_Invoke(pset, "_NewEnum")
   Loop
      If   COM_Enumerate(penm, pobj) = 0
         sRes .=   Property . " = " . COM_Invoke(pitm:=COM_Invoke(pprs:=COM_Invoke(pobj, "Properties_"), "Item", Property), "Value") . SubStr(COM_Release(pitm) . COM_Release(pprs) . COM_Release(pobj),1,0) . "`n"
      Else   Break
   COM_Release(penm)
   COM_Release(pset)
   COM_Release(psvc)
   Return   sRes
}

idxDrv   := 0 ; 1, 2, etc
If Not   1 + hDrive:=DllCall("CreateFile", "str", "\\.\PhysicalDrive" . idxDrv, "Uint", 0, "Uint", 3, "Uint", 0, "Uint", 3, "Uint", 0, "Uint", 0)
   ExitApp

VarSetCapacity(qr,12,0), VarSetCapacity(dd,8,0)
; IOCTL_STORAGE_QUERY_PROPERTY
If   DllCall("DeviceIoControl", "Uint", hDrive, "Uint", 0x002D1400, "Uint", &qr, "Uint", VarSetCapacity(qr), "Uint", &dd, "Uint", VarSetCapacity(dd), "UintP", nReturn, "Uint", 0)
&&   VarSetCapacity(dd,NumGet(dd,4))
&&   DllCall("DeviceIoControl", "Uint", hDrive, "Uint", 0x002D1400, "Uint", &qr, "Uint", VarSetCapacity(qr), "Uint", &dd, "Uint", VarSetCapacity(dd), "UintP", nReturn, "Uint", 0)
   MsgBox, % ((nOff:=NumGet(dd,24,"int"))<>-1 ? "Serial Number:`t""" . DecodeSN(DllCall("msvcrt\abs", "int", &dd+nOff, "Cdecl Str")) . """`n" : "")
      . ((nOff:=NumGet(dd,16)) ? "Model Number:`t""" . DllCall("msvcrt\abs", "int", &dd+nOff, "Cdecl Str") . """`n" : "")
      . ((nOff:=NumGet(dd,20)) ? "Revision Number:`t""" . DllCall("msvcrt\abs", "int", &dd+nOff, "Cdecl Str") . """`n" : "")

DllCall("CloseHandle", "Uint", hDrive)
Return

DecodeSN(h)
{
   Loop, %   StrLen(h)//4
      SN .= Chr("0x" . SubStr(h,4*A_Index-1,2)) . Chr("0x" . SubStr(h,4*A_Index-3,2))
   Return   SN
}