[08年11月3日更新，再更新就是适用于VISTA下了]新版解决盘符错乱批处理

victor888 · 发表于 2008-10-11 23:18:31

只要有热心朋友的参与，这个脚本肯定会做到最好！BEST GOING......
＝＝
在此感谢MSFN论坛的JACLAZ和CN-DOS的顶级批处理高手的指点！

本次更新，在XP系统下，接近最终更新了。
代码优化，执行效率更高，对于盘符顺序正确的盘，不再删除盘符。

不论多少硬盘，多少虚拟盘，多少USB盘，多少光盘，此程序都会正确排列盘符顺序的。

本程序就是用于解决盘符错乱的，运行于NT系统，暂不适用于VISTA系统（因为VISTA下的DISKPART命令与XP不同）。无论是启动PE盘符错乱，还是使用USB盘安装XP使盘符错乱，运行一下此批处理，都正常了。

1：运行本程序，请将其放到系统盘运行；
2：运行此程序时，请关闭非系统盘打开的任何程序及文件，如果有安装到非系统盘的程序，则由于重排盘符，如果原来盘符就错乱的话，则有可能使程序指向出错，此种情况建议不要运行此程序。
3：在PE下运行此程序，请将其和这几个工具find.exe(有的PE竟然连这个也给精简了), fsutil, mountvol, diskpart,findstr.exe放到一块运行，这几个程序可以从XP系统的windows\system32目录获得。
本程序不会弄丢你的任何东西，如果运行失败，可以通过磁盘管理手动添加更改盘符。
MSFN英文讨论及链接：http://www.msfn.org/board/compatible-batch-file-o-t124539.html。

