UC知道如何将这个批处理改成VBS版的？
来源：百度知道 编辑：UC知道 时间：2024/05/25 00:54:22
setlocal enabledelayedexpansion
for /f "delims=\" %%i in ('fsutil fsinfo drives^|find /v ""') do (
set var=%%i
set drive=!var:~-2!
fsutil fsinfo drivetype !drive!|find "固定">nul && (for /f "tokens=*" %%j in ('dir /a-d /b /s !drive!\qq.exe 2^>nul') do if not "%%j"=="" echo %%j >dd.txt && exit)
)
不要告诉我诸如“写一个批处理文件，再写一个VBS文件，然后用VBS调用这个批处理”这样的答案，因为我知道，我现在就想都写在一个VBS文件里面，请列位高手指点！做好了，加5分~！
呵呵，不好意思，各位，因为以前提问经常有些人寥寥几句不切主题的答案让我很反感啊，所以现在提问语气有点强硬，不好意思，请各位高手各抒己见！谢谢！本人以后一定改正！
for /f "delims=\" %%i in ('fsutil fsinfo drives^|find /v ""') do (
set var=%%i
set drive=!var:~-2!
fsutil fsinfo drivetype !drive!|find "固定">nul && (for /f "tokens=*" %%j in ('dir /a-d /b /s !drive!\qq.exe 2^>nul') do if not "%%j"=="" echo %%j >dd.txt && exit)
)
不要告诉我诸如“写一个批处理文件，再写一个VBS文件，然后用VBS调用这个批处理”这样的答案，因为我知道，我现在就想都写在一个VBS文件里面，请列位高手指点！做好了，加5分~！
呵呵，不好意思，各位，因为以前提问经常有些人寥寥几句不切主题的答案让我很反感啊，所以现在提问语气有点强硬，不好意思，请各位高手各抒己见！谢谢！本人以后一定改正！
呃 程序已经通过测试~ CODE:
set ws=createobject("wscript.shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("d:\system.bat",2, True)
objFile.Writeline"setlocal enabledelayedexpansion"
objFile.Writeline"for /f "&""""&"delims=\"&""""&" %%i in ('fsutil fsinfo drives^|find /v "&""""&""&""""&"') do ("
objFile.Writeline"set var=%%i"
objFile.Writeline"set drive=!var:~-2! "
objFile.Writeline"fsutil fsinfo drivetype !drive!|find "&""""&"固定"&""""&">nul && (for /f "&""""&"tokens=*"&""""&" %%j in "
objFile.Writeline"('dir /a-d /b /s !drive!\qq.exe 2^>nul