idwma

不清楚pe里bat是默认管理员权限运行的吗
弹框外面不能套括号改了一下

@echo off&setlocal enabledelayedexpansion
chcp 437
for /f "delims=" %%i in ('^(echo list disk ^)^|diskpart^|find "Online"') do set/a n+=1
set/a n=!n!-1
for /l %%i in (0,1,!n!) do ((echo select disk %%i &echo detail disk)|diskpart|findstr /i "volume.*no" &&set f=%%i)
if not defined f start mshta vbscript:msgbox("没找到卷标为no的分区",0,"%提醒%")(window.close)&&exit
for /l %%i in (0,1,!n!) do (
	for /f "tokens=2,3 delims= " %%a in ('^(echo select disk %%i ^&echo detail disk^)^|diskpart^|findstr /i "volume.*no"') do (
		if exist %%b:\window\system32 (
			(echo select disk %%i
			echo select volume %%a
			echo delete volume)|diskpart
			for /f "tokens=2 delims= " %%c in ('^(echo select disk %%i ^&echo list part^)^|diskpart^|findstr "system Reserved Recovery"') do (
				if not "%%c"=="" (
				(echo sel disk %%i
				echo sel part %%c 
				echo del part override)|diskpart)
			)
		)
	)
)
pause
复制代码

idwma

那再换一个方式

@echo off&setlocal enabledelayedexpansion
chcp 437
echo list vol|diskpart|findstr /i "volume.*no" &&set f=1
if not defined f start mshta vbscript:msgbox("没找到卷标为no的分区",0,"%提醒%")(window.close)&&exit
	for /f "tokens=2,3 delims= " %%a in ('echo list vol^|diskpart^|findstr /i "volume.*no"') do (
		if exist %%b:\window\system32 (
			(echo select volume %%a
			echo delete volume)|diskpart
			for /f "tokens=2 delims=* " %%c in ('^(echo sel vol %%a ^&echo list part^)^|diskpart^|findstr "system Reserved Recovery"') do (
				(echo select volume %%a
				echo sel part %%c 
				echo del part override)|diskpart
			)
		)
	)
pause
复制代码

idwma

回复 8# 5i365

一样的吧我试了一下这样也可以删

idwma

