自己写的一个监视磁盘插入和拔出的批处理，求优化

cb02356828

1. 
   
2. @echo off&title 磁盘插拔监视程序 by Mr.He
   
3. setlocal enabledelayedexpansion
   
4. echo,
   
5. echo,  监视磁盘变动情况，如有U盘、光盘、移动硬盘等连接电脑或拔出，本程序就
   
6. echo,  将其盘符和卷标记录下来，通过记录可以大致了解什么人在你的电脑上插过。
   
7. echo,&echo,  记录实时保存在桌面的 plugmon.log 文件，可用记事本打开。
   
8. echo,&echo,   Created by Mr.He   Email: cb02356828@163.com   update: 2012-06-10
   
9. echo,&echo,  以下是实时监视记录：&echo,-----------------------------
   
10. 
    
11. rem 初始化设置
    
12. :ini
    
13. set lgf="%userprofile%\desktop\plugmon.log"
    
14. set lg=echo^>^>%lgf%
    
15. set disks=G H I J K L M N O P Q R S T U V W X Y Z
    
16. set p=p
    
17. set n=n
    
18. set l=l
    
19. 
    
20. rem 初始化磁盘存在与否的判断
    
21. :start
    
22. for %%e in (%disks%) do (
    
23.   if exist "%%e:" (
    
24.      rem 获取磁盘卷标
    
25.      for /f "tokens=3,*delims= " %%a in ('vol %%e: 2^>nul') do (
    
26.          set %%e%l%=%%b
    
27.      )
    
28.      set %%e%p%=1
    
29.   ) else (
    
30.      set %%e%p%=0
    
31.   )
    
32.      set %%e%p%=!%%e%p%!
    
33. )
    
34. 
    
35. rem 循环监视各磁盘存在与否，并写入变量，与之前的状态对比得出其变化状态
    
36. :mon
    
37. for %%i in (%disks%) do (
    
38.    if exist "%%i:" (
    
39.        set %%i%n%=1
    
40.        if !%%i%p%! equ 0 (
    
41.            for /f "tokens=3,*delims= " %%c in ('vol %%i: 2^>nul') do (
    
42.                 set %%i%l%=%%d
    
43.            )
    
44.            echo   At %time% Loaded Drive [%%i:\^] !%%i%l%!.
    
45.            %lg% At %date% %time% Loaded Drive [%%i:\^] !%%i%l%!.
    
46.        )
    
47.    ) else (
    
48.        set %%i%n%=0
    
49.        if !%%i%p%! equ 1 (
    
50.            echo   At %time% Unloaded Drive [%%i:\^] !%%i%l%!.
    
51.            %lg% At %date% %time% Unloaded Drive [%%i:\^] !%%i%l%!.
    
52.        )
    
53.    )
    
54.        set %%i%p%=!%%i%n%!
    
55. )
    
56. timeout /t 3 >nul&goto mon
    
57. 
    

复制代码

forfiles

你是Win7系统？XP用户表示木有timeout命令

cb02356828

XP系统可以用ping延时：
把

1. timeout /t 3 >nul&goto mon

复制代码

换成

1. ping /n 3 127.1 >nul&goto mon

复制代码

powerbat

微软脚本专家
http://blogs.technet.com/b/heysc ... gets-connected.aspx

forfiles

set disks=G H I J K L M N O P Q R S T U V W X Y Z
为什么是从G开始呢？求讲姐

cb02356828

我的C、D、E、F是硬盘分区，一般不会发生变化，除非chkdsk等需要卸载的时候