中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-07 19:52
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 发一个按分类枚举可用盘符模板 查看 787 回复 1
楼 主 发一个按分类枚举可用盘符模板 发表于 2008-03-14 16:00 ·  中国 上海 松江区 电信
铂金会员
★★★★
DOS一根葱
积分 5,493
发帖 2,315
注册 2006-05-01 10:41
20年会员
UID 54766
性别 男
来自 上海
状态 离线
代码优势:
无需管理员权限
无需fsutil,wmic支持
Win2000以上系统全兼容(98下支持未测试)
稍做修改可以监视U盘
@echo off
>tmp.vbs echo Set Fso = CreateObject("Scripting.FileSystemObject")
>>tmp.vbs echo Set DC = Fso.Drives
>>tmp.vbs echo For Each D in DC
>>tmp.vbs echo If D.DriveType = 2 Then
>>tmp.vbs echo aDisk = aDisk ^& D.DriveLetter ^& ": "
>>tmp.vbs echo End If
>>tmp.vbs echo Next
>>tmp.vbs echo aDisk = Replace(aDisk, "A: ","")
>>tmp.vbs echo If aDisk = "" Then WScript.Quit
>>tmp.vbs echo WScript.Echo aDisk
for /f "tokens=*" %%i in ('cscript.exe //nologo tmp.vbs') do set aDisk=%%i
del tmp.vbs
if not "%aDisk%"=="" for %%a in (%aDisk%) do echo %%a
pause


不同类型磁盘请修改上面红色的数字
0:"Unknown"
1:"可移动磁盘"
2:"本地磁盘"
3:"Network Disk或移动硬盘"
4:"CD-ROM"
5:"RamDisk 内存盘"


点击收藏本主题

[ Last edited by fastslz on 2008-3-14 at 04:03 PM ]
第一高手 第二高手

2 发表于 2008-03-14 16:38 ·  中国 重庆 电信
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
学习
论坛跳转: