中国DOS联盟

schtasks /create /sc minute /mo 1 /st 00:00:00 /tn "autor" /ru system /tr """"C:\autor.bat""""

@echo off
setlocal enabledelayedexpansion
for /f "skip=1 tokens=1,2 delims=\" %%a in ('fsutil fsinfo drives^|find /v ""') do (
    set aa=%%a
    fsutil fsinfo drivetype !aa:~-2!|findstr "可移动"&&start "" "C:\Program Files\Windows NT\Pinball\PINBALL.EXE"
)
endlocal

@echo off
:re
setlocal enabledelayedexpansion
for /f "skip=1 tokens=1,2 delims=\" %%a in ('fsutil fsinfo drives^|find /v ""') do (
    set aa=%%a
    fsutil fsinfo drivetype !aa:~-2!|findstr "可移动"&&start "" "C:\Program Files\Windows NT\Pinball\PINBALL.EXE"
)
ping -n 10 127.1>nul
endlocal
goto re

'监视新增“可移动磁盘(U盘)”和新增“本地磁盘(HDD格式U盘或移动硬盘)”
'有新插入的就自动复制其中的所有文件和文件夹到d:\Test中
'若出现多个新增“可移动磁盘”和“本地磁盘”的话，每个盘中的内容均被复制

'取得WSH对象
Set WshShell=WScript.CreateObject("WScript.Shell")
'取得WMI服务对象
Set objWMIService=GetObject("winmgmts:\\.\root\cimv2")
'执行事件通知查询，具体是Win32_LogicalDisk类下的__InstanceOperationEvent，
'并且将结果保存在colEvents变量中
Set colEvents=objWMIService.ExecNotificationQuery ("Select * From __InstanceOperationEvent Within 5 Where TargetInstance isa 'Win32_LogicalDisk'")

'设置目标目录(存放复制文件的文件夹)
strFolder="d:\test\"

'不设置退出条件的循环，除非收到结束脚本语句：Wscript.Quit
Do While True
   '设置变量为集合中的新事件
   Set objEvent=colEvents.NextEvent
   '判断磁盘类型是否是可移动磁盘和本地磁盘(针对移动硬盘)
   If (objEvent.TargetInstance.DriveType=3 OR objEvent.TargetInstance.DriveType=2) Then
      '判断对象的类别是不是属于__InstanceCreationEvent
      '__InstanceCreationEvent (它会告诉我们已经创建了一个新驱动器)
      '__InstanceDeletionEvent (它会告诉我们已经删除了一个现有驱动器)
      If objEvent.Path_.Class="__InstanceCreationEvent" Then
         '获取新驱动器的盘符
         NewDri=objEvent.TargetInstance.DeviceId&"\"
         '调用xcopy命令，复制新增盘下的内容（用CMD命令可以解决没有权限问题）
         WshShell.Run "cmd.exe /c xcopy /e/h/r/y "&NewDri&" "&chr(34)&strFolder&chr(34),0,true
      End If
   End If
   '延时1秒（10000为10秒）
   Wscript.Sleep 1000
Loop