|
|
楼主 |
发表于 2020-6-4 10:34:18
|
显示全部楼层
回复 2# Batcher
试了,没用,下面是完整代码
@echo off
cd /d %~dp0
%1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&exit
setlocal EnableDelayedExpansion
for /f "delims=:" %%a in ('findstr /n msmg设置 ..\set.txt') do set n=%%a
for /f "skip=%n% delims=" %%b in (..\set.txt) do (
for /f "tokens=1,2* delims=: " %%A in ('%%b\Bin\x64\DISM10\dism.exe /image:%%b\Mount\Install /Get-ProvisionedAppxPackages') do (
if "%%A"=="PackageName" (
cd. >list.txt
echo %%B>>list.txt
more "black_list.txt" | findstr "." >nul 2>&1 || goto :eof
for /f "delims=" %%i in ('findstr /g:black_list.txt /v list.txt 2^>nul') do (
%%b\Bin\x64\DISM10\dism.exe /image:%%b\Mount\Install /Remove-ProvisionedAppxPackage /PackageName:"%%i"
))))
endlocal
pause
exit /b |
|