win10提取聚焦壁纸

echo off
C:
rem 创建壁纸文件夹
md C:\Users\%username%\Pictures\壁纸\
rem 进入壁纸文件夹
cd C:\Users\%username%\Pictures\壁纸\
copy C:\Users\%username%\AppData\Local\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets\* *.jpg


(echo \'获取图片文件的宽、高
echo On Error Resume Next
echo Dim Img
echo Set Img = CreateObject^("WIA.ImageFile"^)
echo Img.LoadFile WScript.Arguments^(0^)
echo Wscript.Echo Img.Width ^& "x" ^& Img.Height ^& "x" ^& Img.HorizontalResolution)>"%tmp%\GetImgInfo.vbs"


set Pic=*.jp*g,*.png,*.bmp,*.gif

for %%a in (%Pic%) do (
    for /f "tokens=1-3 delims=x" %%b in (\'cscript -nologo "%tmp%\GetImgInfo.vbs" "%%~sa"\') do (
        echo %%~nxa    像素: %%~bx%%~c  分辨率: %%~d dpi
        if  %%~b neq 1920 (del %%~nxa)
    )
)

注: 保存ANSI编码格式的.bat文件，否则中文乱码