::created by VICTOR888, thanks to jaclaz in MSFN forum and batch experts in cn-dos forum
::revised on Nov 3, 2008
::ordering drive letters by drive type
::ordered drive letters are assigned to fixed disk, cdrom, usb hard disk and usb stick
SETLOCAL ENABLEEXTENSIONS
SETLOCAL ENABLEDELAYEDEXPANSION
::get usbdisk amount
set /a usbdiskam=0
for /f %%a in ('reg query HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Disk\Enum /s ^| find "USBSTOR"') do (
set /a usbdiskam=!usbdiskam!+1
)
::get removable usb disk amount and their drive letters
set /a remusbam=0
FOR /F "tokens=*" %%a in ('fsutil fsinfo drives ^| FIND /V ""') DO (
set dr=%%a
SET dr=!dr:~-5,1!
IF !dr! GTR A (
FOR /F "tokens=1,2 delims=-" %%b IN ('fsutil fsinfo drivetype !dr!:') DO (
set cr=%%c
set cr=!cr:~1,2!
if "!cr!" equ "CD" (
SET vname=%%b
SET vname=!vname:~0,1!
for /f %%x in ('mountvol !vname!: /l ^| find "\"') do call set dvdrom=%%dvdrom%% %%vname%%
)
if "!cr!" equ "可移" (
set /a remusbam=!remusbam!+1
SET vname=%%b
SET vname=!vname:~0,1!
call set remusb=%%remusb%% %%vname%%
)
)
)
)
::get fixed usb disk amount
if %usbdiskam% GTR 0 (
set /a fixedusbam=%usbdiskam%-%remusbam%
) else (
set /a fixedusbam=0
)
::get total hard disks amount
set /a totalhdam=0
for /f "skip=9 tokens=2" %%a in ('echo list disk ^| diskpart.exe') do (
set /a totalhdam=!totalhdam!+1
)
::get innternal fixed hard disk amount
set /a fixedhdam=%totalhdam%-%fixedusbam%
::get internal hard disk drive letters and fixed usb drive letters
if %fixedusbam% equ 0 (
for /f "skip=9 tokens=2" %%a in ('echo list disk ^| diskpart.exe') do (
echo select disk %%a >selectdisk%%a.txt
echo detail disk >>selectdisk%%a.txt
for /f "tokens=3 skip=17" %%b in ('diskpart /s selectdisk%%a.txt') do (
set dr=%%b
call set fixdrv=%%fixdrv%% %%dr%%
)
del selectdisk%%a.txt
)
) else (
for /f "tokens=1 delims=" %%a in ('reg query HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Disk\Enum /v 0 ^| find "REG_SZ"') do set hd=%%a
if "%hd:~-7%" neq "USBSTOR" (
for /f "skip=9 tokens=2" %%a in ('echo list disk ^| diskpart.exe') do (
set /a counter=!counter!+1
echo select disk %%a >selectdisk%%a.txt
echo detail disk >>selectdisk%%a.txt
if !counter! LEQ %fixedhdam% (
for /f "tokens=3 skip=17" %%b in ('diskpart /s selectdisk%%a.txt') do (
set dr=%%b
call set fixdrv=%%fixdrv%% %%dr%%
del selectdisk%%a.txt
)
) else (
for /f "tokens=3 skip=17" %%b in ('diskpart /s selectdisk%%a.txt') do (
set dr=%%b
call set hdusb=%%hdusb%% %%dr%%
del selectdisk%%a.txt
)
)
)
) else (
echo select disk 0 >selectdisk0.txt
echo detail disk >>selectdisk0.txt
for /f "tokens=3 skip=17" %%b in ('diskpart /s selectdisk0.txt') do (
set dr=%%b
call set hdusb=%%hdusb%% %%dr%%
del selectdisk0.txt
)
for /f "skip=10 tokens=2" %%a in ('echo list disk ^| diskpart.exe') do (
set /a counter=!counter!+1
echo select disk %%a >selectdisk%%a.txt
echo detail disk >>selectdisk%%a.txt
if !counter! LEQ %fixedhdam% (
for /f "tokens=3 skip=17" %%b in ('diskpart /s selectdisk%%a.txt') do (
set dr=%%b
call set fixdrv=%%fixdrv%% %%dr%%
del selectdisk%%a.txt
)
) else (
for /f "tokens=3 skip=17" %%b in ('diskpart /s selectdisk%%a.txt') do (
set dr=%%b
call set hdusb=%%hdusb%% %%dr%%
del selectdisk%%a.txt
)
)
)
)
)
::get all drive letters except A
FOR /F "tokens=*" %%b in ('fsutil fsinfo drives ^| FIND /V ""') DO (
set dr=%%b
SET dr=!dr:~-5,1!
IF !dr! GTR B call set alldrv=%%alldrv%% %%dr%%
)
::get drive letters with mount point
FOR /F %%a in ('mountvol ^| findstr :\') do (
set dr=%%a
set dr=!dr:~0,1!
IF !dr! GTR A call set mountdrv=%%mountdrv%% %%dr:~0,1%%
)
)
::get virtual drives created by virtual CD soft, command subst, net use and ram disk etc.
set virdrv=%alldrv%
for %%a in (%mountdrv%) do call set virdrv=%%virdrv:%%a=%%
set virdrv=%virdrv% %systemdrive:~0,1%
::ordering drive letters by internal fixed hard disk, cdrom, hard usb disk and removalbe usbdisk
set neworder=%fixdrv% %dvdrom% %hdusb% %remusb%
call set neworder=%%neworder:%systemdrive:~0,1%=%%
set fulldrv=CDEFGHIJKLMNOPQRSTUVWXYZ
for %%a in (%virdrv%) do call set fulldrv=%%fulldrv:%%a=%%
:: get ordered vid
set /a n=0
for %%a in (%neworder%) do (
call :done %%a %%fulldrv:~!n!,1%%
set /a n+=1
)
if exist "c.txt" (
for /f "tokens=1,2 delims= " %%a in (c.txt) do mountvol %%b %%a
del c.txt
)
goto :eof
:done
if %1 neq %2 (
for /f %%b in ('mountvol %1: /l') do echo %%b %2: >>c.txt
mountvol %1: /d
)
goto :eof

复制代码

[ 本帖最后由 victor888 于 2008-11-3 14:31 编辑 ]

victor888 · 发表于 2008-10-11 23:20:55

虽然经本人充分测试，但也不排除有BUG的可能，请话请好好说，这个程序不会丢你东西的。

amei · 发表于 2008-10-11 23:24:06

find 不能运行
运行以后没有反映
find /?
也调不出来帮助

