中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-07 19:01
48,041 主题排行 / 350,128 发帖 / 今日 3 篇 / 48,252 会员排行
DOS批处理 & 脚本技术(批处理室) » 发一个按分类枚举可用盘符模板
可打印版本  785 / 1
第1楼 fastslz 发表于 2008-03-14 16:00
铂金会员 发帖 2,315 积分 5,493 来自 上海
发一个按分类枚举可用盘符模板
代码优势:
无需管理员权限
无需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楼 HAT 发表于 2008-03-14 16:38
版主 发帖 5,017 积分 9,023
学习
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023