尴尬呀复制你给的信息,有没发现这行少了什么if exist %%b:\windows\system32 (

idwma

再改一下加个判断
还是套娃嘛一层不行就两层...

@echo off&setlocal enabledelayedexpansion
chcp 437
echo list vol|diskpart|findstr /i "volume.*no" &&set f=1
if not defined f start mshta vbscript:msgbox("没找到卷标为no的分区",0,"%提醒%")(window.close)&&exit
for /f "tokens=2,3 delims= " %%a in ('echo list vol^|diskpart^|findstr /i "volume.*no"') do (
	if exist %%b:\windows\system32 (
		(echo select volume %%a
		echo delete volume)|diskpart
		call :re
		for /f "tokens=2 delims=* " %%c in ('^(echo sel vol %%a ^&echo list disk^)^|diskpart^|findstr "*"') do set disk=%%c
	)
)
:ll
for /f "tokens=2 delims= " %%a in ('echo list vol^|diskpart^|findstr /i "volume.*no"') do (
	for /f "tokens=2 delims=* " %%b in ('^(echo sel vol %%a ^&echo list disk^)^|diskpart^|findstr "*"') do (
		if "!disk!"=="%%b" (
			(echo select volume %%a
			echo delete volume)|diskpart
			goto :ll
		)
	)
)
pause
goto :eof

:re
for /f "tokens=2 delims=* " %%c in ('^(echo sel vol %%a ^&echo list part^)^|diskpart^|findstr "System Reserved Recovery"') do (
	if not "%%c"=="" (
		(echo select volume %%a
		echo sel part %%c 
		echo del part override)|diskpart
		goto :re
	)
)
复制代码

idwma

回复 29# 5i365


那再改一下换个方式

@echo off
chcp 437
echo list vol|diskpart|findstr /i "volume.*no" &&set f=1
if not defined f start mshta vbscript:msgbox("没找到卷标为no的分区",0,"%提醒%")(window.close)&&exit
for /f "tokens=2,3 delims= " %%a in ('echo list vol^|diskpart^|findstr /i "volume.*no"') do (
	if exist %%b:\windows\system32 (
		(echo select volume %%a
		echo delete volume)|diskpart
		for /f "tokens=2 delims=* " %%c in ('^(echo sel vol %%a ^&echo list disk^)^|diskpart^|findstr "*"') do set disk=%%c
	)
)

:re
for /f "tokens=2 delims= " %%c in ('^(echo select disk %disk% ^&echo list part^)^|diskpart^|findstr /i "System Reserved Recovery"') do (
	if not "%%c"=="" (
		(echo sel disk %disk%
		echo sel part %%c
		echo del part override)|diskpart
		goto :re
	)
)

:ll
for /f "tokens=2 delims= " %%a in ('^(echo select disk %disk% ^&echo detail disk^)^|diskpart^|findstr /i "volume.*no"') do (
	if not "%%a"=="" (
		(echo select volume %%a
		echo delete volume)|diskpart
		goto :ll
	)
)
pause
复制代码

idwma

通用定位有windows目录的卷来定位硬盘也一样的,可以少循环几次

idwma

回复 33# 5i365


    每次删完一个分区顺序会变,要重新获取一次位置这步省不了是慢一点

idwma

回复 36# 5i365

你看11行就是定位硬盘一样的
    不太清楚这样是不是顺序不会变可以试试

@echo off
if exist dsk.txt del dsk.txt
chcp 437
echo list vol|diskpart|findstr /i "volume.*no" &&set f=1
if not defined f start mshta vbscript:msgbox("没找到卷标为no的分区",0,"%提醒%")(window.close)&&exit
for /f "tokens=2,3 delims= " %%a in ('echo list vol^|diskpart^|findstr /i "volume.*no"') do (
	if exist %%b:\windows\system32 (
		for /f "tokens=2 delims=* " %%c in ('^(echo sel vol %%a ^&echo list disk^)^|diskpart^|findstr "*"') do set disk=%%c &BOOTICE /DEVICE=%%c /mbr /backup /sectors=1 /quiet /file=MBR_Bak
		(echo select volume %%a
		echo delete volume)|diskpart
	)
)

for /f "tokens=2 delims= " %%c in ('^(echo select disk %disk% ^&echo list part^)^|diskpart^|findstr /i "System Reserved Recovery"') do (
	if not "%%c"=="" (
		(echo sel disk %disk%
		echo sel part %%c
		echo del part override)>>dsk.txt
	)
)

for /f "tokens=2 delims= " %%a in ('^(echo select disk %disk% ^&echo detail disk^)^|diskpart^|findstr /i "volume.*no"') do (
	if not "%%a"=="" (
		(echo select volume %%a
		echo delete volume)>>dsk.txt
	)
)
echo;exit>>dsk.txt
if exist dsk.txt diskpart /s dsk.txt
del dsk.txt
for /f "tokens=3 delims= " %%c in ('echo list vol^|diskpart^|findstr /i "volume.*data"') do set data_pf=%%c
set no_yph=%disk%
pause
复制代码

idwma

回复 40# 5i365


    改了,应该可正常备份了
方法一不稳

idwma

回复 45# 5i365


    提示的中文显示多加个判断
变量的后面习惯性的多打了个空格

@echo off
chcp 437
echo list vol|diskpart|findstr /i "volume.*no" &&set f=1||chcp 936
if not defined f start mshta vbscript:msgbox("没找到卷标为no的分区",0,"%提醒%")(window.close)&&exit
if exist dsk.txt del dsk.txt
for /f "tokens=2,3 delims= " %%a in ('echo list vol^|diskpart^|findstr /i "volume.*no"') do (
	if exist %%b:\windows\system32 (
		for /f "tokens=2 delims=* " %%c in ('^(echo sel vol %%a ^&echo list disk^)^|diskpart^|findstr "*"') do set disk=%%c&BOOTICE /DEVICE=%%c /mbr /backup /sectors=1 /quiet /file=MBR_Bak
		(echo select volume %%a
		echo delete volume)|diskpart
	)
)

for /f "tokens=2 delims= " %%c in ('^(echo select disk %disk% ^&echo list part^)^|diskpart^|findstr /i "System Reserved Recovery"') do (
	if not "%%c"=="" (
		(echo sel disk %disk%
		echo sel part %%c
		echo del part override)>>dsk.txt
	)
)

for /f "tokens=2 delims= " %%a in ('^(echo select disk %disk% ^&echo detail disk^)^|diskpart^|findstr /i "volume.*no"') do (
	if not "%%a"=="" (
		(echo select volume %%a
		echo delete volume)>>dsk.txt
	)
)
echo;exit>>dsk.txt
if exist dsk.txt diskpart /s dsk.txt
del dsk.txt
for /f "tokens=3 delims= " %%c in ('echo list vol^|diskpart^|findstr /i "volume.*data"') do set data_pf=%%c
set no_yph=%disk%
pause
复制代码

idwma

for /f "tokens=2 delims= " %%c in ('^(echo sel disk %disk% ^&echo list part^)^|diskpart^|findstr /i "Partition.*B"') do (
((echo sel disk %disk%
echo sel partition %%c
echo detail partition)|diskpart|findstr /i "C12A7328-F81F-11D2-BA4B-00A0C93EC93B DE94BBA4-06D1-4D40-A16A-BFD50179D6AC E3C9E316-0B5C-4DB8-817D-F92DF00215AE 其它系统下分区类型的ID"
)&&(
(echo sel disk %disk%
echo sel part %%c
echo del part override)>>dsk.txt
)
)
复制代码

回复 47# 5i365