千里独行 · 发表于 2008-10-11 23:26:21

谢谢分享，先下载用用。

千里独行 · 发表于 2008-10-11 23:29:14

是diskpart，不是dikpart。

CWD · 发表于 2008-10-12 01:54:16

支持，希望盘符问题能就此解决，下载学习。。。

圆来如此 · 发表于 2008-10-12 02:05:35

顶一个先，下载来试试看效果如何。

victor888 · 发表于 2008-10-12 07:57:07

原帖由 amei 于 2008-10-11 23:24 发表
find 不能运行
运行以后没有反映
find /?
也调不出来帮助

那是你系统的问题。

qusibago · 发表于 2008-10-12 08:19:24

希望移动硬盘的这个也能够解决。去试试看啦。呵呵。

victor888 · 发表于 2008-10-12 08:36:33

原帖由 qusibago 于 2008-10-12 08:19 发表
希望移动硬盘的这个也能够解决。去试试看啦。呵呵。

这是肯定的，我测试时使用了数码伴侣，移动硬盘、可移动盘、虚拟盘，全考虑到了。

blsmzli · 发表于 2008-10-12 08:39:39

呵呵，好东东，顶个。

willsion · 发表于 2008-10-12 08:40:32

暂时没有遇到类似问题，先关注一下。

minoboy · 发表于 2008-10-12 09:37:21

通篇读下来。有些命令不是很懂。特别是FOR命令和涉及注册表的东西。
有谁能解析一下？

lianjiang · 发表于 2008-10-12 09:40:07

关注中。。
对或者经常给人装机的人，应是有用的。

minoboy · 发表于 2008-10-12 09:48:42

原帖由 amei 于 2008-10-11 23:24 发表
find 不能运行
运行以后没有反映
find /?
也调不出来帮助

PE上的DOS版本是多少？

lc1212 · 发表于 2008-10-12 10:26:45

收下备用，感谢分享！

qusibago · 发表于 2008-10-12 12:06:37

偶的移动硬盘盘符修改不了。
期待解决办法，。

gaolisa · 发表于 2008-10-12 12:12:23

不管怎样说楼主也辛苦了，感谢分享，下载试用！

jfm034 · 发表于 2008-10-12 13:56:44

使用PE等。。

有时会盘符错乱。。。

试试。。

LZ辛苦。啦。

tegl · 发表于 2008-10-12 15:01:27

这样会拖慢启动速度吧

zgnr0001 · 发表于 2008-10-12 16:09:51

谢谢LZ的辛苦劳动!!!!!!!!!

网虫2008 · 发表于 2008-10-12 17:37:01

这个程序太好了，补充一下，有的PE里没有 findstr.exe ，执行后，光驱会不见了，

victor888 · 发表于 2008-10-12 17:58:28

原帖由 网虫2008 于 2008-10-12 17:37 发表
这个程序太好了，补充一下，有的PE里没有 findstr.exe ，执行后，光驱会不见了，

对，那就也加上。

木道人 · 发表于 2008-10-12 20:34:34

谢谢V大，下载试用.

mapeimapei · 发表于 2008-10-12 21:14:33

好东西，谢谢，以收藏了。。

phantom · 发表于 2008-10-12 23:23:55

下载试用了，确实不错。

yongxiang1 · 发表于 2008-10-12 23:29:11

盘符问题能就此解决，下载学习了!

jearry · 发表于 2008-10-13 00:35:27

谢谢斑竹的好东西，经常使用移动硬盘进入PE给人重装系统，一直没办法解决盘符的问题，谢谢你！

另外你提到“再也不用怕PE下安装系统出现盘符问题了（顺注：这种安装方法早已经落后）”，想问问除了PE下安装系统，还有什么更好的安装方法，麻烦指教一下！

victor888 · 发表于 2008-10-13 08:08:13

一个是USB盘直接安装，看我的贴子；另外一个是从硬盘启动到微型PE，再从U盘安装，省时省力，且不存在启动问题，这个去www.msfn.org/board到install xp from usb查看。

chouliu · 发表于 2008-10-13 09:24:58

好东东，收藏先
感谢分享！

		自动登录	找回密码
密码			注册