Определить аппаратный серийный номер флешки

@echo off&:: by Al
Setlocal EnableDelayedExpansion EnableExtensions
Echo.
::Џ®«гз*Ґ¬ PNPDeviceID Ё PhysicalDrive Name гбва®©бвў, Ї®¤Є«озҐ**ле Ї® Ё*вҐа䥩бг USB
echo ЏҐаҐзҐ*м cꥬ*ле **Є®ЇЁвҐ«Ґ©:
echo.
For /F "Skip=2 Tokens=2-4 delims=," %%i In (
  'WMIC DiskDrive Where InterfaceType^="USB" Get Name^,PNPDeviceID^,Model /Value /format:csv 2^>nul'
) do (
    Set AtLeastOneDevice=true
    Call :Get_USB_SN "%%k" Device_SN
    Call :GetPartition "%%j" Drives
    Echo Model: %%i
    Echo %%j
    Echo Disk^(s^):     !Drives!
    Echo Device S/N:         "!Device_SN!"
    Echo.
)
if not defined AtLeastOneDevice Echo ‘ꥬ*ле USB **Є®ЇЁвҐ«Ґ© *Ґ ®Ў**а㦥*®.
Echo.
Echo ЏҐаҐзҐ*м ¦ҐбвЄЁе ¤ЁбЄ®ў:
Echo.
For /F "Skip=2 Tokens=2-4 delims=," %%i In (
  'WMIC DiskDrive Where "InterfaceType^!^='USB'" Get Name^,PNPDeviceID^,Model /Value /format:csv'
) do (
    Call :GetPartition "%%j" Drives
    Call :Get_HDD_SN "%%j" Device_SN
    Echo Model: %%i
    Echo %%j
    Echo Disk^(s^):     !Drives!
    Echo Device S/N:         "!Device_SN!"
    Echo "!Device_SN!">>%~dp0file.txt
    Echo.
)
pause>nul
Goto :eof
 
::Џ*абЁ¬ з*бвм б бҐаЁ©*л¬ *®¬Ґа®¬ гбва®©бвў*
:Get_USB_SN %1-in.PNPDeviceID %2-out.Device_S/N
  Set "%~2="
  Set "PNP=%~1"
  Set "PNP=%PNP:\=" "%"
  Set "PNP=%PNP:;=" "%"
  Set "PNP=%PNP:&=" "%"
  Set _Prev=
  For %%i in ("%PNP%") do (
    if "!_Prev:~0,4!"=="REV_" (Set "%~2=%%~i"& Exit /B)
    Set "_Prev=%%~i"
  )
  Exit /B
 
:Get_HDD_SN %1.in-PhysicalDrive_Name %2-out.Device_S/N
  Set "tag=%~1"
  Set "tag=%tag:\=\\%"
  For /F "UseBackQ skip=2 tokens=2 delims=," %%i In (
    `wmic path Win32_PhysicalMedia where "tag='%tag%'" Get SerialNumber /format:csv`
  ) do call set "_serial=%%i"
  ::‚лиҐ ЁбЇ®«м§гҐвбп Call, зв®Ўл г¤*«Ёвм б«г¦ҐЎ*л© бЁ¬ў®« 0x0D Ё§ ЇҐаҐ¬Ґ**®©
  set "_serial=%_serial: =%"
  ::Џа®ўҐа塞 ЇаЁ§**Є 16-аЁз*®Ј® Є®¤* (®вўҐв ¤«Ё**®© 40 бЁ¬ў®«®ў)
  if "%_serial:~39,1%" neq "" Call :Hex_To_String "%_serial%" "_serial"
  set "%~2=%_serial%"
  Exit /B
 
:Hex_To_String %1-in.Reversed.Hex.Number %2-out.String
  SetLocal& set "x16=%~1"
  set n=45
  for %%A in (- . / 0 1 2 3 4 5 6 7 8 9) do set s.!n!=%%A& set /a n+=1
  set n=65
  for %%A in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do set s.!n!=%%A& set /a n+=1
  set n=97
  for %%A in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do set s.!n!=%%A& set /a n+=1
  set xs=
  for /L %%C in (0,4,8184) do (
    if "!x16:~%%C,1!"=="" goto _ex_Hex
    set /A cplus=%%C+2
    call set /A x10=0x%%x16:~!cplus!,2%%
    call set xs=!xs!%%s.!x10!%%
    set /A x10=0x!x16:~%%C,2!
    call set xs=!xs!%%s.!x10!%%
  )
  :_ex_Hex
  EndLocal& set "%~2=%xs%"& Exit /B
 
