批处理获取磁盘序列号和ID

batche

用wimc获取磁盘序列号，使用diskpart获取磁盘序ID

1. @echo off
   
2. %~1mshta vbscript:CreateObject("Shell.Application").ShellExecute("%~s0",":",,"runas",1)(window.close)&&exit
   
3. for /f "skip=1 tokens=2-3" %%a in ('wmic diskdrive get BytesPerSector^,Index^,SerialNumber') do (
   
4. echo,磁盘%%a 序列号:%%b
   
5. (echo,select disk %%a
   
6. echo,detail disk
   
7. ) | diskpart | find /i "ID:"
   
8. )
   
9. pause

复制代码

补充一下：Win7通过wimc获取到的序列号是每两个字节经过小端排序的hex字符串，需要转码，我写了一个适用于win7的转码脚本

1. @echo off
   
2. for /f "skip=1 tokens=2-3" %%a in ('wmic diskdrive get BytesPerSector^,Index^,SerialNumber') do (
   
3.     echo,磁盘%%a 序列号:
   
4.     powershell -c "$hexBytes=[regex]::Matches(\"%%b\",\".{4}\");$reversedHexBytes=foreach($hexByte in $hexBytes){$swappedByte=$hexByte.Value.Substring(2,2)+$hexByte.Value.Substring(0,2);$swappedByte -split '(..)'|?{$_}|%%{[System.Convert]::ToInt16($_,16)}};$filteredHexBytes=$reversedHexBytes|?{$_ -ne 32};$result=[System.Text.Encoding]::Default.GetString($filteredHexBytes);$result" 2>nul
   
5. )
   
6. pause

复制代码

yc2428

谢谢分享

conlin888

懂得越多，头发掉越快！

nttwqz

这次没用python

yyz2191958

谢谢分享

duhe303

不错。。。。

旁观者清

谢谢分享。

土著007

win7下wimc获取的硬盘序列号需要转码 很麻烦

batche

土著007 发表于 2023-6-30 13:03
win7下wimc获取的硬盘序列号需要转码 很麻烦

是的，请问有什么好方法吗？

wondaol

我用物理方法，直接看硬盘

conlin888

使用万能的PECMD,

set DiskNo=0
for /f "delims=" %%i in ('call pecmd.exe "team part -devidx list disk %DiskNo%,v|mstr * v1,v2=<-1><-6>v|writ -,$,序列号:%%v1%% ID:%%v2%%"') do @echo %%i
pause

smile_eer

谢谢分享

iaanqrm

unppnu

谢谢分享。

Aronnax

感谢楼主分享！

创新科技2015

谢谢分享

创新科技2015

谢谢分享

qingxuzhao

感谢分享

a2223843880

感谢分享

2275385864

以下是以前忘了哪里收藏的也是显示硬盘序列号的批处理

@echo off
cls
color 2f
echo.
echo.
echo.
:start
SetLocal EnableDelayedExpansion
call :SetAscVar
::获取硬盘序列号（16进制）。可能有多块硬盘，显示中字母行“SerialNumber”，还有2行空行，需要先处理。
for /f %%x in ('"wmic diskdrive get serialnumber|find " "|find /v /i "SerialNumber""')do (
        if not "%%x"=="" (
                set/adn+=1
                echo 硬盘!dn!：
                call :Ascii4Sn ASN %%x
                echo 16进制序列号：%%x
                echo 　硬盘序列号：!ASN!
                echo\
        )
)
pause >NUL 2>NUL&goto:start
call :Ascii4Sn ASN %sn%
echo 16进制序列号：%sn%
echo 　硬盘序列号：%ASN%
pause
goto :eof
::函数
:SetAscVar        //定义数字和字母的ASCII变量，需要先调用
set Num=0123456789
set Abc=ABCDEFGHIJKLMNOPQRSTUVWXYZ
set Hex=%Num%%Abc:~,6%
for /l %%i in (0 1 9)do set _0x3%%i=%%i
for /l %%i in (0 1 26)do call :AbcAsc %%i
goto :eof
:AbcAsc <offset>        //定义26个字母对应的ASCII变量
set/a Asc=0x41+%1,h=Asc/16,e=Asc%%16
set _0x!Hex:~%h%,1!!Hex:~%e%,1!=!Abc:~%1,1!
set/a as1=0x61+%1,h=as1/16,e=as1%%16
set _0x!Hex:~%h%,1!!Hex:~%e%,1!=!Abc:~%1,1!
goto :eof

:Ascii4Sn <str_var> <hexs>        //回传变量，长串16进制数
set hsn=%2
set ns=
set as=
:ASloop
set ns=%ns%%hsn:~2,2%%hsn:~,2%
set as=%as%!_0x%hsn:~2,2%!!_0x%hsn:~,2%!
set hsn=%hsn:~4%
if not "%hsn%"=="" goto :ASloop
set %1=%as%
goto :eof

plaodj

懂得越多，头发掉越快！

创新科技2015

谢谢分享

xwuyun.cn

谢谢分享

chris4

谢谢分享