::Љ®*ўҐав*жЁп PhysicalDrive Name -> Partition Names -> Drive Names
  :GetPartition %1.in-PhysicalDrive_Name %2-out.Drive_Names
  Set "%~2="
  For /F "skip=2 delims==, tokens=3,6-7" %%i In (
    'WMIC path Win32_DiskDriveToDiskPartition get /format:csv'
  ) do (
    if %%i=="%~1" (
      For /F "skip=2 delims==, tokens=3-4,7" %%I In (
        'WMIC path Win32_LogicalDiskToPartition get Antecedent^,Dependent /format:csv'
      ) do (
        if "%%I,%%J"=="%%j,%%k" Set "%~2=!%~2! %%K"
  )))
  Exit /B
 
::WMIC path Win32_DiskDriveToDiskPartition WHERE "Antecedent like '%DRIVE0%'" GET Dependent
 
 
::WMIC path Win32_LogicalDiskToPartition get * /format:table
 
::Џ®«гз*Ґв §**зҐ*ЁҐ Ї®б«Ґ¤*ҐЈ® в®ЄҐ** ў бва®ЄҐ, ®в¤Ґ«Ґ**®Ј® ў ⥪б⥠гЄ*§***л¬ а*§¤Ґ«ЁвҐ«Ґ¬
::€¬ҐҐв ЇаҐЁ¬гйҐбвў® ЇҐаҐ¤ ¤агЈЁ¬Ё Ї*абҐа*¬Ё:
:: - а*§¤Ґ«ЁвҐ«п¬Ё ¬®Јгв Ўлвм *ҐЄ®в®алҐ бЇҐжбЁ¬ў®«л, **ЇаЁ¬Ґа §**Є "=";
:: - Є®«ЁзҐбвў® в®ЄҐ*®ў *Ґ®Ја**ЁзҐ*®.
:GetLastToken %1-in.Sting %2-in.Delimiter %3-out.Last_Token
Set "%~3="
Set "_String=%~1"
Set _nLastDelim=-1
for /L %%C in (0,1,8184) do (
  if "!_String:~%%C,1!"=="" Goto ex_GetLastToken
  if "!_String:~%%C,1!"=="%~2" Set _nLastDelim=%%C
)
:ex_GetLastToken
Set /A _nLastDelim+=1
Set "%~3=!_String:~%_nLastDelim%!"
Exit /B
 
::“¤*«пҐв бЇа*ў* «Ёи*ЁҐ Їа®ЎҐ«л, Ё«Ё ¤агЈЁҐ Ї®¤ап¤ Ё¤гйЁҐ бЁ¬ў®«л, §*¤***лҐ ЇҐаҐ¬Ґ**®© %2 (Symbol)
:RTrimSpaces %1-in.String %2-in.Symbol %3-out.String
Set "%~3="
Set "_String=%~1"
for /L %%C in (0,1,8184) do (
  if "!_String:~%%C,1!"=="" Goto ex_RTrimSpaces
  if "!_String:~%%C,1!"=="%~2" (if not Defined LastSpace (Set nSpace=%%C& Set LastSpace=true)) else (Set LastSpace=& Set nSpace=)
)
:ex_RTrimSpaces
if Defined nSpace (Set "%~3=!_String:~0,%nSpace%!") else (Set "%~3=!_String!")
Exit /B
 
::‚лвпЈЁў*Ґв ⥪бв ў*гваЁ Є*ўл祪 (Ї®Є* *Ґ а*Ў®в*Ґв!!!)
::”г*ЄжЁп бЇҐжЁ*«м*® **ЇЁб*** ¤«п WMI, ў Є®в®але Ї®б«Ґ¤*Ё¬ бЁ¬ў®«®¬ пў«пҐвбп 0x0D.
:UnQuote %1-in.String %2-out.String
Set "%~2="
for /L %%C in (1,1,8184) do (
  if "!_String:~%%C,1!"=="" Goto ex_GetLastToken
  if "!_String:~%%C,1!"=="^"" Set _nQuote=%%C
)
Set /A _nQuote-=1
(Set %~2=!_String:~1,%_nQuote%!)
Exit /B